very very basic syntax problem

[antonyx]

hi.. dont have much time.. haven't touched access for months..

trying to use a link criteria with a number datatype.. the form opens but the chosen record doesnt display..

here is a text datatype version that works..

Private Sub quicksearch3_DblClick(Cancel As Integer)
Dim stLinkCriteria As String
stLinkCriteria = "[JobRef]=" & "'" & Me![quicksearch3].Column(0) & "'"
DoCmd.OpenForm "3bookings", , , stLinkCriteria
End Sub

tried tweaking it to allow a number datatype to be used.. like i said.. isnt working.

Private Sub quicksearch4_DblClick(Cancel As Integer)
Dim stLinkCriteria As String
stLinkCriteria = "[bookingid] = " & Me![quicksearch4].Column(0) & ""
DoCmd.OpenForm "2bookings", , , stLinkCriteria
End Sub

 

[rainman89]

Handy reference
I think its

stLinkCriteria = "[bookingid] = " & Me![quicksearch4].Column(0)

 

[antonyx]

no that is still opening the form with blank fields..

 

[rainman89]

is the booking ID an actual #?
and is it the control source of the combo box?

 

[antonyx]

ok.. the listbox is populated from a query..
6 fields...

the primary key is called id and is the first field..

the column widths are as follows..

0cm;2cm;2cm;2cm;2cm;2cm (so the id doesnt display but is still there)

i have set the bound column of the listbox as 1

the listbox code is here..

Private Sub lst0bookings_DblClick(Cancel As Integer)
Dim stLinkCriteria As Integer
[b]stLinkCriteria = "[id] = " & Me![lst0bookings].Column(0)[/b]
DoCmd.OpenForm "0bookings", , , stLinkCriteria
End Sub

gettin error 13.. type mismatch on above bold line..

 

[rainman89]

i have set the bound column of the listbox as 1

Then how come u have booking ID set to column (0)???

Just change it to

Me.[lst0bookings]

i dont think u need the column# if you have it bound!

 

[antonyx]

ok.. using this it opens the new form.. but it only opens it at the first record.. not the chosen one..

Private Sub lst0bookings_DblClick(Cancel As Integer)
Dim stLinkCriteria As Integer
stLinkCriteria = Me.[lst0bookings]
DoCmd.OpenForm "0bookings", , , stLinkCriteria
End Sub

this happens when i set the bound column to 1 and 0...

do i need to add some on open event to the new form.. i didnt think i needed to..

 

[rainman89]

stLinkCriteria = "[id] = " & Me![lst0bookings]

oops i meant this!

 

[antonyx]

now im gettin type mismatch with the bound as 1 and 0 again.. using this..

Option Compare Database

Private Sub lst0bookings_DblClick(Cancel As Integer)
Dim stLinkCriteria As Integer
stLinkCriteria = "[id] = " & Me![lst0bookings]
DoCmd.OpenForm "0bookings", , , stLinkCriteria
End Sub

does it have anything to do with.. as integer or cancel as integer

 

[antonyx]

yeah, i removed.. as integer.. and it worked.. thank you sir..

 

[rainman89]

Ah yes, i didnt even see that part! sorry.

glad you got it figured out