A
Adrian
Hello Group!
I have this code and I need add message boxes:
That say:
1- "You must enter only numbers"
2- "The value must be different from zero"
3- "Please, enter some number > that zero"
Obviously the code also will have to be modified so that it fulfills those requirements....
How I do it?
--------------------------------------------------------------------------------
Private Sub SEARCHNroIPP_Click()
If DCount("*", "DBO_CAUSA", "[NumeroIPP]=" & Me.TXTBUSCAR) > 0 Then
Me.NumeroIPP.SetFocus
DoCmd.FindRecord Me.TXTBUSCAR, acEntire, , acSearchAll, , acCurrent, True
Else
MsgBox "La IPP no se encuetra cargada en la base", , "Advertencia!"
End If
End Sub
--------------------------------------------------------------------------------
I have this code and I need add message boxes:
That say:
1- "You must enter only numbers"
2- "The value must be different from zero"
3- "Please, enter some number > that zero"
Obviously the code also will have to be modified so that it fulfills those requirements....
How I do it?
--------------------------------------------------------------------------------
Private Sub SEARCHNroIPP_Click()
If DCount("*", "DBO_CAUSA", "[NumeroIPP]=" & Me.TXTBUSCAR) > 0 Then
Me.NumeroIPP.SetFocus
DoCmd.FindRecord Me.TXTBUSCAR, acEntire, , acSearchAll, , acCurrent, True
Else
MsgBox "La IPP no se encuetra cargada en la base", , "Advertencia!"
End If
End Sub
--------------------------------------------------------------------------------