Objectvariabele of blokvariabele With is niet ingesteld

[ExelHenk]

Ik heb de volgende code in VBA ingevoerd:

Sheets("Date-Database").Visible = True
Sheets("Lists").Visible = True
Sheets("Materials").Visible = True
ChangeMaterialsArrivedOnStore.Show

bedoeling is dat hij dan een formulier laat zien, maar ik krijg de volgende foutcode: "Objectvariabele of blokvariabele With is niet ingesteld" wat doe ik fout? Ik heb het in hetzelfde bestand al meerdere malen gedaan en het werkte altijd.

 

[ExelHenk]

Dit is de complete code:

Private Sub CommandButton27_Click()
Const PWORD As String = "j867r5tf"
Dim response As String
Dim msg As String
msg = "Add password"
Do
response = Application.InputBox(Prompt:=msg, Title:="Password", Type:=2)
If response = CStr(False) Then Exit Sub 'Cancel
msg = "Incorrect" & vbNewLine & "Add password again"
Loop Until response = PWORD

'Change materials arrived on store
Sheets("Date-Database").Visible = True
Sheets("Lists").Visible = True
Sheets("Materials").Visible = True
ChangeMaterialsArrivedOnStore.Show

End Sub

 

[ExelHenk]

Oke, als ik op de knop druk en dan de code intyp om naar het formulier te gaan krijg ik de volgende foutcode: Fout 438 tijdens uitvoering, deze eigenschap of methode wordt niet ondersteund. Vervolgens doe ik foutopsporing en dan kom ik in VBA waar ChangeMaterialsArrivedOnStore.Show geel wordt weergegeven. Als ik kijk wat hier fout aan is krijg ik te zien dat de objectvariabele of blokvariabele niet is ingesteld. Geen idee wat dit betekend of wat ik moet doen. Wie helpt mij?

 

[Warme bakkertje]

Welke code wordt er gedraaid bij het openen v/h formulier (Userform_Initialize), want daar gaat het waarschijnlijk fout bij het laden v/h formulier.

 

[ExelHenk]

Denk dat het komt omdat het een groot, onstabiel programma is. Na een paar keer doet ie het gewoon.