اذهب الي المحتوي
أوفيسنا

تصدير بيانات فاتورة

ابو فتحى

بواسطه ابو فتحى
في قسم الأكسيس Access

 مشاركة

الردود الموصى بها

ابو فتحى

ابو فتحى

قام بنشر
قام بنشر

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

هل ممكن تصدير بيانات فاتورة مبيعات كملف الى جهاز تانى فى محافظة اخرى و يتم ادخال كفاتورة مشتريات 

ملحوظه " لا يوجد اى ربط بينها يتم الارسال بالميل 

رابط هذا التعليق
شارك
د.كاف يار

د.كاف يار

قام بنشر
قام بنشر (معدل)

اخي الكريم

تستطيع تصدير التقرير بصيغة PDF

تستطيع ربط البريد الإلكتروني مع الأكسس

 

*** هذه الإجراءات كلها تستطيع تنفيذها بأزرار واحد فقط 

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

  

On Error GoTo errorhandle
'=============== انشاء مجلد لحفظ التصدير ======================
Dim fso As Object
Dim fldrname, fldrpath, FolderName As String
FolderName = "MyBill"
Set fso = CreateObject("scripting.filesystemobject")
          fldrpath = CurrentProject.Path & "\" & FolderName
          If Not fso.FolderExists(fldrpath) Then
             fso.createfolder (fldrpath)
          End If

'=============== تصدير التقرير ======================
Dim FilePath, ReportName, BillNumber   As String
    BillNumber = "Bill - " & BillNumber ' هنا اسم القرير الجديد
    FilePath = CurrentProject.Path & "\" & FolderName & "\" & BillNumber & ".pdf"
    ReportName = "Report1" ' اسم التقرير المطلوب تصديره
        DoCmd.OutputTo acOutputReport, "Report1", "PDFFormat(*.pdf)", FilePath, False, ""
    
'=============== ارسال التقرير بالإيميل ======================

    Dim imsg As Object
    Dim iconf As Object
    Dim flds As Object
    Dim schema, settingsUsername, settingsPassword As String
    settingsUsername = "ادخل بريد الجيميل"
    settingsPassword = "كلمة المرر"
 
    Set imsg = CreateObject("CDO.Message")
    Set iconf = CreateObject("CDO.Configuration")
    Set flds = iconf.Fields
     
    schema = "http://schemas.microsoft.com/cdo/configuration/"
    flds.Item(schema & "smtpusessl") = True
    flds.Item(schema & "smtpauthenticate") = 1
    flds.Item(schema & "sendusername") = settingsUsername
    flds.Item(schema & "sendpassword") = settingsPassword
    flds.Item(schema & "smtpserver") = "smtp.gmail.com"
    flds.Item(schema & "sendusing") = 2
    flds.Item(schema & "smtpserverport") = 465
    flds.Update
    Dim Mymsg, MsgToSend As String
        MsgToSend = "نص الرسالة"
        Mymsg = "<html><head><meta http-equiv='Content-Type' content='text/html;charset=UTF-8'><title></title></head><body style='direction: rtl; font-weight: 700; text-align: right; font-size: medium'> <p> " & "" & "<br />" & MsgToSend & "<br />" & "" & "</p></body></html>"
    With imsg
        .BodyPart.Charset = "UTF-8"
        .to = StudentEmaile
        .from = DLookup("settingsUsername", "settings", "settingNO=1")
        .Subject = BillNumber
        .HTMLBody = Mymsg
        .AddAttachment (MyAttachment)
        Set .Configuration = iconf
        .Send
    End With
 
    Set iconf = Nothing
    Set imsg = Nothing
    Set flds = Nothing

errorhandleexit:
        Exit Sub
errorhandle:
        MsgBox Err.Description
        Resume errorhandleexit

 

 

 

تم تعديل بواسطه د.كاف يار
  • Like 3
رابط هذا التعليق
شارك
ابو فتحى

ابو فتحى

قام بنشر
  • الكاتب
قام بنشر

اخى الكريم

الفكرة 

يوجد مخزن رئيسى و 5 محلات ليس فى مكان واحد و بدون ربط بيهم

المطلوب 

جهاز المحزن الرئيسى يقوم بعمل فاتورة مبيعات لمحل رقم 1 وتصدير على الاميل كهيئة ملف نص بالحماية من التلاعب به 

جهاز محل رقم 1 استيراد الملف النصيه الى قاعدة البيانات كفاتورة مشتريات فى البرنامج

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept