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 باليد اليسرى ثم من قائمة

ملف نختار الامر اغلاق الكل

او نتوجه لكل ملف على حدى ونختار اغلاق من

قائمة ملف ثم انهاء.

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

ملاحظة :

قمت بعملية نسخ للحل مع الصور ثم عملية اللصق ولم تظهر الصور

واذا في هنالك طريقة اخرى اما لظهور الصور او ارفاق ملف الورد بالحل المفصل بالصور

انا جاهز بس احكولي كيف !!!!!!

مهند الشيشاني