أريد إرسال التقرير إلى الفاكس من خلال البرنامج

Up

up

عزيزي الفاضل

ستجد الاجابه هنا في هذا الرابط

http://support.microsoft.com/default.aspx?...kb;en-us;231797

حيث يخبرك اولا بالقيام بعدة امور

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

اذهب الى ملف ومنها الى اعداد الصفحه

ستظهر لك لوحة اعداد الصفحه اختر منها تبويب الصفحه الخيار الاوسط

انتقل الان الى اخر اللوحة واختر منها الطابعة لـ منتجات

ستجد خيارين اختر الثاني في الاسفل وهو استخدام طابعة معينة

الان ستفتح لك زر امر الطابعة قم بالضغط عليه لتفتح لك لوحة جديده

من القائمة المنسدلة اختر فاكس Fax

ثم اضغط موافق ثم موافق مره ثانية لتخرج من الاعدادات

ثانيا : قم بإنشاء ماكرو بإسم SendFax

وذلك من خلال اجراء حدث عند الفتح للتقرير

الان سيظهر لك الماكرو المسمى SendFax وعلى نفس السطر في القسم الثالث ستجد الاجراء قم بكتابة الجملة التالية SendObject

بمجرد ان قمت بالكتابة ستجد اسفل لوحة الماكرو ان نوع الكائن قد فتح لك النوع واسم الكائن ونوعية اخراج البيانات وارسال الي قم بكتابة التالي في كل نوع

النوع : Report

اسم الكائن : Catalog

نوع الاخراج : Rich Text Format

الى : [ ####-###: Fax ] حيث تمثل المربعات رقم الفاكس المرسل اليه التقرير

الان قم بتشغيل الماكرو من خلال علامة التعجب الحمراء في الاعلى واحفظ الماكرو واخرج

ثالثا : قم بتشغيل منشئ الفيجول بيسك وانشء موديل Module جديد بإسم SendFax

واحفظ عملك

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

الان بإمكانك ارسال التقرير عن طريق الفاكس بكل سهوله

ولك شكري وتقديري

اختكم المخلصة

زهره

اختي زهره

كفيتي ووفيتي

شرح وافي وسرد جميل

015

الله يعطيك العافيه مقصرتي وشكرا جزيلا لك

لا شكر على واجب وهذا اقل ما يمكن عمله لاعضاء هذا المنتدى الرائع

تحياتي لكم جميعا

أختي زهرة لقد عمل كل هذا لكن تظهر لي هذه الأخطاء بعد خروج الرسالة التي تخبرني أنك هل تريد إرسال فاكس

لقد أرفقت صور الأخطاء

Error.zip

استاذي الفاضل المبرمج 15

يوجد لديك خطأ في الكود ارجو الانتباه جيدا ولو تمعنت النظر قليلا في الكود والصور المرسلة في المرفق لوجدت الحل هذا هو الكود

Function FaxInvoices()
    Dim dbsNorthwind As DAO.Database
    Dim rstCustomers As DAO.Recordset

    Set dbsNorthwind = CurrentDb()
    Set rstCustomers = dbsNorthwind.OpenRecordset("Customers", _
        dbOpenDynaset)

    If MsgBox("Do you want to fax invoices" & Chr(13) & _
        "to all customers using Microsoft Fax?", 4) = 6 Then
        With rstCustomers
            Do Until .EOF
                'Create the Invoice report Filter
                'used by the Report_Open event.
                strInvoiceWhere = "[CustomerID] = '" & ![CustomerID] & "'"
                DoCmd.SendObject acReport, "Invoice", acFormatRTF, _
                    "[fax: " & ![Fax] & "]", , , , , False
                .MoveNext
            Loop
        End With
    End If

    rstCustomers.Close
End Function

اولا : لنحاول ايجاد الاخطاء السبعة بين الكود وبين قاعدة بياناتك

سؤال : هل يوجد في قاعدة بياناتك حقل او مسمى بإسم CustomerID

الاجابة : لا يوجد لديك اذن غير في الكود ما يتطابق مع المعرف التلقائي

سؤال : هل ادخلت رقم الفاكس بالصوره الصحيحة

الاجابة لا ......... حاول ان تدخل الرقم بطريقة صحيحة عنما تفتح الماكرو وتدخل SendObjec ستلاحظ انها فتحت لك لوحة سفلية تدخل فيها الرقم السباعي للهاتف

معلومة على الطاير

لا يمكن الاتصال على الفاكس وانت تعمل على الانترنت

سؤال : هل اسم التقرير لديك هو Report

الاجابة : اكيد لالالالا اذن غير ما يلزم تغييره

سؤال : هل النوت باد هو الافتراضي لديك ام انه المفكره او الوورد لفتح ملفات من نوع RTF

الاجابة : طبعا لا .... اذن غير للنوت باد

كل هذه الاخطاء البسيطة تمنع اعدادات الفاكس من الارسال علما بأني ادرجت الرابط لحل مشكلتك للاعتماد عليها بشكل رئيسي ونقل الكود وهو ستاندر تقوم بالتعديل عليه وفق احتياجاتك في قاعدة البيانات

ختاما خيرها في غيرها

ولك شكري وتقديري

اختكم المخلصة

زهره