Newsgroup: it.comp.appl.access
Titolo: Errore di run time "3075" operatore mancante

Scusate vi trascrivo di seguito il codice dove mi da l'errore sopra
riportato.Non trovo l'errore  che si riscontra:
Dim rst
Set rst = CurrentDb.OpenRecordset("SELECT
[Qr_carico_articoli_per_distinta].* FROM
[Qr_carico_articoli_per_distinta] WHERE
[Qr_carico_articoli_per_distinta].[Codice art fornitore]= " &
Me.Codice_art_fornitore & " AND [Qr_carico_articoli_per_distinta].
[Idfornitore] = " & Me.IDfornitore)
With rst
    .MoveFirst
    If .EOF Then
    .Fields("Pz_def") = Form("Pz_def ")
    End If
    .Close
End With
Grazie
Dino

>>>>>>>>>>>>>>>>>
Ciao Dino,
se codice art Fornitore + di tipo alfanumerico mancano gli apici:
Set rst = CurrentDb.OpenRecordset("SELECT
[Qr_carico_articoli_per_distinta].* FROM
[Qr_carico_articoli_per_distinta] WHERE
[Qr_carico_articoli_per_distinta].[Codice art fornitore]= '" &
Me.Codice_art_fornitore & "' AND [Qr_carico_articoli_per_distinta].
[Idfornitore] = " & Me.IDfornitore)
Cinzia
Access MVP
http://www.riolab.org
http://accessdaziacin.wordpress.com

 "Dino"  ha scritto nel messaggionews:9077446c-7ee4-4d3d...@l14g2000yqb.googlegroups.com...

Ciao Cinzia e grazie per la risp.E' vero il campo "codice art
Fornitore " e' alfanumerico.Ho quindi inserito gli apici ma
all'apertura del form mi si presenta lo stesso errore.
Dino

Dino used his keyboard to write :


Non sarï¿œ alfanumerico anche [IdFornitore]?
"Where Tab1.IdCliente = " & [IdCliente]
"Where Tab1.CodMag = '" & [CodMag] & "'"
"Where Tab1.DataSped = #" & Format([DataSped],"mm/dd/yyyy") & "#"
In ogni caso quel
With rst
     ...
End with
Non funzionerï¿œ mai!
Guardati nell'Help: Recordset.AddNew e Recordset.Edit
Bruno

 Bruno
Ciao Bruno e grazie per la risp.Ho rivisto il tutto ma da sempre lo
stesso errore (ID fornitore e' testuale)
Di seguito ti riporto il codice ti posto il codice per capire dove
sbaglio.
Set rst = CurrentDb.OpenRecordset("SELECT articoli.* FROM articoli
WHERE articoli.[Codice art fornitore]= '" & Me.Codice_art_fornitore &
" AND articoli.[IDfornitore] = '" & Me.IDfornitore)
With rst
    .MoveFirst
    If .EOF Then
        .AddNew
        .Fileds("IDfornitore") = Form("IDfornitore")
        .Fields("Pz_def") = Form("Pz_def ")
        .Update
    Else
    End If
    .Close
End With
L'idea di questo codice e' nata dall'esigenza dell'altro post
"aggiornare dati identici da query A a query B" se vuoi dare
un'occhiata.
Grazie
Dino

 Dino
Per come la vedo io, a distanza e senza testarlo:
With rst
     .AddNew
     ![IDFornitore] = [IDFornitore]
     ![Pz_Def] = [Pz_Def]
     .Update
End with
Questo per aggiungere un nuovo record... per editarlo sostituisci 
.AddNew con .Edit
Bruno

 - Mostra testo citato -

 - Mostra testo citato -
Grazie Bruno.Ma il risultato e' ancora quello.Volevo pero' attirare la
tua attenzione sul perche' di questo codice (forse c'e' una soluzione
migliore).Se hai avuto tempo di dare un'occhiata all'altro post io ho
il problema di aggiornare i dati di questa form (distinta base) con i
dati della form articoli.Cioe' in distinta base io ho larticolo 1 con
data 20/10/10 con il prezzo di € 1,00.Se lo stesso articolo l'ho vado
ad acquistare in data 24/10/10 ad € 0,50,nel form distinta base mi si
dovrebbe aggiornare in automatico.Come posso fare???
Dino