محمد طاهر

بما أنك وضعت المثال ثانية فسأحاول مرة أخري معه :( استبدل الكود فى زر تنفيذ بالآتي Private Sub Command26_Click() DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Trans ( [No], NIN, [comp], Sttotalno, price, Perform, type, Period )" & _ "SELECT NonCompleted.[no…

up

أولا يرجي مراجعة قواعد طرح الاسئلة من حيث العنوان قم بعمل استعلام مبني علي الجدول و فى خانة المعايير criteria للحقل المطلوب ضع 0 أو -1 بحسب الحاجة لاظهار ما لم يتم إختياره او ما تم إختياره ثم اجعل التقرير مبني علي هذا الاستعلام و ليس علي الجدول

ساعد مثال مشابه ، من البداية و بصورة مبسطة ، و أوضح الفكرة من البداية علي هذا الملف و بذلك يكون فائدته أكبر ليستفيد منه عدد أكبر من الأخوة و سأضعه قريبا بإذن الله

شكرا للأخ نور الشمس علي الاجابة مع اضافة بسيطة أن الزر الذي يؤدي الي ذلك هو insert و ليس num Loock

المثال datenow.zip

في حدث عند الفتح ضع الكود المذكور كما هو هنا Private Sub Workbook_Open() If Date = #4/8/2003# Then MsgBox "kkkk" End If End Sub حيث 8 هو رقم اليوم و 4 الشهر إضغط ALT+F11 ثم انقر مرتين علي ال woorkbook و الصق الكود كما فى المثال فى الموضوع الاخر

هذا تقليد إتبعناه فى قسم الاكسس ،/ و أرجو منكم المشاركة فى تطبيقه هنا فى قسم البيزيك المطلوب هو ترشيح أفضل مشارك فى كل من قسم البيزيك و القسم الفرعي للبيزيك دوت نت علي أنا يراعي أساسا العطاء و المستوي العلمي و حسن التعامل و لا مانع من ترشيح أكثر من إسم ، و يكو…

جرب هذا الكود http://www.arabteam2000.com/vb/showthread....%CA%D5%DB%ED%D1 للأخ moody1616

راجع هذا الموضوع http://www.arabteam2000.com/vb/showthread....&threadid=24267

هل يمكنك تحديد مكان الخطأ فى التنفيذ ( شغل نسخة mdb علي الجهاز ) و انظر أين يقف الكود .؟؟ فربما تكون فى حاجة الي عدد بسيط من الملفات ، أم أن ال Mdb يعمل جيدا ؟؟

أعتقد أن محاولة و ضعها فى ملف واحد الافضل له ، هو أسلوب الدمج البريدي كما ذكرت سابقا ، و هو مناسب جدا لطلبك و أكرر بوجود شرح له فى بداية هذا الموضوع :rolleyes: أما إن لم ترد التعامل معه ، و تصر علي الاسلوب الحالي ، فيمكنك علي الاقل فتح الملف ووضع البيان فبهو ط…

بما انك تستخدم الاكس بي و أنك اخترت http و هوت ميل فلا اعرف مجال للخطأ سوي أن تكون أدخلت بعض البيانات بصورة خاطئة فهو يدعم الهوت ميل الياً أو تكون تتصل من خلال شبكة عليها بروكسي يمنع ذلك

مرفق مثال و هو يعتمد علي عمل اشارة مرجعية فى الخلية التي تسبق الرقم ثم التحرك منها الي الرقم و إضافة واحد عليه و لم يتم التحرك الي الرقم مباشرة لأن الاشارة المرجعية ستضيع فى هذه الحالة اذا تم تغيير القيمة Private Sub Document_Open() mm End Sub ----- Sub mm() S…

الأخ أحمد سؤالك غير واضح حتي مع وجود المثال و رد الاخ المزيني مناسب للسؤال الذي لم يوضحه المثال كثيرا ، فبرجاء توضيح ما تقصد بصورة أكبر ملاحظة : تم تعديل المشاركة السابقة /، و لا داعي طبعا لذكر السبب :mad: مع الشكر للأخ المزيني علي تطوعه بالاجابة و علي سعة صدر…

Application.Quit _ SaveChanges:=wdSaveChanges, OriginalFormat:=wdWordDocument SaveChanges لها ثلث خيارات wdDoNotSaveChanges لعدم الحفظ wdPromptToSaveChanges للسؤال wdSaveChanges للحفظ ( كما فى الجملة أعلاه ) يبدو أنك قدد وصلت بذلك الي ما تريد أم ليس بعد اذا كا…

ضع الكتابة التي لا تريد طباعتها فى مربع رسم و عند الطباعة PRINT يوجد زر OPTIONS INCLUDE WITH DOCUMENT DRAWING OBJECTS و أزل الخيار عليها أو لتثبيتها فى المستند TOOLS OPTIONS PRINT DRAWING OBJECTS و أزل الخيار من مربع الخيارات

ستتحول الي اعلان عادي بعد ايام قليلة بإذن الله - كما أفاد الاخوة فى إدارة المنتدي - فصبرا و مؤقتا دعها مفتوحة

ربما تعرفونه ،/ و لكن أعتقد أنه جميل و لن يضر اعادة نشره ;) http://www.freecodemomma.com/links.asp?cid=7

لكي نتأكد من صحة التوقع أعتقد أنه من الافضل تجربة الملف علي جهاز آخر و أتصور أنه لن تحدث نفس المشكلة ، و بذلك سيتأكد مصدر المشكلة جرب و أخبرني