Rename Message Box

  • Thread starter Thread starter Humbled Learner
  • Start date Start date
H

Humbled Learner

I have a combo box which is set to autofill client name or open message box.
When the message box opens, (in the blue area) it shows 32.

I've looked everywhere in access that may show 32, figuring I could change
it and I can't find it anywhere. Can I change the 32 to reflect Add Client?



Private Sub ClientID_NotInList(NewData As String, Response As Integer)
On Error GoTo Err_cboClientID_NotInList

Dim intAnswer As Integer

intAnswer = MsgBox("Would you like to add this value to the list?", vbYesNo,
vbQuestion)
If intAnswer = vbYes Then
DoCmd.RunCommand acCmdUndo
DoCmd.OpenForm "Add Client", acNormal, , , acFormAdd, acDialog
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If

Exit_cboClientID_NotInList:
Exit Sub

Err_cboClientID_NotInList:
MsgBox Err.Description
Resume Exit_cboClientID_NotInList

End Sub


Thank You
 
Try:

intAnswer = MsgBox("Would you like to add this value to the list?", vbYesNo,
"Add Client")
 
In case you want the question mark icon in the message box (which you appear
to have been trying to get originally), use

intAnswer = MsgBox("Would you like to add this value to the list?", _
vbYesNo + vbQuestion, "Add Client")
 
Back
Top