smtazulislam
Member
- Local time
- Today, 11:51
- Joined
- Mar 27, 2020
- Messages
- 806
Hello,
I have a listbox what is name "lstPassportExpire". I want to double_click to open FORM "frmEmployeeEdit" by criteria PassportID
my Listbox Query is
I try to this code:
This code open only FORM "frmEmployeeEdit" but not same selected passportID open.
Any help will be appreciate.
Thank you.
I have a listbox what is name "lstPassportExpire". I want to double_click to open FORM "frmEmployeeEdit" by criteria PassportID
my Listbox Query is
Code:
SELECT tblPassport.PassportID, tblPassport.EmployeeID, tblEmployee.Country, tblPassport.PassportNo, tblPassport.ExpiredDate
FROM tblEmployee INNER JOIN tblPassport ON tblEmployee.EmployeeID = tblPassport.EmployeeID
WHERE (((tblEmployee.StatusID)=1) AND ((tblEmployee.IdentityType)="Iqama"))
ORDER BY tblPassport.ExpiredDate;
Code:
Private Sub lstPassportExpire_DblClick(Cancel As Integer)
Dim StrCriteria As String
'open the form
DoCmd.OpenForm FormName:="frmEmployeeEdit"
' set reference to the form
Set TabCtlFrm = [Forms]![frmEmployeeEdit]
' loop through all Pages in TabGeneral tab control
For Each TabCtlPg In TabCtlFrm!TabCtlEdit.Pages
If TabCtlPg.Name = "EmployeeIdentity_Page" Then
' set focus to this page
StrCriteria = "PassportID = " & Me.lstPassportExpire.Column(0)
TabCtlPg.SetFocus
End If
Next
Set TabCtlFrm = Nothing
Debug.Print StrCriteria
End Sub
Any help will be appreciate.
Thank you.