23-10-23, 12:11 AM
..
كود :
Private Sub Command1_Click()
Set db = OpenDatabase(App.Path & "/db1.mdb")
db.Execute "INSERT INTO aol VALUES (" & Trim$(Text1.Text) & ",'" & Trim$(Text2.Text) & "','" & Trim$(Val(Text3.Text)) & "'," & "" & Val(Trim$(Text4.Text)) & ",'" & Trim$(Text5.Text) & "','" & Trim$(Text6.Text) & "')"
' DoEvents
MsgBox "تم حفظ الفاتورة بنجاح"
End Subقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
