Attachment 48626 Somehow this err is my fault....but I can't see what I am doing wrong.Can you see it? i can upload the accdb file if needed. Thanks.
Attachment 48626 Somehow this err is my fault....but I can't see what I am doing wrong.Can you see it? i can upload the accdb file if needed. Thanks.
Have we mentioned to you before that posting Text of code is much more preferable than an Image of code?
In any case you've commented out the procedure name and maybe the End Sub also.
Private sub Form_Current()
???Does this statement exist within a procedure???
"Private Sub Form_Current() etc is all commented out
So there is NO Procedure
OOooops Davegri is toooo quick
Attachment 48629Here is the code and the startup err msg:
Private Sub Form_Load()
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("QryMemNav")
End Sub
"This dim code is duplicated in my MAIN procedure module....
This is my startup err msg: (in my app--Attachment 48630 I suspect the issue revolves around my failure to understand DIM db and Dim Rst???? Question "Do Ireally have to DIM in each sub form(load etc) If i put the dim lines in a general procedure declarations area, "how does it get called?" thank...
Or, perhaps it is something else????So, her is the app fileAttachment 48631:48631[/ATTACH]
Let me recommend you go back to post#4 at this thread: self-join possible? (accessforums.net)
The DB that you uploaded today (taken from a nicely working DB that is referenced in the above thread) is impossibly botched up and unworkable. The membership form has no recordsource. Repeatedly invoking new recordsets based on an abbreviated query in multiple procedures makes no sense. In my opinion any database code that you touch will instantly become fatally flawed. You need to work as a user and not a developer with apps provided to you. Good luck.
I don't know why it is corrupted....... So, here is the class module code:
Private Sub Form_Load()
Set db = CurrentDb
Set rst = db.OpenRecordset("QryMemNav")
DoCmd.GoToRecord , "", acFirst
End Sub
Private Sub Form_Current()
On Error Resume Next
Set db = CurrentDb
Set rst = db.OpenRecordset("QryMemNav")
On Error GoTo Form_Current_Error
cboSearch = Null
'update the custom navigation record count
Call subCommon_Form_Current(Me.Form)
'Form_Current_EXIT:
' Exit Sub
Form_Current_Error:
MsgBox "error" & " " & Err
Select Case Err
Case Else
MsgBox Err & ", " & Err.Description & " form " & Me.Name
End Select
' Resume Form_Current_EXIT
End Sub
Private Sub cmdFirst_Click()
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("QryMemNav")
On Error Resume Next
DoCmd.GoToRecord , "", acFirst
rst.Close
Set rst = Nothing
Set db = Nothing
End Sub
Private Sub cmdPrev_Click()
On Error Resume Next
'===============
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("QryMemNav")
DoCmd.GoToRecord , "", acPrevious
rst.Close
Set rst = Nothing
Set db = Nothing
End Sub
Private Sub cmdNext_Click()
On Error Resume Next
DoCmd.GoToRecord , "", acNext
End Sub
Private Sub cmdLast_Click()
On Error Resume Next
DoCmd.GoToRecord , "", acLast
DoCmd.Requery "cbosearch"
End Sub
As always your thoughts are appreciated...
I'm beginning to think we're being played here. I'm out.As always your thoughts are appreciated...
Here's an example."played" to what end?
You post and ask a question about a problem you want help to solve. We take this at face value, as the problem seems easy to solve, however after numerous exchanges over time we notice that you are ignoring all the excellent advice you are given.
Why do you play these games with us? The truth is you don’t want us to solve your problem; you want to gain energy, a feeling of power and satisfaction from a dramatic interaction with us, where we become heated and frustrated. It's a form of trolling.
Frustrating exchanges such as this can waste too much of our time and energy and are helpful to no one.
That, my dear Ron, is why I don't want to play.
But do you know how to work with Access?
From the code you wrote and the events you used it just doesn't seem like it.
By way of explanation,what I am after is UNDESTANDING the solution. I DO NO WANT YOU OR ANYONE ELSE TO CREATE THE SOLUTION FOR ME.Your solution involves module code and other aspects without an explanation. For example, The Sponsers dropdown didn't have a rowsource but it did have, without explanation. additional standard module code....???Try this "Since you find my questions irritating, just don't reply."
Advice that is not understood is in fact, advice not given.Here's an example.
You post and ask a question about a problem you want help to solve. We take this at face value, as the problem seems easy to solve, however after numerous exchanges over time we notice that you are ignoring all the excellent advice you are given.
Why do you play these games with us? The truth is you don’t want us to solve your problem; you want to gain energy, a feeling of power and satisfaction from a dramatic interaction with us, where we become heated and frustrated. It's a form of trolling.
Frustrating exchanges such as this can waste too much of our time and energy and are helpful to no one.
That, my dear Ron, is why I don't want to play.
For example, I trade stock equity contracts and you ask me a question. "Should I go long or short, in or out of the money. I reply and after several back and forth exchanges state that "you are playing me" because you continue to ask questions. Isn't the responsibility for the message being understood, resting with the speaker? For example, below is a query err I get, despite recreating the query.I DO NOT HAVE A MEMBER TABLE and using Members[Prefix] or Members.Prefix does nothing.
Attachment 49086
Meanwhile, to answer such a question it would be necessary to see the sql predicate of the query and the fact remains, as you have been told previously, that in order to work you also need to know what you are doing otherwise you will not come to the end of anything.