Re: Return to form if query unmatched

On Jun 14, 5:52 pm, Richard <Rich...@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote:
Thanks Bamar

The final solution I have gone with is using my original query as datasource
for the form and use the following code in the mouse move event of the form.

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
On Error GoTo MouseMove_Err
Dim MyRecCount As Long
MyRecCount = DCount("*", Form.RecordSource)

MouseMove_Exit:
Exit Sub

MouseMove_Err:
MsgBox "No record was found"
DoCmd.RunCommand acCmdClose
Resume MouseMove_Exit
End Sub

So if the query returns greater than 0 the user is taken to the correct
record on the form.

If the query returns 0 then the mouse move event automatically kicks in and
the form displays a message, which when clicked closes the form, and the user
is taken back to the Main Menu.

Thanks to everyone who helped.
--
Richard

"Bamar" wrote:
On Jun 14, 3:03 pm, Richard <Rich...@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote:
Thanks Bamar

I am trying to use your simpler version.

I am getting the following error message:

Run-time error '2471':

The expression you entered as a query parameter produced this error:
'The object doesn't contain the Automation object 'Enter the book number:."

Sorry to be a pain, but any idea what could be causing this?

I am by no means a programmer and need a lot of help with the coding.

Thanks again for your help.
--
Richard

"Bamar" wrote:
On Jun 14, 1:51 pm, Bamar <ko.zawminl...@xxxxxxxxx> wrote:
On Jun 14, 1:19 pm, Richard <Rich...@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote:

Thanks Ko Zaw

I have put your code into the Open event on my form, but I am getting the
following error message upon opening the form:

Compile Error:
User-define type not defined

and the following text is then highlighted:
Mydbs As Database

Any ideas?

Thank you for your help.
--
Richard

"Ko Zaw" wrote:
On Jun 14, 4:26 am, Richard <Rich...@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote:
Thanks Doug

I have done some searching, but can't find out how to do what you are
suggesting. Can you help me further please.

Thank you.
--
Richard

"Douglas J. Steele" wrote:
In the form's Open event, you can check whether the query returns any rows.
If it doesn't pop up a message and set Cancel = True.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)

"Richard" <Rich...@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:FEE65035-EA51-4F70-AF3D-E795EC93C6F5@xxxxxxxxxxxxxxxx
I have this query.

SELECT BOOKS.Number
FROM BOOKS
WHERE (((BOOKS.Number)<=[Enter the number:]))
GROUP BY BOOKS.Number
ORDER BY BOOKS.Number DESC;

What I want to do now is if the query returns no results, display a
message
then go to Main Manu form.

Can this be done?

I am using Windows XP and Access 2000.

Many thanks in advance.
--
Richard

Dear Richard,

Let me give you the code what Sir-Douglas talking about.

Private Sub Form_Open(Cancel As Integer)

Dim Mydbs As Database
Dim Myrst As Recordset
Dim MyRecCount As Long
Set Mydbs = CurrentDb
With Mydbs
Set Myrst = .OpenRecordset(Form.RecordSource)
MyRecCount = Myrst.RecordCount

If MyRecCount = 0 Then
MsgBox "This BOOK Number has " & MyRecCount & " no
Record." _
& vbCrLf & "You do not need to view."
Cancel = True
Else

MsgBox "This BOOK Number has " & MyRecCount & "
Record(s)."
End If
End With
Set Mydbs = Nothing
Set Myrst = Nothing

End Sub
__________________________________________________________
Ko Zaw

Hi Richard,

That mean you have to add more reference.
These reference can add from Code Windows > Tools Menu > Reference
button.
Check Marks to following and compile it.
- Visual Basic For Applications
- Microsoft Access xx.x Object Library (xx.x refer to digit)
- Microsoft Office xx.x Access Database Engine Object Library

It is always best to compile database before running.
And it is a practice.
______________________________
Bamar <NB: I've chaged My Nick Name from Ko Zaw to Bamar>

Another Method. using Dcount Function, which is simpler.

Private Sub Form_Open(Cancel As Integer)

Dim MyRecCount As Long
MyRecCount = DCount("*", Form.RecordSource)

If MyRecCount = 0 Then
MsgBox "This BOOK Number has " & MyRecCount & " no
Record." _
& vbCrLf & "You do not need to view."
Cancel = True
Else

MsgBox "This BOOK Number has " & MyRecCount & "
Record(s)."
End If
End Sub

__________________________________
Bamar

Dear Richard,

Please review your 1st post.

Your sql statement already has this parameter asking to enter it. So
it was asking it value.
This problem is not concern with any Form Open code, this is about
record source of that form.

Try create a new query, turn in to Design View and then to sql view,
and paste your sql in your 1st post.
And just turn into Data*** view. If there is an error, it can be
clearly seen that your sql has error.
Try amend it until no errror and then use as record source of that
form.

(OR)
You can let your Form to ask that Book Number, and it no Book Number
is provided, then let that Form to close it-self.
Which may be as following.

Private Sub Form_Open(Cancel As Integer)
Dim Str As String
Dim MyBookNumber As Long
Dim L
Dim i As Integer
i = 1
Do
L = InputBox("What is your Book Number?", , 1)
i = i + 1
If i = 10 Then
MsgBox "You cancel Ten Times. Will Exit!"
Cancel = True
Exit Sub
End If
Loop While L = ""
MyBookNumber = CLng(L)

Str = "SELECT BOOKS.Number " _
& "FROM BOOKS " _
& "WHERE (((BOOKS.Number) <= " _
& MyBookNumber & " )) " _
& "GROUP BY BOOKS.Number " _
& "ORDER BY BOOKS.Number DESC"

Form.RecordSource = Str
' Now [Enter the number:] became MyBookNumber

Dim MyRecCount As Long
' Form.RecordsetClone.MoveLast
MyRecCount = Form.RecordsetClone.RecordCount

If MyRecCount = 0 Then
MsgBox "This BOOK Number has " & MyRecCount & " no
Record." _
& vbCrLf & "You do not need to view."
Cancel = True
Else

MsgBox "This BOOK Number has " & MyRecCount & "
Record(s)."
End If

End Sub
__________________________________________________
Brgds,
Bamar

Dear Richard,

I'm not sure your coding is correct.
Please test after commenting/deleting following two lines in your
mouse_move event.
These tow line done nothing in your code.

Dim MyRecCount As Long
MyRecCount = DCount("*", Form.RecordSource)

I think your Recordsource query already have required parameter, so It
can open it and gone up to current state.
Then, you just triggered error on mouse_move event. That mean if any
error (regardless of record count) is triggered on mouse move, form
will close.

If you want to know what error is occurred, just replace your error
handling message as follow.
MsgBox Err.Number & Err.Description

Then, you will see what error is. It may not be zero record error.
I writing to you with all my code after simulating on my end.

__________________________
Bamar


.

Quantcast