Er staat een checkbox met daarnaast een combobox.
Wanneer de checkbox aangevinkt wordt, dan komt de combobox ter beschikking.
Bij het verliezen van de focus op de combobox, wil ik controleren of het ingevuld is.
Hij controleert dit en toont een msgbox waarbij gevraagd wordt dit veld in te vullen.
Na het drukken op OK in de msgbox komt hij niet terug in dat veld, maar in het volgende veld.
Ik heb al van alles geprobeerd, maar hij doet het niet.
Dit is de code:
Private Sub cmbPM3_LostFocus()
If txtDepartementKeuze.Value = “Edit” Then
If cmbPM3.Text = “” Then
MsgBox “Fill in a Name in Product Management 3”, vbOKOnly
Else
If Forms!FrmEditTP!subFrmDepartement.Form!txtSubItemNr.Value <> Null Then
txtPM3Name.Value = cmbPM3.Value
End If
End If
ElseIf txtDepartementKeuze.Value = “New” Then
If cmbPM3.Text = “” Then
If MsgBox(“Fill in a Name in Product Management 3”, vbOKOnly) = vbOK Then
cmbPM3.SetFocus
End If
Else
If Forms!FrmNewTP!subFrmDepartement.Form!txtSubItemNr.Value <> Null Then
txtPM3Name.Value = cmbPM3.Value
End If
End If
End If
DoCmd.RunCommand acCmdSave
Me.AllowAdditions = False
End Sub
Wat doe ik verkeerd?