mshishan2003

الله يبارك فيك ويكثر امثالك ويبعتلك ذرية صالحة ويعطيك الفردوس الاعلى وشكراً جزيلاً

الاخ ابو نادر تم ارسال الملف على بريدك وشكراً

اشكرك اخ ابو نادر واسف لاني لم انتبه الى الوحدات النمطية ولكن المشكلة الان في اغلاق RstSrchforDublc.Close في جملة ELSE الاخيرة وهذا هو الكود كما كتبته اذا كان بالامكان مراجعته ولك جزيل الشكر Option Compare Database Option Explicit Dim CnnLocal As New ADODB.Connection Dim RstSrchforDublc As New ADODB.Recordset[/align]Const ConErrNoValue = "3021" Const ConErrInvalidUseOfNull = "94" Dim StrNameEng As String Dim IntInvoice_No As Integer Private Sub Invoice_No_Exit(Cancel As Integer) On Error GoTo Err_Form_Invoice_No Set CnnLocal = CurrentProject.Connection RstSrchforDublc.Open "TblDataEmployee", CnnLocal, adOpenStatic RstSrchforDublc.Find "Invoice_No LIKE '" & Invoice_No & "'" 'StrNameEng = RstSrchforDublc!Name IntInvoice_No = RstSrchforDublc!Invoice_No RstSrchforDublc.Close If IntInvoice_No = Invoice_No Then DisplayMessageCritical "There's Duplicate Employee No. " & IntInvoice_No & " For" & vbCrLf & "" & vbCrLf & _ "Employee :" & StrNameEng & "" & vbCrLf & "" & vbCrLf & _ "In Administrative Personal DataBase.", "Duplicate Employee No." End If Exit_form_Invoice_No: Exit Sub Err_Form_Invoice_No: If Err.Number = ConErrInvalidUseOfNull Then Resume Next ElseIf Err.Number = ConErrNoValue Then RstSrchforDublc.Close Else RstSrchforDublc.Close DisplayMessageCritical Err.Description, "Error Message" End If Resume Exit_form_Invoice_No End Sub[/align]

السلام عليكم جميعاً السيد امجد لقد اضفت الكود الى برنامجي وهو برنامج ادخال الفواتير وقمت بتغير اسماء الحقول حسب الحقول في الجدول ويعطيني رسالة خطأ ويقوم بتظليل الجملة DisplayMessageCritical والملف موجود يمكن ارساله لك بالبريد او باي شكل اخر وهذا هو عنواني. ارجوا المساعدة وشكراً mshishan2003@yahoo.com

السلام عليكم ورحمة الله وبركاته احببت ان اضيف على هذا الموضوع من اعدادي لحل احد اسئلة امتحانات الرخصة الدولية لاستخدام الحاسوب ICDL اتمنى ان تستفيدوا وتدعوا لي بضاهر القلب بالدعاء الصالح والسلام وهذه هي افضل طريقة لدمج المراسلات بالتفصيل استخدم هذا الملف كمستند اساسي في دمج المراسلات. اختيار من قائمة ادوات الامر دمج المراسلات فيظهر صندوق مساعد دمج المراسلات فنقوم بما يلي : 1. من الخيار الاول نضغط على الزر انشاء ونختار الامر رسائل نموذجية فيظهر صندوق نختار منه الاطار النشط افتح ملف (addrlist.doc) و هو عبارة عن مجموعة من المعلومات عن الموظفين و استخدمه كمصدر للبيانات. 2. ثم نضغط على الخيار الثاني ونختار الامر فتح مصدر البيانات 3. يظهر صندوق فتح ملف نختار من بحث في المكان المخصص لملفات الامتحانات وهو (Z:). ثم نقوم بتظليل ملف addrlist.doc ثم نضغط على المفتاح فتح 4. يظهر صندوق نختار منه تحرير المستند الاساسي ثم يختفي الصندوق ويظهر الملف من جديد ولكن تم اضافة شريط جديد على اشرطة الادوات هو شريط الدمج 1. ادمج الحقول الموجودة في ملف (addrlist) وقم بإضافتها في نهاية الملف على الجهة اليسرى ثم قم بعملية الدمج. نقف في نهاية الملف على الصفحة الثانية ثم نقف على جهة اليسار ثم نقوم بادارج حقول الدمج من شريط دمج المراسلات حيث نختار الحقل (الاسم) ثم نضغط على مفتاح Enter ثم نختار الحقل الثاني (الشركة) ثم Enter ثم نختار الحقل الثالث ثم نقوم بالحفظ وبذلك نكون قد جهزنا ملف الدمج بادراج الحقول في المكان المطلوب وتبقى عملية الدمج لمستند جديد . فنقوم بما يلي : اختيار من قائمة ادوات الامر دمج المراسلات فيظهر صندوق مساعد دمج المراسلات ثم من الاختيار الثالث نختار دمج فيظهر صندوق دمج نلاحظ وجود الخيار مستند جديد تحت قائمة الخيارات الدمج الى وهذا يعني ظهور ملف او مستند جديد يحتوي على الحقول المدمجة تحت كل صفحتين من الملف السابق ( لان الملف يحتوي على صفحتين ) ثم نضغط على الزر دمج فيظهر ملف جديد كما ذكرنا سابقاً 2. احفظ الملف الجديد تحت اسم (نموذج 4 دمج)؟ من قائمة ملف نختار حفظ بإسم ثم نقوم بحفظ الملف على المكان المخصص بإسم ( نموذج 4 دمج ) 3. اطبع الملف الاول على نسخة واحدة؟ نرجع الى الملف الاول ( .docنموذج 4) ثم من قائمة ملف نختار الامر طباعة فيظهر صندوق الطباعة ونحدد العدد المطلوب للنسخ او ارقام الصفحات المطلوبة للطباعة ثم نختار الامر موافق لتتم عملية الطباعة. وفي حالة الطلب طباعة الى ملف نضع اشارة عن الامر طباعة الى ملف ثم نختار الامر موافق فيظهر صندوق حفظ الملف ونختار الاسم والمكان المخصص للحفظ (Z) 4. قم بحفظ الملفات وقم بإغلاقها ؟ نضغط على مفتاح Shift باليد اليسرى ثم من قائمة ملف نختار الامر حفظ الكل او نتوجه لكل ملف على حدى ونخار حفظ من قائمة ملف. 5. اغلق تطبيق معالج النصوص. نضغط على مفتاح Shift باليد اليسرى ثم من قائمة ملف نختار الامر اغلاق الكل او نتوجه لكل ملف على حدى ونختار اغلاق من قائمة ملف ثم انهاء. والسلام عليكم ورحمة الله وبركاته ملاحظة : قمت بعملية نسخ للحل مع الصور ثم عملية اللصق ولم تظهر الصور واذا في هنالك طريقة اخرى اما لظهور الصور او ارفاق ملف الورد بالحل المفصل بالصور انا جاهز بس احكولي كيف !!!!!! مهند الشيشاني