السلام عليكم ورحمة الله وبركاته
اخواني اتمنى ان اجد الافادة في استفساري
ماهو الكود البرمجي المتبع لإضافة بيانات الى الجدول ( اضافة معلومات )
علما اني قمت بتجربة الكود التالي ولافائدة
Set Q1 = CurrentDb.OpenRecordset("select * from t1;")
Q1.AddNew
Q1!name = TxT1
Q1.Update
TxT1 = Null
Txt1.SetFocus
End Subحيث اني استخدمت مسبقا كود يحمل كلمة Insert ولكن لم اجد من المواضيع ومن الملفات
كود من محتوياته امر Insert
وان شاء الله ما تحرمني الفائدة
ولكم مني جزيل الشكر
وخالص الاحترام
اخي الفاضل
قم بتجربة هذا الكود بعد التعديل
Dim rs as recordset
Set rs = CurrentDb.OpenRecordset("t1")
with rs
.AddNew
!name = me.TxT1
.Update
end with
TxT1 = ""
Txt1.SetFocusيعطيك الف عافية اختي زهرة على ما تقدمينه من مجهود
الكود طلع شغال ميه ميه
لكن واجهت مشكلة عدم قبول الارقام العشرية ؟
بالاضافة الى وجود استفسار بسيط الا وهو الارقام العشوائية
بعد اضافة البيانات تكون مرات الارقام العشوائية بالسالب ؟
ولك خالص احترامي
بارك الله فيك اخي الكريم
والله وانا اختك ما عملت اي شيء كما تلاحظ في الكود فقط تعديل بسيط
اما بخصوص الأرقام العشرية والفواصل واي شيء يتعلق بالقاعدة لديك فلا اعلم عنه شيء
وبإمكانك التعديل في خصائص الحقول
هذا الموضوع مغلق.
