24-11-23, 09:29 PM
وعليكم السلام ..
كود :
Private Sub Form_Load()
Set db = OpenDatabase(".\compny.mdb")
Set rs = db.OpenRecordset("tbl1")
Do Until rs.EOF
Combo4.AddItem (rs!Namee)
rs.MoveNext
Loop
End Sub
Private Sub Combo4_Click()
Text15.Text = Combo4.Text
End Subقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
