Ik pobeer een database te vullen, deze database is nog leeg.
Op een of andere manier blijft dat zo.
Ik krijg: "This action was cancelled by an associated object."
Ms zegt: dat er wordt geprobeerd data naar het NULL record te schrijven.
maar het lijkt mij dat wanneer ik Addnew doe, vervolgens de velden vul, en daarna update dat dat goed moet gaan.
Wanneer ik werk met een niet lege database gaat het wel,... tenminste anders.
plz help.
Op een of andere manier blijft dat zo.
Ik krijg: "This action was cancelled by an associated object."
Ms zegt: dat er wordt geprobeerd data naar het NULL record te schrijven.
maar het lijkt mij dat wanneer ik Addnew doe, vervolgens de velden vul, en daarna update dat dat goed moet gaan.
Wanneer ik werk met een niet lege database gaat het wel,... tenminste anders.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
| Private Sub Nieuw()
If Not Data1.Recordset.EOF Then
Data1.Recordset.Movelast
I = Val(lblNr.Caption)
Data1.Recordset.addnew
lblNr.Caption = I + 1
Else
I = 1
Data1.Recordset.addnew
MsgBox Data1.Recordset.BOF & Data1.Recordset.EOF
'Box : True True
lblNr.Caption = I
End If
End Sub
'Hier worden gegeven ingevoerd alvorens op Toevoeg te klikken.
Private Sub cmdToevoeg_Click()
MsgBox Data1.Recordset.RecordCount & Data1.Recordset.BOF & Data1.Recordset.EOF
'box : 0 True Waar
Data1.Recordset.Update 'om het record weg te schrijven (addnew heeft zelfde effect)
'ERROR_ERROR_ERROR |
plz help.