السلام عليكم ورحمة الله ...
انا في بدايه صنع مشروع صغير جدا جدا ...
المشروع كلتالي ...
فورم تحتوي على لست .... تسكت بوكس ...كومبو بوكس ...جك بوكس ...اوبشن بوكس ...
الفورم تاخد المعلومات من داتا بيس ... اللست ...والتكست ...والاوبشن والجك ياخدون معلوماتهم من جدل الموظفين ...الكومبو ياخد اسم النطقه من جدول المناطق ...
جدول المناطق مرتبط مع جدول الموظفين من كود المنطقه
كود المنطقه في جدول الموظفين = كود المنطقه في جدول المناطق ....
بس المفروض ان الكومبو يطلع اسم المنطقه وليش كود المنطقه ...
في صوره حق الفورم مرفقه
سؤالي الحين ...
الكومبو ما يطلع لي اسم النطقه فقط ...يطلع لي اسماء المناطق كلها ...وما تبين الا اذا سويت كلك على الكومبو ...
الاوبشن بكوس ما يشتغل بلمره ولا اعرف بعد في وين الخلل ...
الجك بوكس بعد ما اعرف شلون اسويه...
ممكن احد يساعدني ويقول لي شنو الخلل ...
انا ارفقت المشروع مع الداتا بيس ...
وهذا الكود
Private Sub lstCustomer_Click()
Dim strSQL As String
Set moRS = New Recordset
strSQL = "select lEmp_id, "
strSQL = strSQL & "sFirst_nm, "
strSQL = strSQL & "szLast_nm, "
strSQL = strSQL & "szStreet1_ad, "
strSQL = strSQL & "szCity_nm, "
strSQL = strSQL & "sZip_cd, "
strSQL = strSQL & "sPhone_no, "
strSQL = strSQL & "sSSN_tx, "
strSQL = strSQL & "sSex_type, " 'Gender type in case statment
strSQL = strSQL & "dtBirth_dt, "
strSQL = strSQL & "cSalary_amt "
strSQL = strSQL & "from tblEmployees"
strSQL = strSQL & " where lEmp_id= " & _
lstCustomer.ItemData(lstCustomer.ListIndex)
moRS.Open strSQL, goConn, adOpenKeyset, adLockPessimistic
txtFirstnm.Text = moRS!sFirst_nm + ""
txtLastnm.Text = moRS!szLast_nm + ""
txtAddress.Text = moRS!szStreet1_ad + ""
txtCity.Text = moRS!szCity_nm + ""
txtZipCode.Text = moRS!sZip_cd + ""
txtPhone.Text = moRS!sPhone_no + ""
txtSSNo.Text = moRS!sSSN_tx + ""
txtDOB.Text = moRS!dtBirth_dt
txtSalary.Text = moRS!cSalary_amt
'Select Case !sSex_type
'Case Is = "M"
'OptMale = True
' Case Is = "F"
' ' OptFemale = True
'End Select
Call StateLoad ' load state name ino the combobox
'moRS.Close
End Sub
Private Sub StateLoad()
Dim strSQL As String
Dim oRS As Recordset
strSQL = "select tblStates.lState_id, "
strSQL = strSQL & "tblStates.szState_desc, "
strSQL = strSQL & "tblEmployees.lState_id, "
strSQL = strSQL & "tblEmployees.lEmp_id "
strSQL = strSQL & "from tblstates inner join tblEmployees on tblStates.lState_id = tblEmployees.lState_id"
Set oRS = New Recordset
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
Do Until oRS.EOF
cmbState.AddItem oRS("szState_desc")
cmbState.ItemData(cmbState.NewIndex) = oRS("lEmp_id")
oRS.MoveNext
Loop
oRS.Close
End Sub