I have a form with 8 textfields. Textfield1 is combo box. Thus, when user chooses an item, Textfield2 and Textfield3 automatically retrieve value from DB and fill in the textfields (in lostfocus event). Then, user will add running number behind Textfield3. After that, fill in the rest of the fields. The last field is address, where user clicks a 'To' button and select from list view. Here, once the user clicks the 'To' button, Textfield3 resume back to data retrieved from DB where the running number disappears. I know it's because of the lostfocus event I have for Textfield1.
But, how do i prevent running number from missing? How to stop the lostfocus event once Textfield2 and Textfield3 are filled.
Please help me with this problem. Thanks in advance.
The lostfocus event code:
Private Sub cbMN_LostFocus() Dim strExtract As String Call GET_MODEL_DESCRIPTION For i = 1 To Len(cbMN.Text) If Mid(cbMN.Text, i, 1) = "-" Then Else strExtract = strExtract & Mid(cbMN.Text, i, 1) End If Next If format(Date, "ww") = 53 Then Me.txtBoxID.Text = strExtract & format(Date, "yy") + 1 & "01" Else Me.txtBoxID.Text = strExtract & format(Date, "yy") If Len(format(Date, "ww")) < 2 Then Me.txtBoxID.Text = Me.txtBoxID.Text & 0 & format(Date, "ww") Else Me.txtBoxID.Text = Me.txtBoxID.Text & format(Date, "ww") End If End If Me.txtPO_No.SetFocus End Sub