Access help...can't figure this out...

[Spitfire999]

This is probably really easy, but here is the deal. I have an input form and it has one field where you input a $ value. The engineering guys like to pretend this field isn't there...I want to remind them to fill it out when they don't.

So, when I click the exit button, if that field is blank, I want a message to pop up and say please put something in there.

Private Sub CloseForm_Click()

_________________________________

If Final_Price_$ = "" Or IsNull(Final_Price_$) Then
MsgBox "Need pricePrice"
End If
__________________________________

On Error GoTo Err_CloseForm_Click
DoCmd.Close

Exit_CloseForm_Click:
Exit Sub

Err_CloseForm_Click:
MsgBox Err.Description
Resume Exit_CloseForm_Click

End Sub

The part sectioned off is the code I am working on. At the moment when I run that it will always display the message even if it is filled in and then skip to the would you like to save input changes window (I think I may need to use the .setfocus if it is blank).

Final_Price_$ is the name of the input box btw.

Help would be great
Thanks
Ben

* Registered users of the site do not see these ads.

[charlie_tuna]

I'm not totally up on my VB, but I think that "IsNull(Final_Price_$)" is not the right logical test.

[imprezton]

Private Sub CloseForm_Click()

_________________________________

If Final_Price_$ = "" Or IsNull(Final_Price_$) Then
MsgBox "Need pricePrice"
Goto EndSubWithoutClosing
End If 
__________________________________

On Error GoTo Err_CloseForm_Click
DoCmd.Close

Exit_CloseForm_Click:
Exit Sub

Err_CloseForm_Click:
MsgBox Err.Description
Resume Exit_CloseForm_Click
EndSubWithoutClosing:
End Sub

Your message logic is fine. The problem is that you do nothing to preven the close operation after you've raised the message.

[Spitfire999]

Originally Posted by imprezton

Private Sub CloseForm_Click()

_________________________________

If Final_Price_$ = "" Or IsNull(Final_Price_$) Then
MsgBox "Need pricePrice"
Goto EndSubWithoutClosing
End If 
__________________________________

On Error GoTo Err_CloseForm_Click
DoCmd.Close

Exit_CloseForm_Click:
Exit Sub

Err_CloseForm_Click:
MsgBox Err.Description
Resume Exit_CloseForm_Click
EndSubWithoutClosing:
End Sub

Your message logic is fine. The problem is that you do nothing to preven the close operation after you've raised the message.

I felt like my logic was correct as well, but it always displays the message, even if "Final_price_$" is not equal to null.

[imprezton]

Then try this:

Private Sub CloseForm_Click()

_________________________________

If Final_Price_$ = "" Then
MsgBox "Need pricePrice"
Goto EndSubWithoutClosing
Else if IsNull(Final_Price_$) Then
MsgBox "Need pricePrice"
Goto EndSubWithoutClosing
End If 
End If
__________________________________

On Error GoTo Err_CloseForm_Click
DoCmd.Close

Exit_CloseForm_Click:
Exit Sub

Err_CloseForm_Click:
MsgBox Err.Description
Resume Exit_CloseForm_Click
EndSubWithoutClosing:
End Sub

[imprezton]

Or this:

Private Sub CloseForm_Click()

_________________________________

If Final_Price_$ = "" Or Final_Price_$ Is Null Then
MsgBox "Need pricePrice"
Goto EndSubWithoutClosing
End If 
__________________________________

On Error GoTo Err_CloseForm_Click
DoCmd.Close

Exit_CloseForm_Click:
Exit Sub

Err_CloseForm_Click:
MsgBox Err.Description
Resume Exit_CloseForm_Click
EndSubWithoutClosing:
End Sub

[pgtkid]

Is the input box connected to a table to which you input that data youre requesting?

If so just go into the table and make that field a required field and access will generate an automated prompt no to leave that field empty.