أبو امين

صحه شريبتكم : تقبل الله صيامكم و قيامكم للرفع

في العادة و حسب العديد من الامثلة للخبراء في هذا المنتدى : نستطيع نقل جدوا / استعلام من قاعدة بيانات 1 الى قاعدة بيانات 2: هل يمكن نقل نموذج من القاعدة 1الى القاعدة 2

للرفع رفع الله مراتبكم و اسكنكم الفردوس الاعلى و متعكم بالصحة و العافية و بالذرية الصالحة في هذه الليلة المباركة

لو يستطيع احد اساتذتي الكرام مدي بكود الارسال من اكسيس الى قوقل شيت ساتمكن باذن الله من انهاء المثال و اعرضه عليكم لتقييمه

هذا المثال لاحد الاساتذة بالمنتدى يمكن ان يفيدك وهو سهل و جميل : Private Sub أمر25_Click() Dim strMsg As String strMsg = strMsg & " هل تريد حفظ البيانات" & vbCrLf & vbCrLf & "" If MsgBox(strMsg, vbQuestion + vbYesNo, "حفظ البيانات") = vbYes Then DoCmd.RunCommand (acCmdSaveRecord) DoCmd.RunCommand (acCmdRecordsGoToNew) Else Me.Undo End If End Sub

و الله لو كنت خبيرا لقمت بذلك و غيرت ربط الاكسيس بالانترنات : العملية تتعلق بــ : نحن نستطيع ارسال و تقبل البيانات من الاكسيس الى الاكسال و بالعكست تقبل البيانات او جلبها من الاكسيل الى الاكسيس يمكن تنفيذ هذه الفكرة على : Google Sheet الا يعتبر قوقل شيت اكسال بل هو اكسيل لكنه مربوط بالانترنات فعوض ارسال البانات للاكسيل على سطح المكتب نرسلها الى قوقل شيت على قوقل هذه الفكرة ان نجحت نقوم بمسح البيانلات مثلا بماسح الكود بار و ارسالها لموقع الصفحة بقوقل شيت في مرحلة اولى ثم نقوم بجلب تلك المعطيات من القوقل شيت الى جدولنا بالاكسيس حسب اعتقادي فكرة منطقية لكن تتطلب خبرة و خبرتي محدودة و صراحة لم اجد تجاوبا من الاساتذة الكرام يمكن تطوير هذه الفكرة : ربط برنامج الاكسيس و جداوله مباشرة بقوقل شيت فمثلا اي معطيات ننزلها من خلال نموذج بالاكسيس ترسل اليا الى جدول قوقل شيت و بالتالي تصبح قاعدتنا مرتبطة بالانترنات عن طريق قوقل شيت و بامكان اي عميل الاتصال بيها و اي عميل ينزل المعطيات من اي مكان تصدر اليا الى قوقل شيت و تنتشر اليا بجميع قواعد البيانات المرتبطة بقوقل شيت هل نستطيع فعل ذلك

في العادة و من خلال العديد من الامثلة التي قام بها اساتذتي الكرام في مجال الكود بار تبقى دائما هناك حلقة مفقودة : وهي مسح الكود بار بالهاتف في مرحلة اولى ثم ارساله لجدول اكسيس بالحاسوب : هنا لا نتحدث عن شبكة محلية و انما عن طريق الانترنات الطرق كثيرة لكنها تتطلب عباقرة في مجال الاكسيس . و الفكرة وردة من خلال امكانية ربط الهاتف بالحاسوب منزل له زنداوز 7و اكثر عن طريق برنامج : lien avec windows المثال يمكن ان يقع استغلاله خاصة من طرف المدرس عند اجراء المناداة بالفصل فمثلا عوض تسجيل الغيابات بالقلم و الورقة يعوض ذلك بالهاتف الجوال : يوجد بدفتر مناداة التلاميذ مثلا الاسم و القسم و يقوم الاستاذ بمسح كود التلميذ المتغيب فقط بالهاتف ثم يضغط على زر ليتم ارساله لقاعدة البيانات المنزلة على الحاسوب . هي طفرة تقنية في مجال الاكسيس لو تتحقق الهاتف باث ///// و الحاسوب متقبل ربما من خلال ربط ip الحاسوب و الهاتف هل بالامكان تحقيق ذلك

استاذي الكريم Moosak و اخيرا برحمة الله و فضله و جهودكم الجبارة تمكنا من استعمال مثالك في ارسال الايمايل و صراحة كانت فرحتي اكثر من عارمه لطريقة شرحك للحصول على كلمة السر من حساب الجيمايل اشتغل المثال الذي انتظرته شهورا و شهورا يبقى امر واحد عندما نريد ارسال تقرير يخبرنا ان Form 1 غير موجودة ثم اكواد زر ارسال التقرير غير موجوده هل انكم لم تتفطنوا لذلك ام الكود لم يكتمل بعد شكرا سيدي الكريم و جعل انجازاتكم و مساعداتكم في صالح اعمالكم في هذا الشهر المبارك

