Create an error message from a search button (1 Viewer)

[macftm]

Hello,
I am new to MS Access in terms of using the Macro functions. I am trying to create a search button which will return a set of forms related to a particular person which I have created a table for.

At present I have got this to work by linking a query (and its form) to the textboxes in search form and using the open form Macro on the button located on a search form. However, if I enter the details of a person who does not already exist in the person details table, the form still appears but without a related record.

What I would like is an error message to appear telling the user that they have entered their search details incorrectly instead of bring up a blank form?


Sorry to be a pain and probably very vague request.


Macftm

 

[vbaInet]

What I would like is an error message to appear telling the user that they have entered their search details incorrectly instead of bring up a blank form?

What really constitutes an incorrect entry? By entering details of someone that doesn't exist doesn't mean that the entry was incorrect. Having a message box pop up everytime will be a bit of a nuissance.

What you can do instead is to show the number of matched records in a textbox. That will be more intuitive.

 

[macftm]

Thanks for your suggestion. I want to use the search form and button as a verification of the user as well as providing the user with the relevant forms to complete.

 

[vbaInet]

Please elaborate. You still want to display a msgbox when no records are found?

 

[macftm]

Sorry to be a pain. Essentially what I am looking to do on the inital form is for the user to enter their details (Surname, dept and password) and to return the forms related to that individual so they can fill in the appropriate sections. At the same time I want to use this inital form to validate themself by running these details through a query.

If the person details are within the datebase table, the forms related to that person are return once the search button is click.

However, is any of the details are incorrect, the set of forms are still appearing but not link to any users details.

Instead of bring up these blank forms, I want a warning message to appear telling the user that they have enter their details incorrectly and that they must re-eneter their details.

Thanks for you help and interest in attempting to resolve my problem.

Macftm

 

[vbaInet]

How many search boxes do you have and what are the names?

 

[macftm]

3 search boxes (all unbound) named as: Surname; Registration Class and Password

 

[vbaInet]

Can you change those names to txtSurname, txtRegClass and txtPassword.

Let's see the code you use to perform the search. The one behind the command button.

 

[macftm]

I've changed the names as you stated. The first textbox was actually Username not Surname. Therefore, these textboxes are now called: txtUserName, txtRegClass and txtPassword.

I have a query linked to these boxes which have the following expressions in the criteria section of the relevant fields:
User Name: [Forms]![F_PupilDetailsSearch]![txtUserName]
Registration Class: [Forms]![F_PupilDetailsSearch]![txtRegClass]
Password: [Forms]![F_PupilDetailsSearch]![txtPassword]

The button connected to the search form has an 'on click' event action: Open Form which holds a Navigation form containing all the relevant forms the user must complete.

As mentioned in earlier posts, if the details entered into the search form match up with those in the query, the users details appear in the Navigation form. However, if any of these details are incorrect, a blank form appears. I do not want a blank form to appear, but an error message stating that some of their search details are incorrect.

Thanks for all your help so far vbaInet.

Macftm

 

[vbaInet]

Cool. You're missing one more request -->

Let's see the code you use to perform the search. The one behind the command button.

 

[macftm]

I do not have any code attached to the button, just the macro event 'on click' Open Navigation form

 

[vbaInet]

Can you convert that macro to code instead? What I'm about to advise is done in code.

You simply need to add this code behind the Click event (i.e. Event Procedure) of the button.

If Nz(DCount("*", "[COLOR=Red]Query Name[/COLOR]"), 0) = 0 Then
    Msgbox "[COLOR=Red]Your warning message here[/COLOR]"
Else
    DoCmd.OpenForm "[COLOR=Red]Form Name[/COLOR]"
End If

Amend the bits in red.

 

[macftm]

Hi vbaInet, thanks once again for your prompt reply. I've tried your code with no success. Can I send you a test sample of the database so you can have a look at what I am doing wrong? My test database just has the pupil information table, Query & form query and search form within it.

 

[vbaInet]

Go ahead!

 

[macftm]

Cheers

The details for the search textboxes can be found in T_Pupil_Information

 

[Taruz]

Hi..

vbaInet's implementation of the proposal ..:

Private Sub Command10_Click()
If Nz(DCount("*", "Q_PSE_Pupil_Search"), 0) = 0 Then
    MsgBox "Your warning message here"
Else
    DoCmd.OpenForm "F_PSE_Pupil_Profile"
End If
End Sub

this is a different solution..:

use the "F_PSE_Pupil_Profile" form of

Private Sub Form_Open(Cancel As Integer)
If RecordsetClone.RecordCount = 0 Then
MsgBox "Your warning message here"
DoCmd.Close
End If
End Sub

 

[vbaInet]

use the "F_PSE_Pupil_Profile" form of

Private Sub Form_Open(Cancel As Integer)
If RecordsetClone.RecordCount = 0 Then
MsgBox "Your warning message here"
DoCmd.Close
End If
End Sub

... and remember to trap for the error 2501

 

[macftm]

Cheers guys, can I just asks where to put this code??

 

[macftm]

Sorry, I have sorted it now. Thanks for all your help. Can you recommend and good books or webpages to learn about macros and VBA from a beginners level?? Thanks once again for all your help and support.

 

[vbaInet]

They say http://www.functionx.com/ is a good one.