ntejeswaravarma
New member
- Local time
- Tomorrow, 03:03
- Joined
- Oct 15, 2018
- Messages
- 1
i wanna filter a access database table by getting the value from a combo box
need help in this...
my code is :
Option Compare Database
Option Explicit
Dim fac_name As String
Private Sub Facility_Name_Click()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSelect As String
Set db = CurrentDb
Set qdf = db.QueryDefs("userFilter")
fac_name = Facility_Name.Text
MsgBox ("You selected " & fac_name & "; please bear with us to search your unit records")
strSelect = "SELECT factories_annual_return.[Facility Name] FROM factories_annual_return WHERE factories_annual_return.[Facility Name] = '" & fac_name & "';"
DoCmd.SetWarnings False
DoCmd.OpenQuery "userFilter", acNormal, acEdit
DoCmd.SetWarnings True
End Sub
need help in this...
my code is :
Option Compare Database
Option Explicit
Dim fac_name As String
Private Sub Facility_Name_Click()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSelect As String
Set db = CurrentDb
Set qdf = db.QueryDefs("userFilter")
fac_name = Facility_Name.Text
MsgBox ("You selected " & fac_name & "; please bear with us to search your unit records")
strSelect = "SELECT factories_annual_return.[Facility Name] FROM factories_annual_return WHERE factories_annual_return.[Facility Name] = '" & fac_name & "';"
DoCmd.SetWarnings False
DoCmd.OpenQuery "userFilter", acNormal, acEdit
DoCmd.SetWarnings True
End Sub