Anyone here a Microsoft Access pro? [Plea for help]

[Apoco]

For the last few weeks I've been building up a database that will be turned into a SQL server in the future (and I'm learning as I go - I haven't used access for anything more than as an excel table that multiple people can alter at the same time). This is for management of data entry, reporting, etc. All the things you'd expect a database to do

I was reviewing the first form (Creating a new user) that I created within this database and realized that I created it before we agreed to follow Leszynski's naming convention. I renamed the fields and changed the VBA coding to reflect this. After breaking everything (Hurray!) and fixing most of it, I have hit one point that I haven't been able to correct. The code is shown below:

Private Sub tglNextRecord_Click()

'Verify Production causing entity
If [chkProduction] = Yes Then
DLookup("[Production]", "tblUserPCE", "[UserID] ='" & [TempVars]![tvCurrentUser] & "'") = Yes
Else: MsgBox "..."
End If
'Verify Handling causing entity
If [chkHandling] = Yes Then
DLookup("[Handling]", "tblUserPCE", "[UserID] ='" & [TempVars]![tvCurrentUser] & "'") = Yes
Else: MsgBox "..."
End If

The error I get is Error 424 - Object required. It flags the DLOOKUP("[Handling]",...) line. This line should not be operating as I have chkProduction with a check and chkHandling without. Since [chkHandling] = No it shouldn't even attempt to run..right? This worked prior to renaming the fields, however I have double, triple, quadruple, quintuple checked to ensure that the field name matches the VBA code.

The TempVars pulls the UserID of whomever logged into the database in the first place. It functioned in the chkProduction If statement so I do not believe that is the issue.

Any ideas? I'll be back from lunch in 45 minutes if you all wouldn't mind having this solved by then
Posted via Mobile Device

[elderboy02]

Damn. This is what I do for a living and I am baffled by this...

Let me think some more.

[Apoco]

Originally Posted by elderboy02

Damn. This is what I do for a living and I am baffled by this...

Let me think some more.

Yeah. It seems to be a doozy. And I have no training in access and I haven't done any form of "coding" (if you can call what I did coding) in YEARS. The power of google is strong with this one so far

Originally Posted by CigarNut

I would put

Msgbox "[UserID] ='" & [TempVars]![tvCurrentUser] & "'"

right at the top of the routine just in case.

It returned the stored TempVar - Needhal (my test loginID - built out with certain specs seperate of what I will actually use). It is pulling the correct value - the kink in the chain has to be that it does not understand what to do if the box is set to No. I checked the property sheet to ensure [Event Procedure] was listed in the "On Click" field and it was/is. I'll keep trying to google it and figure it out. Most of what googling has returned so far is not having [Event Procedure] in the right place (which also doesn't make sense. If access doesn't know to look for the VBA code and therefore ISN'T running it...why does it kick back an error )
Posted via Mobile Device

[CigarNut]

I would put

Msgbox "[UserID] ='" & [TempVars]![tvCurrentUser] & "'"

right at the top of the routine just in case.

[elderboy02]

OK. I am stumped. I would do what CigarNut advised in the post above.

[CigarNut]

This is one of the reasons I don't use access directly (anymore). Do all my coding in ADO on webpages and then I can use Acess or SQL Server databases and it all works...

Good luck!

[Apoco]

OK. So I slept on it for the night and came in ready to try to fix this error. It stops giving me the "Object Required error if I rearrange the formula from this:

DLookup("[Handling]", "tblUserPCE", "UserID = '" & Forms![frmNewUser]![strCurrentUser] & "'") = Yes

to this:

Yes = DLookup("[Handling]", "tblUserPCE", "UserID = '" & Forms![frmNewUser]![strCurrentUser] & "'")

The issue is that the DLookup is still not functioning.

SO...what I have done instead is set up a separate, hidden set of checkboxes that will run as soon as the user opens the form. It will populate the checkboxes from tblUserPCE/tblUserDisposition into frmNewUser.

I copy/pasted the exact DLookups that weren't functioning before...and now they work perfectly.

This is a temporary, ugly fix. There is some issue with my syntax. I do not understand why it is not accepted Dlookup()=Yes and is instead forcing Yes=Dlookup(). I also do not understand why Yes=Dlookup() breaks the DLookup()

In summary: Access sucks.
Posted via Mobile Device

[elderboy02]

Originally Posted by Apoco

