"There is no object in this control" on Startup. How find which control's bad? (asks total novice)

[Starter-4-10]

Search of this site shows mtrcar1 asking What does noobjectin this control mean? in 2006. And getting zero replies.



The problem for us novices is, that while that msgbox shows, nothing but the msgbox responds to a click. So we click Ok, and get a crippled database.

C'mon, baby brother needs your advice!

[CJ_London]

have a look at this link for a number of reasons

https://nortonsafe.search.ask.com/we...doi=2016-09-01

[Starter-4-10]

Thank you. Your links show it can be a complicated matter to resolve, beyond my skills.

But is there no easy way to find out what Access is complaining about? What line of code, what control, perhaps even what object? Perhaps (wild guess) by Steps?

[CJ_London]

click the debug button instead of OK and it will take you to the vba window and highlight the offending line.

If you are using macros, regret I can't help, I don't use them, but perhaps they do something similar

[Starter-4-10]

Thanks ... but as I said, "The problem for us novices is, that while that msgbox shows, nothing but the msgbox responds to a click." Nothing. Except Microsoft's 'don't click here' jingle.

[John_G]

This is just a guess - but does the startup form have an image control on it, or perhaps some other type of "container" control? The error suggests you have code which is trying to manipulate something in a "container" which has nothing in it yet.

Can you open the database without opening the startup form (hold down the shift key)? If that works, then try opening the startup form to see if you still get the error. If you do, then there is probably something in the On Open or On Load event code that is causing it.

[CJ_London]

It would help if you provided more information

1. are you using vba or macros?

2. if using vba do you have 'Option Explicit' at the top of the module, just below 'Option Compare Database'. If not, in form design view, vba window, put it in then click the compile option on the debug menu. What errors, if any, do you get?

3. Do you get an error message box like this (error messages may be different)



or like this?


4. Your thread title says 'on Startup'. Does this mean when you open Access, or when a specific form is opened?

5. if the latter, how is the form being opened? by opening from the navigation window?, by autoexec macro or ordinary macro? by opening from another form?

6. If by macro or from another form, what code are you using? - copy and paste it in your response

7. In the form that generates the message, please provide the code you have (if any) in the following events: form open, form load, form resize, form current

All questions need to be answered before I can provide more help

[Starter-4-10]

Thanks very much, John_G and Ajax.

Alex’s question 2 SOLVED my “There is no object in this control” problem. Hero! But maybe John_G’s thinking is nearer the cause of the remaining problem, the non-functioning images? So I’ve left my full reply below, in case there's a useful clue.

But you’ve already been very generous with your time; if you've had enough, please feel free to drop this novice.

--------------------

The database works fine in Access 2002/XP, but not under Access 2003/Win 10. There may be one or two Active X involved, eg Microsoft Common Dialog Control 6.0 (sp3) ticked in References.

The first form to be opened is frmMainMenu. It has no images. Then frmItems is opened, which has 4 photo frames per record, linked to 4 photo folders. Double-click opens a Yes/No/Cancel msgbox, Yes should opens a photo folder to change the photo. Under Win10, there’s no access to the photo folders.

Opening the database holding shift: no problem, Database Window opens, showing Module Basinitialise (code below), which contains the line If Mid(MyDB.Name, intCount, 1) = "" Then - with Mid highlighted and msgbox “Compile Error Can’t find project or library”.

References shows MISSING: Microsoft Office XP Web Components. Untick that, return to Database Window, select Macros, double-click Autoexec. “There is no object in this control”. OK. “There is no object in this control”. OK. Database opens as in XP, Double-Click opens Yes/No/Cancel msgbox opens, but Yes does nothing, though the table listing the currently-chosen images looks fine.

In the Code, CTRL+F, select Current Project, neither On Open or On Load found.

Answering Ajax (with links to what’s above in this reply)

1. Both. Autoexec (macro) “calls” Basinitialise (module, in vba). Forms have vba.

1. Yes, got 'Option Explicit' in Basinitialise. But did compile anyway. In frmMainMenu, a function opening a redundant form. “Compile error Sub or Function not defined”. Put a ‘ note on every line. Compile again, no problems. Run Autoexec; database opened – WITHOUT “There is no object in this control”. But same photo-management problems.

1. Only as in 2 above.

1. When a specific database is opened.

