Open List Items Edit Form to a Specific Record

[Falcon88]

hi to all

i use this code but open form with a new record :

Private Sub Form_Load()
Dim MyFilter As String
If CurrentProject.AllForms("MainFrm").IsLoaded Then
MyFilter = "Forms![MainFrm]![InsurCmpName]= " & Me.CompnyID
Me.Filter = MyFilter
Me.FilterOn = True
End If
End Sub

but its go to new record ......
Where is the problem in the code??

 

[theDBguy]

Is Data Entry = Yes?

 

[Falcon88]

Is Data Entry = Yes?

Data Entry = No

 

[theDBguy]

Data Entry = No

Do a Debug.Print Me.CompnyID (Is that a misspelling?)

 

[Falcon88]

i do like :

Dim MyFilter As String
If CurrentProject.AllForms("MainFrm").IsLoaded Then
MyFilter = "Forms![MainFrm]![InsurCmpName]= " & Me.CompnyID
Debug.Print MyFilter
Me.Filter = MyFilter
Me.FilterOn = True
End If

it gives me :

Forms![MainFrm]![InsurCmpName]= 1

 

[theDBguy]

So, is that what you were expecting to get? CompnyID=1

Are there records where CompnyID=1 exist?

 

[theDBguy]

i do like :

Dim MyFilter As String
If CurrentProject.AllForms("MainFrm").IsLoaded Then
MyFilter = "Forms![MainFrm]![InsurCmpName]= " & Me.CompnyID
Debug.Print MyFilter
Me.Filter = MyFilter
Me.FilterOn = True
End If

it gives me :

Forms![MainFrm]![InsurCmpName]= 1

Oh wait, what happens if you swap the two?

MyFilter = "CompnyID=" & Forms![MainFrm]![InsurCmpName]

 

[Falcon88]

Oh wait, what happens if you swap the two?

MyFilter = "CompnyID=" & Forms![MainFrm]![InsurCmpName]

thanks it solved .

but what if MainFrm on new record and InsurCmpName is null ?

( err 3075)

 

[theDBguy]

thanks it solved .

but what if MainFrm on new record and InsurCmpName is null ?

( err 3075)

Try changing it to this then.

MyFilter = "CompnyID=" & Nz(Forms![MainFrm]![InsurCmpName],0)

 

[Falcon88]

it sloved thanks

 

[theDBguy]

it sloved thanks

Glad to hear you got it to work. Good luck with your project.

 

[Pat Hartman]

I doubt this is the correct solution. Normally, we would use the Where argument of the OpenForm method to open a form to a specific record. No extra code is required.

What, exactly, are you trying to do?