Search results
-
S
Not In List Code
Private Sub cbo"Name"_NotInList(NewData As String, Response as Integer) Dim strMsg As String Dim rst As DAO.Recordset Dim db As DAO.Database strMsg = "'" & NewData & "' is not in the list. " strMsg = strMsg & "Would you like to add it?" If vbNo = MsgBox(strMsg, vbYesNo + vbQuestion,"New...- sredworb
- Thread
- Replies: 0
- Forum: Code Repository
-
S
Not In List Event Problem
Try This Private Sub cbo"Name"_NotInList(NewData As String, Response as Integer) Dim strMsg As String Dim rst As DAO.Recordset Dim db As DAO.Database strMsg = "'" & NewData & "' is not in the list. " strMsg = strMsg & "Would you like to add it?" If vbNo = MsgBox(strMsg, vbYesNo +...