بوركت استاذ شكرا ربي اينور دربك

شكرا استاذي : هل بالامكان منع برنامج الواتس من الظهور لانه مقلق كثيرا

برنامج جميل و سريع لكن لماذا نعتمد اضافة الارقام يدويا . لماذا لا يكون هناك جدول يحتوي على قائمة الارقام و الاسماء و عند فتح نموذج الارسال تظهر كل الارقام باسماء اصحابها مع اعتماد التشاك بوكس لاختيار الرقم او الارقام المعينة للارسال .. لانه في اغلب الاحيان ناخذ برنامجك و ندخله على مشروع اخر و يكون هذا المشروع مجهز بجدول يحمل بيانات الحرفاء و عملية اعادة كتابة الرقم فيها تشتيت و ارهاق استاذي العزيز

هذا من كرم اخلاقك ... شكرا على مرورك و ان شاء الله صوم مقبول و ذنب مغفور .. ردك بالنسبة لنا يعتبر جوابا ... شكرا استاذي الفاضل

لم اعد اعلم هلى لهذه الدرجة عجز اساتذتي الافاضل على حل الاشكال ام ام ان السؤال بسيط الى درجة انه لم يجد الجواب : على كل احتراماتي لجميع الفاعلين و المشرفين على هذا المنتدى الكبير بطاقاته و محترفيه و لي عشم كما يقول اخوتي المصريين في التفاتت كريمة من احد الاخوة لينقذني بجواب صراحة لان العمل بالمؤسسة متعطل على هذا الجزء من المثال ساحاول استعمال نسخة 2003 و ان شاء الله تزبط المسالة شكرا

استاذ Moosak نحن ننتظر من قبل حلول رمضان لمساعدتنا

Up

Up

لا اعلم ان كان جوابي صحيحا : اولا بنية الجدول حسب اعتقادي غير صحيحة او هي ناقصة وجب فصل الصفوف عن الفصول و ربط الجداول ثانيا ربما هذا الكود يساعدك : Private Sub Form_Open(Cancel As Integer) txtClass1 = DCount(" [الحقل الرئيسي] ", "[اسم الجدول]", " ما ستقوم بحسابه = 1") txtClass2 = DCount(" [ID] ", "[alsofof_name]", " alsofof_code= 1") End Sub

تفضل استاذي موسى : المثال في المرفق تقويم سنوي.accdb

للرفع رفع الله درجاتكم و اعمالكم الصالحة

للرفع رفع الله درجات حسناتكم

كل شيء تمام التمام مشكورين الاساتذة الافاضل على ما يبذلونه من جهد لنشر المعلومة احدصت بعض التغيير على الشاشة السنوية و اردت طباعة النموذج في PDF لكن الكتابة لا تضهر انظر الصورة و هذا كود الطباعة على البي دي اف وهو سليم : Dim stDocName As String Dim ter As String If MsgBox("انت على وشك تسجيل نسخة من الوثيقة بامتداد بي دي ايف *** هل تريد الاستمرار في ذلك", _ vbCritical + vbYesNo, _ "تنبيه") = vbYes Then On Error GoTo Err_Commande428_Click stDocName = "Tqweem_Sanawi" Printer.Orientation = acPRORLandscape DoCmd.OutputTo acOutputForm, stDocName, "PDF", ter, True DoCmd.Close acOutputForm, stDocName Exit Sub Err_Commande428_Click: If MsgBox(" هل تريد فعلا الغاء عملية تسجيل نسخة بامتداد بي دي ايف ؟؟؟؟؟", _ vbCritical, _ "تحذير") = vbNo Then End If End If في حين انني اريد ظهور الكتابة مث الصورة : هل يوجد حل ؟

ماشاء الله عليك ايستاذي : احتراماتي على ابداعك

استاذي الغالي انا في الانتظار ان شاء الله المانع خير

لماذا البداية بالسبت مثلا في مثالي لم اتمكن من العمل به و حاولت تغييره لكن للاسف لان العمل بمنطقتي تبتدؤ يوم الاثنين و تنتهي يوم الاحد هل بالامكان التغيير خاصة انني كنا اريد استغلال البرنامج السنوي لتوزيع الحصص النصف شه ية بقطاع التربية

ادام الله تالقك استاذي الكريم و اطال في عمرك و جعلك منارة لنا جميعا الاستعلامات تختلف في الاتي : المستوى niveau تختلف في التاريخ لكل استغلام يوم و لكل يوم حصتين تختلف ايضا في و جود مراقبين ووجود احتياط توزيع الاساتذة على القاعات.rar