Msgbox error message/recheck field value

M

mb

Hello,
I've been searching for the answer to this all week, and I haven't been able
to find it. I'm new to building Access databases, but I've managed to do
pretty well with what I'm working on so far. The one problem that is holding
me up from being done with this is that I have an error check in place to
prevent users from entering numbers that are already in use, but once the
code runs the first time, it doesn't check to see if the value has been
changed. The msgbox keeps coming out even if an acceptable value is entered
after the original error. I have a query set up that updates a table with 2
fields: Category Numbers and the available Initiative Numbers for each
category. Then in the code for a data entry form that I've set up to input
data into a master table, I had this code, which I wanted to prevent the user
from saving the data if the Initiative Number is already use in the Master
Table:

Private Sub Save_and_Close_Click()
On Error GoTo Err_Save_and_Close_Click

If Not IsNull([CATEGORY #]) And Not IsNull(DLookup([INITIATIVE #], "2nd
Copy of Master", "[CATEGORY #] =" & [CATEGORY #])) Then
MsgBox "This Initiative # is already in use for the category you have
selected. Please assign a different Initiative number to this Initiative."
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.Close

Exit_Save_and_Close_Click:
Exit Sub

Err_Save_and_Close_Click:
MsgBox Err.Description
Resume Exit_Save_and_Close_Click

End Sub

The problem as stated before is that once the user gets the initial msgbox
stating that the initiative number is not available for use, it doesn't
recheck to see if the value of the initiative number has been changed--if it
no longer violates my If statement. When that didn't work, I tried this code
to prevent the user from saving the data if the Initiative Number wasn't
found in the table that contained available initiative numbers for each
category:

Private Sub Save_and_Close_Click()
On Error GoTo Err_Save_and_Close_Click

If [INITIATIVE #] <> In ( (DLookup([Initiative Numbers], "Avail Init #",
"[Category Numbers] =" & [CATEGORY #])) Then
MsgBox "This Initiative # is already in use for the category you have
selected. Please assign a different Initiative number to this Initiative."
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.Close

Exit_Save_and_Close_Click:
Exit Sub

Err_Save_and_Close_Click:
MsgBox Err.Description
Resume Exit_Save_and_Close_Click

End Sub

This doesn't work any better than the first code. Can someone help me
determine what I'm doing wrong, please? Thanks.
 
M

Maarkr

personally, I would change the design to have a sub lookup the last
initiative and autonumber it so the user wouldn't need to enter one. i would
also avoid spaces and # in my field names also to simplify things.

mb said:
Hello,
I've been searching for the answer to this all week, and I haven't been able
to find it. I'm new to building Access databases, but I've managed to do
pretty well with what I'm working on so far. The one problem that is holding
me up from being done with this is that I have an error check in place to
prevent users from entering numbers that are already in use, but once the
code runs the first time, it doesn't check to see if the value has been
changed. The msgbox keeps coming out even if an acceptable value is entered
after the original error. I have a query set up that updates a table with 2
fields: Category Numbers and the available Initiative Numbers for each
category. Then in the code for a data entry form that I've set up to input
data into a master table, I had this code, which I wanted to prevent the user
from saving the data if the Initiative Number is already use in the Master
Table:

Private Sub Save_and_Close_Click()
On Error GoTo Err_Save_and_Close_Click

If Not IsNull([CATEGORY #]) And Not IsNull(DLookup([INITIATIVE #], "2nd
Copy of Master", "[CATEGORY #] =" & [CATEGORY #])) Then
MsgBox "This Initiative # is already in use for the category you have
selected. Please assign a different Initiative number to this Initiative."
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.Close

Exit_Save_and_Close_Click:
Exit Sub

Err_Save_and_Close_Click:
MsgBox Err.Description
Resume Exit_Save_and_Close_Click

End Sub

The problem as stated before is that once the user gets the initial msgbox
stating that the initiative number is not available for use, it doesn't
recheck to see if the value of the initiative number has been changed--if it
no longer violates my If statement. When that didn't work, I tried this code
to prevent the user from saving the data if the Initiative Number wasn't
found in the table that contained available initiative numbers for each
category:

Private Sub Save_and_Close_Click()
On Error GoTo Err_Save_and_Close_Click

If [INITIATIVE #] <> In ( (DLookup([Initiative Numbers], "Avail Init #",
"[Category Numbers] =" & [CATEGORY #])) Then
MsgBox "This Initiative # is already in use for the category you have
selected. Please assign a different Initiative number to this Initiative."
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.Close

Exit_Save_and_Close_Click:
Exit Sub

Err_Save_and_Close_Click:
MsgBox Err.Description
Resume Exit_Save_and_Close_Click

End Sub

This doesn't work any better than the first code. Can someone help me
determine what I'm doing wrong, please? Thanks.
Click to expand...
 
M

mb

Thanks for your reply, but I need to allow users to select initiative numbers
out of sequence, otherwise this would work, I guess.

mb said:
Hello,
I've been searching for the answer to this all week, and I haven't been able
to find it. I'm new to building Access databases, but I've managed to do
pretty well with what I'm working on so far. The one problem that is holding
me up from being done with this is that I have an error check in place to
prevent users from entering numbers that are already in use, but once the
code runs the first time, it doesn't check to see if the value has been
changed. The msgbox keeps coming out even if an acceptable value is entered
after the original error. I have a query set up that updates a table with 2
fields: Category Numbers and the available Initiative Numbers for each
category. Then in the code for a data entry form that I've set up to input
data into a master table, I had this code, which I wanted to prevent the user
from saving the data if the Initiative Number is already use in the Master
Table:

Private Sub Save_and_Close_Click()
On Error GoTo Err_Save_and_Close_Click

If Not IsNull([CATEGORY #]) And Not IsNull(DLookup([INITIATIVE #], "2nd
Copy of Master", "[CATEGORY #] =" & [CATEGORY #])) Then
MsgBox "This Initiative # is already in use for the category you have
selected. Please assign a different Initiative number to this Initiative."
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.Close

Exit_Save_and_Close_Click:
Exit Sub

Err_Save_and_Close_Click:
MsgBox Err.Description
Resume Exit_Save_and_Close_Click

End Sub

The problem as stated before is that once the user gets the initial msgbox
stating that the initiative number is not available for use, it doesn't
recheck to see if the value of the initiative number has been changed--if it
no longer violates my If statement. When that didn't work, I tried this code
to prevent the user from saving the data if the Initiative Number wasn't
found in the table that contained available initiative numbers for each
category:

Private Sub Save_and_Close_Click()
On Error GoTo Err_Save_and_Close_Click

If [INITIATIVE #] <> In ( (DLookup([Initiative Numbers], "Avail Init #",
"[Category Numbers] =" & [CATEGORY #])) Then
MsgBox "This Initiative # is already in use for the category you have
selected. Please assign a different Initiative number to this Initiative."
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.Close

Exit_Save_and_Close_Click:
Exit Sub

Err_Save_and_Close_Click:
MsgBox Err.Description
Resume Exit_Save_and_Close_Click

End Sub

This doesn't work any better than the first code. Can someone help me
determine what I'm doing wrong, please? Thanks.
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Closing PDF file from Excel VBA (Adobe Reader, Adobe Acrobat, Browser) 0
VBA-Table Word 2019 - Move a selected text, from a cell to the adjacent cell to its right, by pressing the ENTER key 0
Prompt For Replace in Selection And More... 0
Run time error '2001' You cancelled the previous operation 2
WORD VBA Search and switch to advanced ... 1
MS Project Import Error Row 1 Column 5 2
How can the font and size of (all) citation numbers be altered? 1
AddPicturesToShapes 0

Top