طلب عاجل من الخبراء ولاعضاء المحترمين

[رامى محمد]

بعد التحية ارجو من الاعضاء المحترمة وخبراء القسم المساعدة العاجلة فى هذه القاعدة عند الضغط على زر

SAVE

يفرغ محتويات فورم DATAENTRY داخل جدول TOTAL _JOB

:')

New_Microsoft_Access_Database.rar

[y_mom2003]

السلام عليكم

اخى الحبيب

الفورم مربوط بالجدوال (اذا كان هذا طلبك ) فى كل ماعليك من خصائص الفورم تضع yes امام data enter

وهذا معنها ان هذا الفورم للادخال فقط وعند الحفظ يتم اعداة التحميل من جديد ادخال الفورم

مرفق مثال رقم واحد (الصورة رقم واحد )

توجد فوارم اخر غير مربوط بالجدوال (اى من خصائص الفورم امام record Sourec لايوجد شياء )

ويتم التعامل Microsoft ActiveX Data Objects

مرفق مثال رقم 2

ارجو منك الرد اذا كان فيها اى استفسار

ولك منى جزيل الشكر ولهذا المنتدى الجميل

New_Microsoft_Access_Database.rar

1.rar

2.rar

[رامى محمد]

شكرا اخى الفاضل على الافادة

هناك استفسار صغير


عند ادخال CHECK BOX فى الفورم

اريد ان يتم تحديد اختيار واحد من الاربعة

وعند اختيار اى اختيار يتم تسجيلة داخل الجدول

[y_mom2003]

من فضلك اخى الحبيب ارسال قاعدة البيانات

[y_mom2003]

Private Sub Combo1_AfterUpdate()

Dim var_table As String
var_table = Combo1
Form_Data_Entry.RecordSource = var_table

End Sub

اخى رامى هل هذا طلبك

انا اسف الانترنت موجود عندى فى العمل فقط

1.rar

[رامى محمد]

شكرا على اهتمامك بالموضوع

بس حبيت انك ترسل لى شرح طريقة

Microsoft ActiveX Data Objects

فى المثال ال 2

من البداية حتى اعرف كيفية تطبيقه

لانى حاولت ان اجربه فى مثال اخر ولكن لم يعمل

وشكرا لاهتمامك وسعة صدرك لى

تم تعديل مايو 28, 2009 بواسطه رامى محمد

[y_mom2003]

السلام عليكم اخى الحبيب رامى

اسقوم بشرح Microsoft ActiveX Data Objects

Dim rst_from As Recordset

احجز فى الذاكرة متغير نوعه جدول او استعلام او اى select

Set rst_from = CurrentDb.OpenRecordset("Total-job")

امل هذا المتغير = اسم قاعدة البيانات . افتح الجدول ( اسم الجدول )

rst_from.AddNew

نوع السجل اضافة

rst_from!feild

اسم المتغير ! اسم الحقل

or

rst_from(2)

اسم المتغير 0(رقم الحقل)

rst_from.Update

نفذ هذا على الجدول

rst_from.Close

اغلاق هذا الجدول

هذا هو الشرح البسيط من وجهة نظرى

[رامى محمد]

thaaaaaaaaaaaaaaanks