OK. So I slept on it for the night and came in ready to try to fix this error. It stops giving me the "Object Required error if I rearrange the formula from this:



to this:



The issue is that the DLookup is still not functioning.

SO...what I have done instead is set up a separate, hidden set of checkboxes that will run as soon as the user opens the form. It will populate the checkboxes from tblUserPCE/tblUserDisposition into frmNewUser.

I copy/pasted the exact DLookups that weren't functioning before...and now they work perfectly.

This is a temporary, ugly fix. There is some issue with my syntax. I do not understand why it is not accepted Dlookup()=Yes and is instead forcing Yes=Dlookup(). I also do not understand why Yes=Dlookup() breaks the DLookup()

In summary: Access sucks.
Posted via Mobile Device

That really is strange. Usually in VB/VBA you have to have your variable on the left. I manage a word template here at work with TONS of lines of code. We use it for a complex exam the physical therapists do. I too have to use hidden fields in order to get the darn thing to work right. VBA really is a b***h to work with.

[Apoco]

Originally Posted by elderboy02

That really is strange. Usually in VB/VBA you have to have your variable on the left. I manage a word template here at work with TONS of lines of code. We use it for a complex exam the physical therapists do. I too have to use hidden fields in order to get the darn thing to work right. VBA really is a b***h to work with.

Exactly! It kicks back an "Object Required" error if my variable is on the left...and it doesn't function when the variable is on the right.

I just had a thought. Maybe instead of having it check all of them at once I should have them checking every time the user updates a given field...that might work...I'll be back in a few. Time for more testing.

EDIT: OK. If I instead run a code that looks like this:

Private Sub chkProduction_AfterUpdate()

If [chkProduction] = Yes Then
DLookup("[Production]", "tblUserPCE", "[UserID] = '" & Forms![frmNewUser]![strCurrentUser] & "'") = Yes
Else: [chkProduction] = ""
MsgBox "You may not create a user that can authorize Production issues"
End If

End Sub

And force it to check after each update it will work just fine on top of automatically changing the field to "No".

WHY DOES THIS WORK, BUT MY FIRST SOLUTION DOESN'T. *rage*
Posted via Mobile Device

[elderboy02]

Ha ha brother. You too have the VBA rage

[Apoco]

Originally Posted by elderboy02

Ha ha brother. You too have the VBA rage

I graduated with a double major in accounting and finance. I did this because I know I don't have the patience for programming

PS - I ran into another 424 error.

Private Sub chkOther_AfterUpdate()

'Verify Other capability
If [chkOther] = Yes Then
DLookup("[Other]", "tblUserPCE", "UserID = '" & Forms![frmNewUser]![strCurrentUser] & "'") = Yes
Else: [chkOther] = ""
MsgBox "You may not create a user that can authorize Other issues"
End If

End Sub

If the DLookup returns "No" then there is no error. If the DLookup returns "Yes" then I receive a '424' error.
Posted via Mobile Device

[Apoco]

This just in: I'm an idiot.

This form is for admins only. I had forgotten about that. They have access to do everything in the system...so there's no need to limit them.

I never got the controls to work...but I never needed them in the first place. *sigh*
Posted via Mobile Device

[jledou]

Just a thought even though you no longer need it Alex, but a couple things to check on the variable - was it dim'd properly, also we run into issues a lot with something above setting a variable/location that it is looking for as something unintended so although you code may be right a run before it sends this string looking in the wrong direction.
My run-ins with VBA though stem from using Excel to interface with a simulation program.

[Apoco]

Next question! (My previous question was resolved...and then destroyed as they changed their mind about what it should do)

What I'm working on now is creating a report filter via query. I know the reporting portion will be used even if the input section is bypassed in favor of direct interaction with SAP.

I have an IIf statement that looks like this as the criteria portion of a query:

IIf([Forms]![frmFILTER-rptAllIncidents]![cboCreateUser]<>"",[Forms]![frmFILTER-rptAllIncidents]![cboCreateUser],Like "*")

What I am having an issue with is the "Like "*"" section of the code. I want it to show all entries in the case of a filter being left blank. I have built a form with various combo boxes and text boxes that is functioning...so long as there's an entry in each. If one is left blank it will always return a blank report.

Is there a different way to have it return all fields? I assumed that having "Like "*"" would return all entries due to * being a wild card in MS Office. My google-fu has failed me on this one
Posted via Mobile Device