Suddenly Receiving Run Time Error 2057 (2 Viewers)

[June7]

I think I'm in dumb mode today, so I am not sure what you are asking.

Code pulls EventID from form and sets value of glngEventID. Then makes another call to form to pull EventID again. Why not use variable just populated?

LTotal = DCount("ImageName", "tblImageFiles", "EventID= " & glngEventID)

 

[AngelSpeaks]

This doesn't answer the question. I have to make some assumptions here. That is not a function that returns a value and from its syntax, it has no input arguments. This means that whatever it does, it uses global variables, Access objects, or Windows objects to do what it does. But you didn't tell us how it does whatever it does. Is it something you wrote? Did it come from a system or 3rd-party product library? Did you get it online? What IS it?

Concept. A Photo Sharing Solution that works with another application that takes the photos and stores them in a folder (an Event). Once we get to frmEventsNImages, the application gets moved to another monitor that acts as a 'sharing station'. The 'sharing station' is locked out of all forms, reports, etc.

Here's the code. I look for the newest image taken for an event. The form, frmEventsNImages gets opened once. The way this works is all of the Events are displayed in a continuous form called frmEventsList. Several tasks are available for each event, frmEventsNImages is selected when an event is happening (ie, photobooth at a party), so frmEventsNImages gets opened once (to prevent users from going back to frmEventsList, a numeric keypad form is displayed to enter a pin number. This 'locks' various buttons on the form.)

frmEventsNImages shows the event from tblEvents and all of the images taken for that event, sorted with newest image first. This is where sfrmImages comes in. It displays up to six images for the event and the images can be scrolled through. Each image has buttons for sending emails, texts, or printing. sfrmImages is unbound. It is replacing a continuous form that I just don't like the layout.

Private Sub GetLastImage()
    On Error GoTo ErrorHandler
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSql As String
    Dim strCriteria As String
    strCriteria = Me.EventPath
    strSql = "SELECT ImagePath, ImageName, DateCreated From tblImageFiles  WHERE ImagePath = '" & strCriteria & "' ORDER BY DateCreated DESC"
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSql)
    
    'Since table is sorted by date descending, the newest file is first.  Extract the date
    With rs
    If rs.EOF Then
        MsgBox "No records for " & strCriteria, vbOKOnly, CurrentProject.nam
        Exit Sub
    End If
     .MoveFirst
     dteLastDate = rs![DateCreated]
     Me.txtLastImage = dteLastDate

    End With
    Requery      'this executes Form Current

ExitSub:
    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing
    Exit Sub
ErrorHandler:
    Dim Msg As String
    MsgBox Msg, , "Error" & Str(Err.Number), Err.HelpFile, Err.HelpContext
    Resume ExitSub

End Sub

frmEventsList. Run Event button will launch frmEventsNImages.

frmEventsNImages with sfrmImages. The camera button, close button are locked (invisible) to keep users from getting back to frmEventsList

 

[AngelSpeaks]

Code pulls EventID from form and sets value of glngEventID. Then makes another call to form to pull EventID again. Why not use variable just populated?

LTotal = DCount("ImageName", "tblImageFiles", "EventID= " & glngEventID)

Excellent suggestion. I wasn't being too smart when I coded it. Thanks

 

[cheekybuddha]

Do you have Option Explicit declared at the top of all your code modules?

' ...
        MsgBox "No records for " & strCriteria, vbOKOnly, CurrentProject.nam
' ...

Does that code compile?

 

[AngelSpeaks]

Do you have Option Explicit declared at the top of all your code modules?

' ...
        MsgBox "No records for " & strCriteria, vbOKOnly, CurrentProject.nam
' ...

Does that code compile?

Always use Option Explicit. Haven’t compiled in a while, so I will check it out.

 

[Gasman]

Always use Option Explicit. Haven’t compiled in a while, so I will check it out.

It is at compile time, that those errors are displayed.
Without compiling, you may as well not bother with Option Explicit.

 

[AngelSpeaks]

It is at compile time, that those errors are displayed.
Without compiling, you may as well not bother with Option Explicit.

I probably should compile every time I make a coding change but I get to involved.

 

[The_Doc_Man]

I probably should compile every time I make a coding change but I get to involved.

At least in theory, unless you have diddled with some setting I don't know about, making a change to the code text of a module triggers a recompile of that module on next attempt to execute. This is a selective compile in that other modules stay as-is unless you run a /Decompile operation beforehand. I've even changed a comment in the code text and THAT appeared to trigger a compile.

 

[AngelSpeaks]

Do you have Option Explicit declared at the top of all your code modules?

' ...
        MsgBox "No records for " & strCriteria, vbOKOnly, CurrentProject.nam
' ...

Does that code compile?

It compiled.

 

[cheekybuddha]

It compiled.

Very interesting.

I didn't know that the CurrentProject object had a .nam property.

 

[xavier.batlle]

Very interesting.

I didn't know that the CurrentProject object had a .nam property.

If we believe what the compiler tells us there are a lot of properties we don't know!

    Dim A As String
    A = CurrentProject.nam
    A = CurrentProject.pam
    A = CurrentProject.jam
    A = CurrentProject.lam
    A = CurrentProject.tamafsdfasdfasdf

This code compiles without issues

 

[cheekybuddha]

This code compiles without issues

That's just daft!

 

[The_Doc_Man]

As a follow-up to cheekybuddha's question - so that MsgBox statement compiled. But when it executes, what is in the title bar of the message box?

 

[AngelSpeaks]

As a follow-up to cheekybuddha's question - so that MsgBox statement compiled. But when it executes, what is in the title bar of the message box?

It hasn't executed. Before that procedure is executed, I already have a check for 0 records. Sometimes, I do a search for ideas and use the code that is returned. See post #5. It executes if dCount is greater than zero .

 

[The_Doc_Man]

The code snippet quoted by Dave (C.B.) in post #29 would be executed when you have zero records. It is the message box that would say "no records" plus some other details. SO... what does it actually say when you have no records?

 

[AngelSpeaks]

It doesn't get there because GetLastImage is executed when record count is greater than zero.

 

[arnelgp]

just a thought, don't close the Currentdb (db.Close).
just set it to Nothing.

 

[arnelgp]

with this code:

..
Me.frmImageFiles.SourceObject = "sfrmImages" 'name of the form to load in sfrmSubform2 control

your comment suggests that the subform name is sfrmSubform2? why use frmImageFile?

 

[AngelSpeaks]

just a thought, don't close the Currentdb (db.Close).
just set it to Nothing.

Thanks

 

[AngelSpeaks]

with this code:

..
Me.frmImageFiles.SourceObject = "sfrmImages" 'name of the form to load in sfrmSubform2 control

your comment suggests that the subform name is sfrmSubform2? why use frmImageFile?

Sfrmimages is replacing frmImageFiles, which should have been named sfrmImageFiles.