คืออยากจะให้เวลาเรา ใส่ หมายเลขทะเบียน แล้วเวลาเราเลือกจังหวัดในริส ถ้ามันตรงกันกับข้อมูลที่มีในตาราง มันก็จะแสดง ยี่ห้อ ผู้ครอบครอง ที่อยู่ รหัสไปรษณีย์ครับผม แต่ยังไม่ค่อยเข้าใจครับ ช่วยหน่อยครับ


Private Sub จังหวัด_Change()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT RUNRIGHT.ยี่ห้อ, RUNRIGHT.ชื่อผู้ครอบครอรถ,RUNRIGHT.ที่อยู่, RUNRIGHT.รหัสไปรษณีย์ " & _
           "FROM RUNRIGHT " & _
           "WHERE RUNRIGHT.ª×èͼÙé¤Ãͺ¤ÃÍÃ='" & Me.¼Ùé¤Ãͺ¤ÃÍÃ.Text & "'"
           Debug.Print (strSQL)
           
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset(strSQL)
Do While Not rst.EOF
    Me.·ÕèÍÂÙè.Value = rst![·ÕèÍÂÙè]
    Me.ÃËÑÊä»ÃɳÕÂì = rst![ÃËÑÊä»ÃɳÕÂì]
    Me.·ÕèÍÂÙè.Value = rst![·ÕèÍÂÙè]
    Me.ÃËÑÊä»ÃɳÕÂì = rst![ÃËÑÊä»ÃɳÕÂì]

    rst.MoveNext
Loop

rst.Close
dbs.Close
End Sub
[FONT=Arial]Private Sub จังหวัด_Change()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT RUNRIGHT.ยี่ห้อ, RUNRIGHT.ชื่อผู้ครอบครอรถ,RUNRIGHT.ที่อยู่, RUNRIGHT.รหัสไปรษณีย์ " & _
           "FROM RUNRIGHT " & _
           "WHERE RUNRIGHT.ª×èͼÙé¤Ãͺ¤ÃÍÃ='" & Me.¼Ùé¤Ãͺ¤ÃÍÃ.Text & "'"
           Debug.Print (strSQL)
           
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset(strSQL)
Do While Not rst.EOF
    Me.·ÕèÍÂÙè.Value = rst![·ÕèÍÂÙè]
    Me.ÃËÑÊä»ÃɳÕÂì = rst![ÃËÑÊä»ÃɳÕÂì]
    rst.MoveNext
Loop

rst.Close
dbs.Close
End Sub
[/FONT]   "WHERE RUNRIGHT.ª×èͼÙé¤Ãͺ¤ÃÍÃ='" & Me.¼Ùé¤Ãͺ¤ÃÍÃ.Text & "'"