تطبيق لاستعلام الالحاق append من خلال كود ال VBA

[أبوعبدالله2]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

إخواني الكرام

عندي نموذج إسمه ( تسجيل) فيه حقل الرقم العام , نوع البيانات (رقم) وهو مفتاح أسساسي , وحقل النوع , نوع البيانات (نص) وحقول أخرى, وفيه زر أمر (الحاق)

وكذلك عندي نموذج إسمه (عقود) فيه حقول من ضمنها حقل رقم العقد, نوع البيانات (رقم) وهو مفتاح أسساسي , وحقل النوع , نوع البيانات (نص) وحقول أخرى, 0

ما أريده هو : عند نقر زر الأمر يفتح نموذج (عقود) لتسجيل عقد جديد ويلحق به الرقم العام والنوع من السجل الحالي من نموذج تسجيل في حقلي رقم العقد والنوع من نموذج (عقود) أي عندما يفتح النموذج يرى المستخدم رقم العقد والنوع وسجلين ليكمل هو باقي البينات

أرجو أن أكون استطعت شرح مطلبي

وجزاكم الله خيرا

[امير عاطف]

الأخ أبوعبدالله2:

لنفترض ان النموذج المسمى تسجيل مصدر سجله هو جدول اسمه ]تسجيل[ والنموذج المسمى عقود مصدر سجله هو جدول اسمه ]عقود[

ضع عند حدث الفتح on open للنموذج المسمى عقود الكود التالي:

DoCmd.GoToRecord , , acNewRec
Docmd.runsql"INSERT INTO عقود ( [رقم العقد], [نوع البيانات] )
SELECT تسجيل.[الرقم العام], تسجيل.النوع FROM تسجيل;"
Me.Refresh

[امير عاطف]

عفواً لعدم تناسق اللغة العربيه بالكود

[أبوعبدالله2]

جزاك الله خيرا استاذي أمير

يبدو أن هذه الطريقة مدهشة للغاية ولكن ٌد أكون أنا لم أحسن تطبيقها فقد ظهر لي رسالة خطأ عن فتح النموذج تقول " لايمكنك الذهاب الى السجل المحدد رقم الخطأ(2105)

ثانيا لو تكرمت تشرح لي منهج run SQL فسي الكائن docmd فأنت الذي جرأتنا بكرمك على الأسترسال بالطلبات المزعجة

تلميذك الغبي ابو عبدالله

[امير عاطف]

يقوم المنهج run SQL بالكائن Docmd بتشغيل جملة Sql من خلال كود الـــ VBA

بالنسبه للكود السابق هناك فكره اخرى افضل منه ايضاً وهو عن طريق وضع الكود التالي عند حدث الفتح On Open للنموذج المسمى عقود:

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
Me.رقم_العقد = Forms!تسجيل![الرقم العام]
Me.نوع_البيانات= Forms!تسجيل!النوع
End Sub

وترى تطبيق ذلك على مثال لترى بنفسك هنــــــــــــــــــــــــا

[أبوعبدالله2]

أستاذي القدير أمير عاطف جزاك الله بالاحسان رفع درجاتك في عليين

بالنسبة للمثال لم استطع تحميله لا أدري لماذا :@

أما بالنسبة لسؤالي عن ال S QL فهو كيف أجعل الالحاق يكون مشروطا بالسجل الحالي من النموذج الذي فيه زر الامر الحاق

أي لنفرض أن السجل الحالي في نموذج تسجيل فيه الرقم العام =25 والنوع =(عقد دائم) عند نقر زر الامر الحاق يقوم البرنامج بالحاق القيمة 25 في حقل رقم العقد والقيمة ( عقد دائم) في حقل النوع في نموذج عقود ويفتحه على هذا السجل لاقوم انا بتعبئة باقي البيانات

فلا اخفيك باني جربت عمل استعلام الحاقي ليلحق هذين الحقلين بجدول عقود وجعلته بارامترياً يطلب من المستخدم ادخال الرقم العام للسجل المراد الحاقه ولكنها غير مجدية لانه قد يدخل المستخدم رقماً غير رقم السجل الحالي وهذا مالا أريده

أرجو ان لا اكون اكثرت عليك وجزاك الله خيرا

للرفع :(

[امير عاطف]

المثال بالمرفقات

aboabdalla.zip

[أبوعبدالله2]

جزاك الله خير استفدت أكثر مما سألت عنه

والآن الأمور تمام التمام (y)

تلميذك أبو عبدالله

[فتى الوادي]

السلام عليكم ...

أريد كود يقوم بالحاق البيانات الظاهره امامي في نموذج للجدول ..

يعني يكون النموذج لا يعتمد على الجدول ..... بل النموذج عادي فيه حقول ... ثم عند الضغط على الزر يقوم بإاضافة البيانات إلى الجدول ...

و لايتم الكتابة في الجدول إلا بعد الضغط على الزر

[الدكتور خضر الرجبي]

السلام عليكم

أخي فتى الوادي ، بارك الله فيك

ما تطلبه هو ترحيل قيم عناصر غير منضمة في نموذج إلى جدول والطريقة هي كما يلي :

INSERT INTO target [(field1[, field2[, ...]])]
SELECT (value1[, value2[, ...])

حيث target هو اسم الجدول الذي تضيف فيه البيانات.

field1 ، field2 وهكذا أسماء الحقول التي ستنضم لها البيانات بالترتيب.

value1، value2 وهكذا هي العناصر غير المنضمة من النموذج .

ويوضع هذا الكود في حدث عند النقر في زر التنفيذ .

مع الاحترام

تم تعديل مايو 2, 2005 بواسطه خضر الرجبي

[فتى الوادي]

يعطيك العافية أخوي ...

هل تتكرم بمثال للفائدة ...

[الدكتور خضر الرجبي]

السلام عليكم

أخي فتى الوادي ، بارك الله فيك

بكل سرور ، غدا صباحا بإذن الله لك المثال.

مع الاحترام

[فتى الوادي]

بيض الله وجهك ..... وغفر الله لك ولوالديك

وأنا في الأنتظار ...

[فتى الوادي]

السلام عليكم

حاولت أعمل الكود يظهر لي هذه الرسالة

[الدكتور خضر الرجبي]

السلام عليكم

أخي فتى الوادي ، بارك الله فيك

المثال الذي وعدتك به ، أملا أن ينال إعجابك.

Valley_Younker.rar

[فتى الوادي]

بارك الله فيك أخي خضر وغفر الله لك ولوالديك ...