combo not updating form

[cjamps]

First Combo - working appropriately
Private Sub cmbDSerialNumber_AfterUpdate()
Dim rs As DAO.Recordset


If Not IsNull(Me.cmbDSerialNumber) Then
'Save before move.
If Me.Dirty Then
Me.Dirty = False
End If
'Search in the clone set.
Set rs = Me.RecordsetClone
rs.FindFirst "dserialnumber = '" & cmbDSerialNumber & "'"
If rs.NoMatch Then
MsgBox "There is no task for: " & cmbDSerialNumber & " Add Task?", vbYesNoCancel
Else
'Display the found record in the form.
Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
End If
End Sub

'User presses edit task command button
Private Sub EditTaskBttn_Click()
DoCmd.OpenForm "EditTask", , , "[TSerialNumber] = '" & Me.cmbDSerialNumber.Column(0) & "'", acFormEdit
End Sub
' Loading Edit Task Form
Private Sub Form_Load()
Me.TSerialNumber = Forms![Main Switchboard]!cmbDSerialNumber
Me.Caption = "Serial Number: " & Me!TSerialNumber.Value
End Sub
'Query for Second Combo
SELECT TaskList.TSerialNumber, TaskList.[No], TaskList.Task
FROM Dockets INNER JOIN TaskList ON Dockets.DSerialNumber = TaskList.TSerialNumber
WHERE (((TaskList.TSerialNumber)=[Forms]![Main Switchboard]![cmbDSerialNumber]));
'Loading Second Combo
Private Sub CmbTSerialNumber_AfterUpdate()
Me.RecordsetClone.FindFirst "[no] = " & Me!CmbTSerialNumber.Column(2)
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
'I put a breakpoint by
Me.RecordsetClone.FindFirst "[no] = " & Me!CmbTSerialNumber.Column(1)
'then I press F8 to step into the next 2 statements
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
In the immediate window ? no is the correct task number but ? Me!CmbTSerialNumber.Column(1) is alway = to 1. If I add a watch to both those variables they are empty. After the sub is finished ? no is empty and ? Me!CmbTSerialNumber.Column(1) is an error message variable not yet created in this context
A new record is being added with the serial number and the rest of the fields being blank when the record is only supposed to be edited?
Most important the the current record after task no is chosen is not being pulled up.

[RuralGuy]

If you would use the code tags (the # button in the toolbar) then your post would look like:

Private Sub cmbDSerialNumber_AfterUpdate()
   Dim rs As DAO.Recordset
   If Not IsNull(Me.cmbDSerialNumber) Then
      'Save before move.
      If Me.Dirty Then
         Me.Dirty = False
      End If
      'Search in the clone set.
      Set rs = Me.RecordsetClone
      rs.FindFirst "dserialnumber = '" & cmbDSerialNumber & "'"
      If rs.NoMatch Then
         MsgBox "There is no task for: " & cmbDSerialNumber & " Add Task?", vbYesNoCancel
      Else
         'Display the found record in the form.
         Me.Bookmark = rs.Bookmark
      End If
      Set rs = Nothing
   End If
End Sub
 
'User presses edit task command button
Private Sub EditTaskBttn_Click()
   DoCmd.OpenForm "EditTask", , , "[TSerialNumber] = '" & Me.cmbDSerialNumber.Column(0) & "'", acFormEdit
End Sub
 
' Loading Edit Task Form
Private Sub Form_Load()
   Me.TSerialNumber = Forms![Main Switchboard]!cmbDSerialNumber
   Me.Caption = "Serial Number: " & Me!TSerialNumber.Value
End Sub
 
'Query for Second Combo
SELECT TaskList.TSerialNumber, TaskList.[No], TaskList.Task
FROM Dockets INNER JOIN TaskList ON Dockets.DSerialNumber = TaskList.TSerialNumber
WHERE (((TaskList.TSerialNumber)=[Forms]![Main Switchboard]![cmbDSerialNumber]));
 
'Loading Second Combo
Private Sub CmbTSerialNumber_AfterUpdate()
   Me.RecordsetClone.FindFirst "[no] = " & Me!CmbTSerialNumber.Column(2)
   Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
 
'I put a breakpoint by
Me.RecordsetClone.FindFirst "[no] = " & Me!CmbTSerialNumber.Column(1)
'then I press F8 to step into the next 2 statements
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

Quite a bit easier to read.

[RuralGuy]

Are you aware of the fact that this code:

'User presses edit task command button
Private Sub EditTaskBttn_Click()
   DoCmd.OpenForm "EditTask", , , "[TSerialNumber] = '" & Me.cmbDSerialNumber.Column(0) & "'", acFormEdit
End Sub

...puts a filter on the "EditTask" form?

[RuralGuy]

After putting a filter on the "EditTask" form you then proceed to Dirty a record with:

Private Sub Form_Load()
   Me.TSerialNumber = Forms![Main Switchboard]!cmbDSerialNumber
   Me.Caption = "Serial Number: " & Me!TSerialNumber.Value
End Sub

[cjamps]

I have commented out the form load statements. I have taken away the filter so the statement appears as
DoCmd.OpenForm "EditTask", , , , acFormEdit

When it gets to the following code:

Private Sub CmbTSerialNumber_AfterUpdate()
Me.RecordsetClone.FindFirst Me!CmbTSerialNumber.Column(1) = [No]
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

I still have the following problem:

'I put a breakpoint by
Me.RecordsetClone.FindFirst "[no] = " & Me!CmbTSerialNumber.Column(1)

'then I press F8 to step into the next 2 statements

Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

In the immediate window Me!CmbTSerialNumber.Column(1) is the correct number but ? no is the correct task number is always = to 1. If I add a watch to both those variables they are empty. After the sub is finished ? no is empty and ? Me!CmbTSerialNumber.Column(1) is an error message variable not yet created in this context.

[RuralGuy]

Ant chance you are using the dredded Lookup fields?