Can someone please tell me why this code is not writing back to the table? I took the error handling out to see where the problem is and there it goes through and finds the change and supposably writes to the table but when I check the table nothing has changed. Below, what I have are 2 combo boxes called Combo12 and Combo14. Combo12 has values like "Network" and "Desktop", and Combo14 has the values of "Yes" or "No". If you need more explaination just ask. But I am stumped.<br><br>---------------------------------------------------------<br><br>Private Sub Combo14_Click()<br><br>Dim tmp As String<br>Dim x, y, z, a As Integer<br>Dim dbs As Database<br>Dim tdf As Recordset<br><br>If IsNull(Assigned_To.Value) Then<br> If IsNull(Username.Value) Then<br> Combo14.Value = ""<br> Exit Sub<br> End If<br>End If<br><br>DoEvents<br>Set dbs = CurrentDb()<br>Set tdf = dbs.OpenRecordset("Employee Table"
<br><br>For y = 1 To List2.ListCount - 1<br> If Combo12.Value = List2.ItemData
Then<br> tmp = ""<br> tdf.MoveFirst<br> For x = 0 To a<br> tdf.MoveNext<br> Next x<br> tdf.Edit<br> tmp = Combo14.Value<br> tdf.Fields(y + 1).Value = tmp<br> End If<br>Next y<br><br>Set tdf = Nothing<br><br>End Sub<br>