G
Guest
I know this might be easy for some, but i can NOT get this to work. here it
goes:
form1 has list of weight#, I use a list box that finds a record on the form
below is what i get, but if I don't find the record, I need to add the
record in another form. I tried the not in list and could not get it to work
what is the best method to do this.
bottom line, enter a weight#, if found, open edit form with data , if not
found, open in add mode with the number you typed in.
thank
sj
Private Sub Combo168_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[WeightCert#] = " & Str(Nz(Me![Combo168], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
goes:
form1 has list of weight#, I use a list box that finds a record on the form
below is what i get, but if I don't find the record, I need to add the
record in another form. I tried the not in list and could not get it to work
what is the best method to do this.
bottom line, enter a weight#, if found, open edit form with data , if not
found, open in add mode with the number you typed in.
thank
sj
Private Sub Combo168_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[WeightCert#] = " & Str(Nz(Me![Combo168], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub