Option Compare Database
Option Explicit
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim ind As Integer
Dim selectID As String
Private Sub Form_Load()
On Error GoTo err_msg
StateList
Exit Sub
err_msg:
MsgBox Err.Source & " " & Err.Number & " - " & Err.Description, vbCritical + vbOKOnly, "Error"
End Sub
Private Sub StateList()
On Error GoTo err_msg
strSQL = "SELECT ID,State from tblState order by State"
Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot, dbReadOnly)
' Check if not exist
If rs.NoMatch = True Then
Else
If cboState.ListCount <> 0 Then
' cboDistricts.RowSource = ""
End If
cboState.AddItem ("*;Select State")
For ind = 1 To rs.RecordCount
cboState.AddItem rs("ID") & ";" & rs("State")
rs.MoveNext
Next
Me.cboState = Me.cboState.ItemData(0)
End If
Exit Sub
err_msg:
MsgBox Err.Source & " " & Err.Number & " - " & Err.Description, vbCritical + vbOKOnly, "Error"
End Sub
Private Sub cboState_Click()
On Error GoTo err_msg
strSQL = "SELECT ID,cityName from tblCities WHERE stateID = " & Me.cboState.Value & " order by cityName"
Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot, dbReadOnly)
' Check if not exist
If rs.NoMatch = True Then
Else
If cboCity.ListCount <> 0 Then
End If
cboCity.AddItem ("*;Select City")
For ind = 1 To rs.RecordCount
cboCity.AddItem rs("ID") & ";" & rs("cityName")
rs.MoveNext
Next
Me.cboCity = Me.cboCity.ItemData(0)
End If
Exit Sub
err_msg:
MsgBox Err.Source & " " & Err.Number & " - " & Err.Description, vbCritical + vbOKOnly, "Error"
End Sub