HnHn:
سوال بسيط ارجو الاجابة عليه ان شاء الله
السلام عليكم ورحمة الله وبركاته
ازيكم يا رجال المنتدى جميعا
انا عامل مشروع بسيط وعايز اخلى اللى فى ال text box يتحفظ بارقام عشرية وكود الحفظ كالتالى
Dim db As Database
Dim Tb1 As Recordset
Set db = Workspaces(0).OpenDatabase(App.Path & "\db.mdb")
Set Tb1 = db.OpenRecordset("tb1", dbOpenDynaset)
Tb1.AddNew
Tb1("unit") = Text1
Tb1("pr1") = Text2
Tb1("pr2") = Text3
Tb1("pr3") = Text4
Tb1("pr4") = Text5
Tb1("des") = Text6
Tb1.Update
Else
Exit Sub
End If
مع العمل اننى غيرت نوع المتغير فى الاكسيس وجعلته عدد غير صحيح اذن اين المشكلة
وشكرا لكم جميعا
والله الموفق
