DoCmd.OpenForm issues (1 Viewer)

[Manos39]

Hi all,
Is following wrong? a search command opens Fr_PromStoixeia and access pops up Enter parameter Value ? "Tbl_Promitheytes;promitheytesID"

DoCmd.OpenForm "Fr_PromStoixeia", , , _
        "[Tbl_Promitheytes;promitheytesID]=" & "'" & Me.lstSearch.Column(0) & "'"

 

[Eugene-LS]

Enter parameter Value ? "Tbl_Promitheytes;promitheytesID"

Try write as below:

Dim sVal As String
    sVal = "[promitheytesID]='" & Me.lstSearch.Column(0) & "'"
    DoCmd.OpenForm "Fr_PromStoixeia", , , sVal

 

[Manos39]

Try write as below:

Dim sVal As String
    sVal = "[promitheytesID]='" & Me.lstSearch.Column(0) & "'"
    DoCmd.OpenForm "Fr_PromStoixeia", , , sVal

Hello and thank you
There's error and Vb shows an arrow
in:
DoCmd.OpenForm "Fr_PromStoixeia", , , sVal

 

[Eugene-LS]

There's error and Vb shows an arrow

Ok! Try please that way:

DoCmd.OpenForm "Fr_PromStoixeia", , , "promitheytesID = '" & Me.lstSearch.Column(0) & "'"

 

[Manos39]

DoCmd.OpenForm "Fr_PromStoixeia", , , "promitheytesID = '" & Me.lstSearch.Column(0) & "'"

VB runtime error 3464
marks yellow above stamement - code

 

[Eugene-LS]

VB runtime error 3464

Access "Runtime error 3464" = Data type mismatch in criteria expression
Are you sure that your [promitheytesID] field data type is Text ?
May be it's data type is number ???
if so , you don't need to frame the condition in single quotes .

DoCmd.OpenForm "Fr_PromStoixeia", , , "promitheytesID = " & Me.lstSearch.Column(0)

 

[Manos39]

Access "Runtime error 3464" = Data type mismatch in criteria expression
Are you sure that your [promitheytesID] field data type is Text ?
May be it's data type is number ???
if so , you don't need to frame the condition in single quotes .

DoCmd.OpenForm "Fr_PromStoixeia", , , "promitheytesID = " & Me.lstSearch.Column(0)

Thank you for your replies actually it is an autonumbered field!
Where i have seen the code it indeed was referring to a text box... Thats getting me closer!

 

[Manos39]

Thank you for your replies actually it is an autonumbered field!
Where i have seen the code it indeed was referring to a text box... Thats getting me closer!

Thank you very much ! it is solved now by your suggestion!

DoCmd.OpenForm "Fr_PromStoixeia", , , _
     "promitheytesID = " & Me.lstSearch.Column(0)

 

[Eugene-LS]

Thank you very much ! it is solved now by your suggestion!

You are welcome!
But I think that "more beautiful" is still so:

Dim sVal As String 'String Variable

'Where Condition (like in an query after WHERE statement) :
    sVal = "promitheytesID = " & Me.lstSearch.Column(0)
    DoCmd.OpenForm "Fr_PromStoixeia", , , sVal

 

[Manos39]

Also another problem is :
When form opens it is run behind switchboard
code used

DoCmd.OpenForm "Fr_PromStoixeia", , , _
     "promitheytesID = " & Me.lstSearch.Column(0)

do i need setfocus and how do i put it

 

[Eugene-LS]

When form opens it is run behind switchboard

Is "switchboard" form "modal" or "pop up" ?

 

[Manos39]

Is "switchboard" form "modal" or "pop up" ?

actually it is a dynamic form

 

[Eugene-LS]

actually it is a dynamic form

I don't know about "dynamic" forms, unfortunately.
Try write like below:

'Me.Visible = False
    'or
    DoCmd.Close acForm, Me.Name
   
    DoCmd.OpenForm "Fr_PromStoixeia", , , _
        "promitheytesID = " & Me.lstSearch.Column(0)

On close of form "Fr_PromStoixeia" write code:

DoCmd.OpenForm "switchboard"

 

[Manos39]

actually it is a dynamic form

I don't know about "dynamic" forms, unfortunately.
Try writing like this:

'Me.Visible = False
    'or
    DoCmd.Close acForm, Me.Name
   
    DoCmd.OpenForm "Fr_PromStoixeia", , , _
        "promitheytesID = " & Me.lstSearch.Column(0)

On close of form "Fr_PromStoixeia" write code:

DoCmd.OpenForm "switchboard"

thank you it works!