Error 3075 - cant find the solution to why i get this error

[behedwin]

Hi

My database launches SelecProfile_Form when it starts.
Then i run this code

Application.Echo False

If Form_SelectProfile_Form.Dirty Then Form_SelectProfile_Form.Dirty = False
If Not IsNull(Form_SelectProfile_Form.txtProfile_ID) Then
DoCmd.OpenForm "Profile_Form", , , "Profile_ID = " & Form_SelectProfile_Form.ListPicker
End If

If Me.Dirty Then Me.Dirty = True
DoCmd.Close acForm, Me.Name

ProfileEffects_Read

Application.Echo True

When double clicking on a listbox row.

Then my profile_form opens

Then i run this code

Private Sub TjanstFordelning_Button_Click()
Application.Echo False


If Me.Dirty Then Me.Dirty = False
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "UndervisningsTid_Form"
Form_SelectProfile_Form.ListPicker.Requery

Application.Echo True
End Sub

and directly this code

Private Sub txtCloseSave_Button_Click()
Application.Echo False


If Me.Dirty Then Me.Dirty = True
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "Profile_Form"
Forms!Profile_Form.Requery


Application.Echo True
End Sub

and this code

Private Sub Close_button_Click()
Application.Echo False

If Me.Dirty Then Me.Dirty = False
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "SelectProfile_Form"
Form_SelectProfile_Form.ListPicker.Requery

Application.Echo True
End Sub

then i run the first code again (double click the listbox)
and i get this error message

screenshot: http://prntscr.com/he4jkc
Error 3075 SYNTAXERROR on profile_id
If i go to the code, excel highligths this row

Private Sub ListPicker_DblClick(Cancel As Integer)
Application.Echo False

If Form_SelectProfile_Form.Dirty Then Form_SelectProfile_Form.Dirty = False
If Not IsNull(Form_SelectProfile_Form.txtProfile_ID) Then
[I][B]DoCmd.OpenForm "Profile_Form", , , "Profile_ID = " & Form_SelectProfile_Form.ListPicker[/B][/I]
End If

If Me.Dirty Then Me.Dirty = True
DoCmd.Close acForm, Me.Name

ProfileEffects_Read

Application.Echo True
End Sub

i only get this error if i go from form selectprofile_form opens a profile to profile_form
go the button that opens undervisningstid_form
close that form and then close profile_form
and try to open the profile again.

if i skip opening undervisningstid_form i do not get this error atall.



Please help me find the error so i can correct it.
If you want my project file, let me know and ill upload it.

 

[Norie]

What is the value of ListPicker.ListIndex when you get the error?

If it's not -1 you might be able to use it to get the selected value from ListPicker.

Something like this perhaps.

With Form_SelectProfile_Form.ListPicker
    DoCmd.OpenForm "Profile_Form", , , "Profile_ID = " & .List(.ListIndex
End With

 

[behedwin]

What is the value of ListPicker.ListIndex when you get the error?

If it's not -1 you might be able to use it to get the selected value from ListPicker.

Something like this perhaps.

With Form_SelectProfile_Form.ListPicker
    DoCmd.OpenForm "Profile_Form", , , "Profile_ID = " & .List(.ListIndex
End With

When the error occurs
i did what you said before ctrl+g and use

? Form_SelectProfile_Form.ListPicker.value

Then the result is "Null"


I updated the code to this (with your suggestion)

Private Sub ListPicker_DblClick(Cancel As Integer)
Application.Echo False

If Form_SelectProfile_Form.Dirty Then Form_SelectProfile_Form.Dirty = False
If Not IsNull(Form_SelectProfile_Form.txtProfile_ID) Then
If ListPicker.ListIndex = -1 Then
Exit Sub
Else
[B]With Form_SelectProfile_Form.ListPicker
    DoCmd.OpenForm "Profile_Form", , , "Profile_ID = " & .List(.ListIndex
End With[/B]
'DoCmd.OpenForm "Profile_Form", , , "Profile_ID = " & Form_SelectProfile_Form.ListPicker
End If
End If

If Me.Dirty Then Me.Dirty = True
DoCmd.Close acForm, Me.Name

ProfileEffects_Read

Application.Echo True
End Sub

This does not work atall
I cant double click at any time.

I get this error
http://prntscr.com/hee36v (screenshot)

if i run the immediate directly after this error
i get the result that is "24"
that is the correct value.
screenshot: http://prntscr.com/hee45f (screenshot)

 

[Norie]

There's a missing closing ).

With Form_SelectProfile_Form.ListPicker
    DoCmd.OpenForm "Profile_Form", , , "Profile_ID = " & .List(.ListIndex)
End With

 

[behedwin]

There's a missing closing ).

With Form_SelectProfile_Form.ListPicker
    DoCmd.OpenForm "Profile_Form", , , "Profile_ID = " & .List(.ListIndex)
End With

That code generates an error anyway
screenshot: http://prntscr.com/heeoib

 

[Norie]

Forgot it was Access, perhaps.

With Form_SelectProfile_Form.ListPicker
    DoCmd.OpenForm "Profile_Form", , , "Profile_ID = " & .ItemData(.ListIndex)
End With

 

[behedwin]

Forgot it was Access, perhaps.

With Form_SelectProfile_Form.ListPicker
    DoCmd.OpenForm "Profile_Form", , , "Profile_ID = " & .ItemData(.ListIndex)
End With

That worked.
However the same orginal problem is still there
http://prntscr.com/heerz3 (screenshot)
http://prntscr.com/heesmj (screenshot)

and the value still thinks it is null.


here is my file uploaded.
download here: https://ufile.io/0v7ad

If you open, then go to:
1. Open SelectProfile_Form
2. DoubleClick on a row in the big listbox
3. Profiles opens
4. Click on "ÖPPNA TJÄNSTEFÖRDELNING" (at the top of the profile_form window)
5. New form is opening
6. Click "SPARA & STÄNG" at the top right corner of the new form.
7. Form will close
8. Click "SPARA & STÄNG" in Profile_Form form.
9. Form will close
10. Doubleclick on a row in listbox in SelectProfile_Form
11. Error should now appear

 

[Norie]

You say what I posted worked but you are still having the same problem.

 

[Norie]

Try this.

With ListPicker
    DoCmd.OpenForm "Profile_Form", , , "Profile_ID = " & .ItemData(.ListIndex)
End With

 

[behedwin]

You say what I posted worked but you are still having the same problem.

Yes sorry, bit unclear. I meant that the code without the ending that you posted now worked... but the original topic error still was left.

Try this.

With ListPicker
    DoCmd.OpenForm "Profile_Form", , , "Profile_ID = " & .ItemData(.ListIndex)
End With

This worked very well.
I can not recreate the error now.
Thank you very much for this!!

Can you see a reason for the error and what your solution fixed... why was my code wrong and yours correct?

 

[Norie]

To be honest I can't see why that work.

I do know that you don't need to use the form name to refer to controls on the form if the code is in the form's module, you can either omit it or use Me.