Newsgroup: it.comp.appl.access
Titolo: [Già Postato?] come inserire una tringa in una tabella da form

Buona serata a tutto il NG
come da Oggetto ripongo il mio problema non perché nel post precedente Carlo 
Costarella non sia stato esauriente ma perché la mia limitata conoscenza di 
access non mi ha consentito di poter arrivare alla realizzazione di quello 
che volevo realizzare.
Ho sempre quella famosa stringa "Rif. DDT N.12 del 21/01/2007"che  viene 
generata al momento che confermo determinati dati ; contestualmente alla 
conferma dei dati vorrei che venisse inserita nella  "Tb-DocFiscali" 
generando cosi un  nuovo record .Quale é la sintassi giusta?
Come sempre un Grazie
 -- 
Carlo
:-)
--------------------------------------------------------------------------------
La mia Cartella di Posta in Arrivo è protetta con SPAMfighter
1272 messaggi contenenti spam sono stati bloccati con successo.
Scarica gratuitamente SPAMfighter! 


ciao fai una funzione di insert tramite l'oggeto querydef
lo instanzi e fai
 QD.SQL = strSQL
QD.Execute
dove qd è l'istanza di querydef.
ciao 

 ha scritto nel messaggio 
news:e56yh.833$BP5....@twister2.libero.it...

L'oggetto QueryDef  ?  Lo istanzi  ? devi scusarmi Antonio e abuso della tua 
cortesia non sono molto pratico di Access ma dove lo devo inserire la routin 
che mi hai sopra descritta
Grazie della tua disponibilità


 Grazie della tua disponibilità
Ciao copiati dove ti pare questo codice l'oggetto querydef ti permette di 
crearti una query via codice e di eseguirla.
Dove c'è Qd.Sql devi mettere il tuo comandi di insert che sara piu o meno 
"insert into tuatabella(campo) values('Rif. DDT N.12 del 21/01/2007')
Private Sub Comando0_Click()
Dim QD As queryDef
Dim Valore As String
Valore = "Ciao"
Set QD = CurrentDb.CreateQueryDef("")
QD.SQL = "insert into dipendenti (nominativo) values ('" & Valore & "')"
QD.Execute
QD.Close
End Sub 

 du campi alla tabella come posso fare
Dove posso inserire i campi IDORDINE, ID IDCLiente sempre nella stessa 
tabella
Private Sub cmdSalvaRecord_Click()
Dim QD As QueryDef
Dim Valore As String
Valore = Me.Testo113
Set QD = CurrentDb.CreateQueryDef("")
QD.SQL = "insert into tbl_ddt_dettaglio(D_descrizione)values ('" & Valore & 
"')"
QD.Execute
QD.Close
Ciao


 ha scritto nel messaggio 
news:45c8fc26$0$20820$5fc...@news.tiscali.it...

QD.SQL = "insert into 
tbl_ddt_dettaglio(D_descrizione,idordine,idcliente)values ('" & Valore & 
"'," & "1" & "," & "2" &   ")"
al posto di 1 e 2 metti la tua stringa, se numerica, altrimenti metti gli 
apici.
ciao 

andare nei campi analogi della tabella in questione


 ciao
Antonio mi da questo errore:
Parametri insufficienti pervisto 2
Private Sub cmdSalvaRecord_Click()
Dim QD As QueryDef
Dim Valore As String
Valore = Me.Testo113
Set QD = CurrentDb.CreateQueryDef("")
QD.SQL = "insert into tbl_ddt_dettaglio(D_descrizione,RifOrdine,idCliente) 
values ('" & Valore & "'," & "IDdoc_Fisc" & "," & "IDCliente" & ")"
QD.Execute
QD.Close
si ferma il debug su QD.Execute
Grazie Carlo :-)



Scusa Antonio, mi sono spiegato male Private Sub cmdSalvaRecord_Click()
Dim QD As QueryDef
Dim Valore As String
Valore = Me.Testo113
Set QD = CurrentDb.CreateQueryDef("")
QD.SQL = "insert into tbl_ddt_dettaglio(D_descrizione,RifOrdine,idCliente) 
values ('" & Valore & "'," & "IDdoc_Fisc" & "," & "IDCliente" & ")"
QD.Execute
QD.Close
mi dà un errore nel debug Parametri insufficenti previsto 2
e si ferma du QD.Execute
Grazie Carlo


 Carlo :-)
Da errore il server cancella le risposte


 Grazie Carlo :-)
IDdoc_Fisc=1
IDCliente=1
QD.SQL = "insert into tbl_ddt_dettaglio(D_descrizione,RifOrdine,idCliente)
values ('" & Valore & "'," & IDdoc_Fisc & "," & IDCliente & ")"
prova cosi ciao 


Antonio ho inserito la stringa ma da un errore
Private Sub cmdSalvaRecord_Click()
Dim QD As QueryDef
Dim Valore As String
Valore = Me.Testo113
Set QD = CurrentDb.CreateQueryDef("")
QD.SQL = "insert into tbl_ddt_dettaglio(D_descrizione,RifOrdine,idCliente) 
values ('" & Valore & "'," & "IDdoc_Fisc" & "," & "IDCliente" & ")"
QD.Execute
QD.Close
dove sbaglio? l'errore che ha dato e: parametri insufficenti  previsto 2
Ciao



Private Sub cmdSalvaRecord_Click()
Dim QD As QueryDef
Dim Valore As String
Valore = Me.Testo113
Set QD = CurrentDb.CreateQueryDef("")
idDoc_fisc = 1
IDCliente = 1
QD.SQL = "insert into tbl_ddt_dettaglio(D_descrizione,RifOrdine,idCliente) 
values ('" & Valore & "'," & "IDdoc_Fisc" & "," & "IDCliente" & ")"
QD.Execute
QD.Close
Antonio é giusto così perche mi da l'errore "impossibile assegnare  un 
valore all'oggetto"
