[مصمم هاوي]

(19-11-20, 11:52 PM)sendbad100 كتب : وعليكم السلام ورحمة الله وبركاتة

جرب الكود التالي  لتعبية كمبوبوكس الريكورد

PHP كود :

Private Sub Comboalmadhun_Click()
'On Error Resume Next: Err.Clear
''''''''''''''''''''''''''''''''''
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close

SQL = " SELECT record FROM TBL_archives GROUP BY TBL_archives.record, TBL_archives.aism_almadhun HAVING (((TBL_archives.aism_almadhun)='" & Trim$(Comboalmadhun.Text) & "'))"
Text1.Text = SQL
RS.Open SQL, db, adOpenStatic, adLockOptimistic
                      
Comborecord.Clear


For I = 0 To RS.RecordCount - 1
Comborecord.AddItem RS.Fields(0)
Comborecord.ItemData(Comborecord.NewIndex) = RS.Fields(0)
RS.MoveNext
Next
'
End Sub 


بالتوفيق

هذا هو المطلوب أستاذي الفاضل
جزاك الله كل خير وفتح عليك فتوح العارفين وجعلك من المبشرين بجنة النعيم