Edit item from listbox control in a popup window

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I would like to double click an item from a listbox control and have a pop up
window open with the info from the list box so it can be edited. Thanks.
 
Hi

This is the code (on-click) that I made for a mate of mine. It looks a bit
mad in this box - paste it into a word doc so you can see it better then it
should show you how it all works.

If you need more help with you list box code re-post a new question to me
and I will try and write some specific code for you. I will need the field
names and form names that you want to pop-up

Private Sub print_Selector_Click()
If (Forms!Details_Clients_Main!Bookings_Main.Form!print_Selector =
"Print Confirmation") Then
DoCmd.OpenReport "Rpt_Confirmation", acViewNormal, "",
"[BknBookingRef]=[Forms]![Details_Clients_Main]![Bookings_Main].[Form]![BknBookingRef]", acNormal
End If
If (Forms!Details_Clients_Main!Bookings_Main.Form!print_Selector =
"Print Sp Card (1)") Then
DoCmd.OpenReport "Rpt_SponsorCard", acViewNormal, "",
"[BknBookingRef]=[Forms]![Details_Clients_Main]![Bookings_Main].[Form]![BknBookingRef]", acNormal
End If
If (Forms!Details_Clients_Main!Bookings_Main.Form!print_Selector =
"Print Sp Cards (5)") Then
DoCmd.OpenReport "Rpt_SponsorCard", acViewNormal, "",
"[BknBookingRef]=[Forms]![Details_Clients_Main]![Bookings_Main].[Form]![BknBookingRef]", acNormal
End If
If (Forms!Details_Clients_Main!Bookings_Main.Form!print_Selector =
"Print Sp Cards (5)") Then
DoCmd.OpenReport "Rpt_SponsorCard", acViewNormal, "",
"[BknBookingRef]=[Forms]![Details_Clients_Main]![Bookings_Main].[Form]![BknBookingRef]", acNormal
End If
If (Forms!Details_Clients_Main!Bookings_Main.Form!print_Selector =
"Print Sp Cards (5)") Then
DoCmd.OpenReport "Rpt_SponsorCard", acViewNormal, "",
"[BknBookingRef]=[Forms]![Details_Clients_Main]![Bookings_Main].[Form]![BknBookingRef]", acNormal
End If
If (Forms!Details_Clients_Main!Bookings_Main.Form!print_Selector =
"Print Sp Cards (5)") Then
DoCmd.OpenReport "Rpt_SponsorCard", acViewNormal, "",
"[BknBookingRef]=[Forms]![Details_Clients_Main]![Bookings_Main].[Form]![BknBookingRef]", acNormal
End If
If (Forms!Details_Clients_Main!Bookings_Main.Form!print_Selector =
"Print Sp Cards (5)") Then
DoCmd.OpenReport "Rpt_SponsorCard", acViewNormal, "",
"[BknBookingRef]=[Forms]![Details_Clients_Main]![Bookings_Main].[Form]![BknBookingRef]", acNormal
End If
If (Forms!Details_Clients_Main!Bookings_Main.Form!print_Selector =
"Merge Word") Then
Dim strSql As String
strSql = "select * from New_EXPORT where BknBookingRef = " &
Me!BknBookingRef
MergeAllWord strSql
End If
If (Forms!Details_Clients_Main!Bookings_Main.Form!print_Selector = "4
Pks Drop Off") Then
DoCmd.OpenForm "Query_Bookings_4Pks_DropOff", acNormal, "",
"[BknBookingRef]=[Forms]![Details_Clients_Main]![Bookings_Main].[Form]![BknBookingRef]", acEdit, acNormal
End If
If (Forms!Details_Clients_Main!Bookings_Main.Form!print_Selector =
"Payment Extras") Then
DoCmd.OpenForm "Query_Bookings_Extras", acNormal, "",
"[BknBookingRef]=[Forms]![Details_Clients_Main]![Bookings_Main].[Form]![BknBookingRef]", acEdit, acNormal
End If

End Sub
 
Back
Top