Hoy Dizzl,
In bijlage een voorbeeld om een record toe te voegen in tabel verkopen.
Wat heb ik in het voorbeeld in vba vergeten te schrijven?
Heb het ondertussen kunnen fixen:
Private Sub Knop10_Click()
Dim sVeld As String, sTabel As String, sWaarde As String, strSQL As String
Dim rst As ADODB.Recordset
Dim cnConn As ADODB.Connection
Set cnConn = CurrentProject.Connection
Set rst = New ADODB.Recordset
sVeld = "[BonNr]" 'Hier het veld dat je gebruikt voor het volgnummer.
sTabel = "[tblVerkopen]" 'Hier de tabelnaam waar het volgnummer in staat.
'Volgnummer ophogen
sWaarde = Nz(DLast("BonNr", sTabel), 0) + 1
'we maken een sqlString die de insert doet
strSQL = "insert into tblVerkopen (BonNr)" _
& " values ('" & sWaarde & "')"
rst.Open strSQL, cnConn, adOpenKeyset, adLockOptimistic, adCmdTekst
End Sub
Opmerking: 11/11/2013 21:41u
bij terugkeren naar formulier verkopen gaat hij niet naar het nieuwe ingevoegde record in het eerste gepost database voorbeeld. Hoe kan ik dat verhelpen? requery, refresh, repaint lukte mij niet
Diezel