السلام عليكم
هل من الممكن إجراء إلحاق لبيانات في الاكسس (برمجياً مثلاً) بدلاً من الاستعانة بإستعلام إلحاق وذلك لتجنب كثرة الاستعلامات والماكرو وغيرها؟
اذا كان ذلك ممكن أرجو إعطائي رابط من المنتدى أو مثال كي اتعلم منه، واذا تعذر سأرفق مثال كي يتم الطبيق عليه.
وتقبلوا تحياااااتي
اخي الفاضل
السلام عليكم ورحمة الله وبركاته
راجع هذا الرابط فستجد به ما يفيدك إن شاء الله تعالى
والفكره بكل بساطه هي انك تقوم بشكل عادي بصنع اي نوع من الإستعلامات ثم تقوم بنسخ الـ SQL الخاصة بالإستعلام وتضعه في احد البرنامجين الموجودين في المشاركه وتضغط على زر الأمر الخاص بإنشاء كود VBA
وبعد التأكد من عمل الكود بشكل صحيح تقوم بحذف الإستعلام فلم تعد بحاجة له بعد ذلك لأنه سيكون استخدامه برمجيا عن طريق الكود .
تحويل الإستعلامات الى كود vba
إرشاد : يوجد في المشاركة برنامج للأستاذ مصلح الحريصي جاهز للإستخدام احرص على الحصول عليه
بالتوفيق
سؤال للتأكد
طبعا تصلح هذه الطريقة
فى أنواع معينة من الاستعلامات
مثل استعلام الإلحاق
و التحديث
و الحذف
والتوحد
يعنى استعلامات التعديل
هل هذا صحيح؟
السلام عليكم
استاذتنا الفاضلة زهرة،،،
أهلاً وسهلاً...
سأضطلع على الموضوع وإن شاء الله سأجد ما كنت اصبو اليه
تحيااااتي
أبو لميس كتب:سؤال للتأكد
طبعا تصلح هذه الطريقة
فى أنواع معينة من الاستعلامات
مثل استعلام الإلحاق
و التحديث
و الحذف
والتوحد
يعنى استعلامات التعديل
هل هذا صحيح؟
نعم اخي الكريم
البرنامج يصلح لجميع انواع الإستعلامات بحيث يحول جملة SQL الخاصة بالإستعلام الى كود VBA جاهز للإستخدام والإستغناء عن الإستعلام فيما بعد
بالتوفيق
السلام عليكم
لقد قمت بتحميل برنامج الاستاذ مصلح الحريصي لتحويل SQL الى VB
وقمت بعمل تجربة كود الحاق بواسطة الضغط على زر ولكنه لم يعمل معي, هل بالامكان إرشادي عن المشكلة والحل؟
الكود هو:
Dim strSQL As String strSQL = "INSERT INTO Table2 ( ID" & vbCrLf strSQL = strSQL & " , Name )SELECT Table1.ID" & vbCrLf strSQL = strSQL & " , Table1.Name" & vbCrLf strSQL = strSQL & " FROM Table1;"
سؤال آخر... اذا افترضنا ان الجدول يحتوي على عدة حقول.. ولكني أريد أن اقوم بإلحاق سجل محدد فقط (السجل الذي عليه المؤشر) هل بالامكان تنفيذ ذلك؟
مع خالي تحيااااتي
sweety78 كتب:السلام عليكم
لقد قمت بتحميل برنامج الاستاذ مصلح الحريصي لتحويل SQL الى VB
وقمت بعمل تجربة كود الحاق بواسطة الضغط على زر ولكنه لم يعمل معي, هل بالامكان إرشادي عن المشكلة والحل؟
الكود هو:
Dim strSQL As String strSQL = "INSERT INTO Table2 ( ID" & vbCrLf strSQL = strSQL & " , Name )SELECT Table1.ID" & vbCrLf strSQL = strSQL & " , Table1.Name" & vbCrLf strSQL = strSQL & " FROM Table1;"سؤال آخر... اذا افترضنا ان الجدول يحتوي على عدة حقول.. ولكني أريد أن اقوم بإلحاق سجل محدد فقط (السجل الذي عليه المؤشر) هل بالامكان تنفيذ ذلك؟
مع خالي تحيااااتي
اخي الفاضل
بعد ان تقوم بتحويل جملة الإستعلام الى كود vba
قم بأخذ هذا الكود وضعه في حدث زر أمر في النموذج وسوف يعمل معك كود الإلحاق
واذا لم تعرف الطريقه ضع مثالك هنا محتويا على جدولين واستعلام الحاق
وسوف اشرح لك الطريقة بكل سهوله
اما بخصوص انك تريد الحاق سجل واحد فقط حسب وضع الموشر على فهذا يعتمد على وضع معايير في الإستعلام قبل تحويله و مرتبطه بالنموذج الذي يوجد به البيانات والذي عليه زر الأمر الخاص بإستعلام الإلحاق
عموما ضع مثالك وسوف اشرح لك الطريقة .
بالتوفيق
السلام عليكم
الاستاذة زهرة... شكراً مقدماً
لقد قمت بإرفاق قاعدة بيانات تحتوي على جدولين ونموذج به زر أمر لتنفيذ الالحاق...
كذلك إن أمكن تنفيذ أمر إلحاق للسجل الذي عليه مؤشر الماوس فقط.. وإن أمكن شرح المعايير في الاستعلام وحفظ الاستعلام كي أتمكن من فتحه ورؤية المعايير لان فهم صيغة SQL صعبة نوعاً ما حسب فهمي.
مع خالص تحيااااتي
تم تعديل هذه المشاركة بواسطة sweety78 في 8 أكتوبر 2011 في 19:05
اخي الفاضل
تم تعديل ملفك ينا على طلبك
تم الإبقاء على استعلام الإلحاق ( افتحه في عرض التصميم لترى الطريقة والمعايير في خانة ID )
الأمر او الإجراء الذي لم تضعه لتنفيذ جملة الإستعلام في الكود هو
Docmd.Runsql(strSQL)
فيجب وضع هذا الأمر بعد جملة الإستعلام في الكود ليتم تنفيذ الإجراء
لقد شرحت لك في كود النموذج الإجراءات بالعربي افتح الكود لتشاهدها
بالتوفيق
السلام عليكم
الاستاذة زهرة .... شكراً جزيلاً
هذا ما طلبته بالتحديد وشرحك كان موفقاً وسهلاً للغاية.
كما لا يفوتني ان اشكر الاستاذ مصلح الحريصي على برنامجه الروعة
واخيراً لدي استفسار بسيط... لقد قمنا بإستبدال الاستعلامات بـ VB، فهل كثرة استخدام الـ VB تثقل عمل قاعدة البيانات من خلال تنفيذ الاوامر؟
تقبلي تحياااتي وجزاك الله خير
وفقكم الله
sweety78 كتب:السلام عليكم
الاستاذة زهرة .... شكراً جزيلاً
هذا ما طلبته بالتحديد وشرحك كان موفقاً وسهلاً للغاية.
كما لا يفوتني ان اشكر الاستاذ مصلح الحريصي على برنامجه الروعة
واخيراً لدي استفسار بسيط... لقد قمنا بإستبدال الاستعلامات بـ VB، فهل كثرة استخدام الـ VB تثقل عمل قاعدة البيانات من خلال تنفيذ الاوامر؟
تقبلي تحياااتي وجزاك الله خير
وفقكم الله
بارك الله بك أخي الكريم
بالنسبة للنقطة التي تحدثت عنها بخصوص ان كثرة استخدام اكواد VB تثقل عمل القاعدة فأقول مستعينة بالله من واقع الخبرة والتجربه
1. استخدام الأكواد البرمجية بميزان معقول لا يؤثر ابدا على قاعدة البيانات بل بالعكس يجعلها مستقره اذا لم يكن بها اخطاء برمجيه ولكن لا نجعل كل شيء في قاعدة البيانات اوامر في اوامر
2. قاعدة البيانات اكسيس هي من النوع العلائقي اي انك تحتاج فيها الى استخدام الإستعلامات لظروف خاصه لا تستطيع معها استخدام الكود او الإستغناء عن الإستعلامات حيث ان التعديل في الإستعلامات اسهل بكثير منه في الأكواد لأنها ظاهره امامك كل الإجراءات الخاصة بالإستعلام .
3. في كثير من الأحيان نحتاج الى الإستعلامات الجدولية للقيام بمهام معينه ويصعب الكود القيام بهذا الإجراء .
ختاما نحاول دائما التوازن في الأمور فلا نعتمد اعتمادا كليا على الإستعلامات او على الأكواد البرمجيه البحته في القاعده لأن قاعدة البيانات هي في الأساس متكامله مع بعضها البعض .
بالتوفيق
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
