PDA

Visualizza la versione completa : problema irrisolvibile?


hulkster
30-08-2002, 08:54
ciao a tutti

ho fatto una maschera in access legata ad una tabella Padri

la maschera contiene oltre alle caratteristiche dei padri
delle text box vuote

come faccio a scrivere dentro una tabella Figli le cose che vengono scritte nelle text box?

io ho fatto un bottone che lancia questo codice:

Private Sub Comando50_Click()

'MM - 26/06/2002
' - inserisce il primo record
' - disabilita/abilita i pulsanti
' - abilita il pulsante duplica
On Error GoTo Err

CurrentDb.Execute "INSERT INTO caratteristiche ( codprodotto, c1, c2, c3, c4, c5, c6, c7, c8, c9, c10, c11, c12, c13, c14, c15, c16, c17, c18, c19, c20, numero) " _

& "VALUES ('" & Testo1 & "', '" & Testo2 & "','" & Testo3 & "','" & Testo4 & "','" & Testo5 & "','" & Testo6 & "','" & Testo7 & "','" & Testo8 & "','" & Testo9 & "','" & Testo10 & "','" & Testo11 & "','" & Testo12 & "','" & Testo13 & "', '" & Testo14 & "','" & Testo15 & "', '" & Testo16 & "','" & Testo17 & "', '" & Testo18 & "','" & Testo19 & "','" & Testo20 & "','" & Testo21 & "','" & Testo22 & "')"


Exit Sub
Err:
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical, "Errore"
End If

End Sub



ma non va qualcuno mi puo aiutare?

Joda
30-08-2002, 09:04
Le soluzioni potrebbero essere 2

1) Utilizzi le sottomashere di access

2) Gestisci il problema utilizzando VB di access

hulkster
30-08-2002, 09:25
ho provato con il vb di access usando l'insert into nella tabella figli ma non inserisce niente

Joda
30-08-2002, 12:35
Con VB di access ti vonviene utilizzare le procedure ADDNEW e UPDATE

Es.
objRs.Addnew
objRs("Campo")=Valore
abjRs.Update

Loading