Form OnChange Combo and unbound textbox

[Excel_Kid1081]

Hello-

In a form I have two controls...a unbound combo box and an unbound textbox. I have the following OnChange event for the combo box to populate a value for the textbox. However, it only works when a record is found from the dropdown box...but within this combox box the user should be able to enter in new info if it is not listed. I thought my if statment below would solve for it but it just seems to default to the previous value selected from the combo.

Private Sub cboObligor_Change()
Dim Db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Set Db = CurrentDb
Set rs = Db.OpenRecordset("tblObligors", dbOpenDynaset)
strSQL = "[Obligor] ='" & Me.cboObligor.Column(0) & "'"
With rs
.FindFirst (strSQL)
If .NoMatch Then
txtHiddenObligorID = DLast("[Obligor_ID]", "[tblObligors]") + 1
Else
txtHiddenObligorID = dlookup("[Obligor_ID]", "[tblObligors]", strSQL)
End If
End With
Set rs = Nothing
Set Db = Nothing
End Sub

Any thoughts are greatly appreciated!!

EK

 

[ajetrumpet]

It only works when a record is found? So what if one isnt found? Are you saying that the dlast() function is not working? What does it do? And can you add "one" to it? If you can, wouldn't it come up blank? It if does, then it is populating a null, which obviously you can't see. Just some food for you...