ألحقت عدد 2 Database بالموضوع لتسهيل الطلب
طلبى انى أضغط على زرار فى db3 على 1form أرسل بيه المكتوب بالمربعات الى Database اخرى db1
شرط عدم الحاق ال Database أو ربطها ببعض
بمعنى عدم إدراج ال Table داخل ال db3
وشكرا
سؤال عن كود ارسال قيمة لتسجيلها فى Access DataBaseمغلقة
اريد الحاق الملف ولا أعرف كيفية الحاق الملف
تم رفع الملف للتسهيل وشكرا
ياريت لو حد يعرف الاجابة يقولى
اخي انظر اتمنى يكون المطلوب طبعا يجب ان تعيد اعداد استعلام الالحاق بمكان القاعدة الاولى
لكي يتم العمل صحيح
"قال رب اشرح لي صدري *ويسر لي امري*واحلل عقدة من لساني يفقهوا قولي" سورة طه
اللهم صل على سيدنا محمد وعلى آل سيدنا محمد
أشكر سيادتك جدا للرد
بس طيب ماينفعش بكود معين أبعت البيانات مباشرة بدل ما أبعتها لجدول الاستعلام
الان سويت لها كود لكن حددمسار قاعدة البيانات في الكود ليتم الالحاق
وممكن اذا ما تريدها تحتفظ في جدول قاعدة البيانات تسوي لها بعد الالحاق حذف من الجدول
"قال رب اشرح لي صدري *ويسر لي امري*واحلل عقدة من لساني يفقهوا قولي" سورة طه
اللهم صل على سيدنا محمد وعلى آل سيدنا محمد
تفضل اخي الكريم
ارسال البيان مباشرة بالكود البرمجي بدون استعلامات ولا ارتباطات بين الجداول
مباشرة من النموذج الى الجدول الخارجي
تم استخدام الكود البرمجي فقط تحت زر الأمر ( ارسال البيان الحالي )
Private Sub Command7_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strPath As String
strPath = Application.CurrentProject.Path & "\db1.mdb"
Set db = OpenDatabase(strPath)
Set rst = db.OpenRecordset("Table1", dbOpenDynaset)
rst.AddNew
rst!Rec = Me!Text1.Value
rst!Data = Me!Text3.Value
rst!Num = Me!Text5.Value
rst.Update
MsgBox " تم ارسال البيان بنجاح ", vbInformation, "مبروك"
rst.Close
Set rst = Nothing
Set db = Nothing
End Sub
الشكر والتقدير لكلا من
الاخت زهرة
الاستاذ/ أكرم العريقى
بس كان ليا طلب أخير .... لو حبيت أعرف السجل اللى كتبتو مكرر أم لا
بمعنى عند التسجيل يعمل بحث برقم ال Num مثلا فاذا وجد الرقم يسألنى بتأكيد التكرار
وشكرا للمرة التانية لمجهودكم معايا
أدعو لكم بالصحة والعافية والمغفرة
ويجعلو فى ميزان حسناتكم