G
george1234
'add one textbox to form with Control Source = ID)
'here is simple form code:
'error 3450 - I can't find much info on this...
Private Sub Form_Load()
'2008-01-11
Dim rsx As ADODB.Recordset
Set rsx = New ADODB.Recordset
rsx.CursorLocation = adUseClient
rsx.CursorType = adOpenDynamic
rsx.LockType = adLockOptimistic
rsx.Fields.Append "ID", adDouble
rsx.Open
rsx.AddNew 0, 1
rsx.Update
rsx.AddNew 0, 2
rsx.Update
rsx.AddNew 0, 3
rsx.Update
Set Form_Form1.Recordset = rsx
End Sub
'here is simple form code:
'error 3450 - I can't find much info on this...
Private Sub Form_Load()
'2008-01-11
Dim rsx As ADODB.Recordset
Set rsx = New ADODB.Recordset
rsx.CursorLocation = adUseClient
rsx.CursorType = adOpenDynamic
rsx.LockType = adLockOptimistic
rsx.Fields.Append "ID", adDouble
rsx.Open
rsx.AddNew 0, 1
rsx.Update
rsx.AddNew 0, 2
rsx.Update
rsx.AddNew 0, 3
rsx.Update
Set Form_Form1.Recordset = rsx
End Sub