1. Same problems, whichever way … I think.

1. Autoexec (RunCode GetDBPath () in code below, OpenForm frmMainMenu)

Option Compare Database
Option Explicit

Public strDBPath As String
Public strPhotoDir1 As String
Public strPhotoDir2 As String
Public strPhotoDir3 As String
Public strPhotoDir4 As String 'line added DB
Public strGraphicDir As String

Public intFormHeight As Integer
Public intFormWidth As Integer

Function GetDBPath()

Dim MyDB As Database
Dim intTitleLength, intDBLength, intCount As Integer

Set MyDB = CurrentDb() 'MyDB now means "this database"

intDBLength = Len(MyDB.Name)

For intCount = intDBLength To 1 Step -1
If Mid(MyDB.Name, intCount, 1) = "" Then
Exit For
End If
Next

intTitleLength = intDBLength - intCount

strDBPath = Left(MyDB.Name, Len(MyDB.Name) - intTitleLength)
strPhotoDir1 = strDBPath & "dbase photos1"
strPhotoDir2 = strDBPath & "dbase photos2"
strPhotoDir3 = strDBPath & "dbase photos3"
strPhotoDir4 = strDBPath & "dbase photos4" ' line added DB
strGraphicDir = strDBPath & "dbase graphics"
'MsgBox "Autogenerated paths:@Database: " & strDBPath & "@Photos: " & strPhotoDir4

Debug.Print "Exit Basinitialise" 'Tracking DB

End Function

7. Searched with CTRL+F Current Project. None of these found.

[CJ_London]

not sure what this is supposed to do

For intCount = intDBLength To 1 Step -1
        If Mid(MyDB.Name, intCount, 1) = "" Then
            Exit For
        End If
    Next

so far as I am aware, you cannot have a ZLS ("") as a character, so intcount is always going to end up equal to 1

So lets say mydb.name has a length of 20 characters

intDBLength = Len(MyDB.Name)

ergo intDBLength=20

you then calculate intCount - which will equal 1

you then calculate

intTitleLength = intDBLength - intCount

so intTitleLength=20-1=19

next

strDBPath = Left(MyDB.Name, Len(MyDB.Name) - intTitleLength)

which is Left(MyDB.Name,20-19) - i.e. the first character

[Starter-4-10]

Vaguely grasp your explanation. As you know, this code works in Access 2000/XP, but causes “Compile Error Can’t find project or library” in Access 2003/Win 10 until Reference to MISSING: Microsoft Office XP Web Components is unticked. Could this code be related to the inaccessibity (in 2003/Win10) of photo folders? In some circumstances, Access says 'This database needs OWC10.dll version 2'. Because I unticked?

In case it helps you, here's the code running the photo management (btw, I feel like a boy scout getting instructions by semaphore from a brain surgeon. I assume I'm not allowed to send you the 200 meg database? And why 200 Meg for a few tables?)

Private Sub fraPhoto3_DblClick(Cancel As Integer)

On Error GoTo Err_fraPhoto3_DblClick

Dim strPath As String
Dim iResponse As Integer

iResponse = vbYes
If Me.Photo3 <> "" Then iResponse = MsgBox("Do you want to Replace image (Yes), Remove image (No), or Leave image (Cancel)?", vbYesNoCancel)

If iResponse = vbYes Then
ctlCommonDialog.InitDir = strPhotoDir3
ctlCommonDialog.ShowOpen
strPath = ctlCommonDialog.FileTitle
Me.Photo3 = strPath
Me.fraPhoto3.Picture = strPath
ElseIf iResponse = vbNo Then
Me.Photo3 = Null
Me.fraPhoto3.Picture = ""
End If
Err_fraPhoto3_DblClick:


End Sub

[CJ_London]

Your initial question was about 'no object in this control'

This appears to be solved but you then moved on to a function called getpath. Is this in your Basinitialise module? if so what calls it.

but without an apparent resolution, you are now talking about a double click event.

So with regards your last post - the double click event, please put this in a new thread. And please clarify on this thread what the issue is with your getpath function

[Starter-4-10]

Understood. Thanks for all your help. If you'd like to mark this thread as solved, that's fine by me.

[CJ_London]

you can do that yourself - go to the top of the thread, click on thread tools and select 'Mark this thread as solved'