السلام عليكم ..
اخواني اعضاء وزائري منتدي Access.. مررت بمشكلة عويصة اعترضت تكملة برنامجي وتتلخص المشكلة في أني قمت بعمل كود وذلك لإرسال التقارير مباشرة عبر البريد الإلكتروني ، ولكني اريد وبعد نجاح وإتمام عملية الإرسال اريد أن يقوم البرنامج بتحديث بعض البيانات إعتماداً على التقرير المرسل وقد حاولت وضع إستعلام تحديث عند حدث تنشيط التقرير وذلك لتحديث بيانات معينة ولم تنجح مع الطريقة ، فهل من طريقة لتنفيذ ما اريده ..
مرفق كود الإرسال للإطلاع عليه .. وشكراً جزيلاً مقدماً
Select Case Me!reportMenu
Case Is = 1
If IsNull([agents]) Or ([agents]) = "" Then ' التحقق من صحة إدخالات المستخدم
MsgBox "لم تقم بإختيار وكيل ، الرجاء الإختيار والمحاولة مجدداً", vbOKOnly + vbInformation, "تحقق"
agents.SetFocus
Exit Sub
End If
Report = "تقرير1"
Subject = "Your sended groups"
Message = "Your sended groups"
''''''''''''''''''''''''''''
Case Is = 2
If IsNull([agents]) Or ([agents]) = "" Then ' التحقق من صحة إدخالات المستخدم
MsgBox "لم تقم بإختيار وكيل ، الرجاء الإختيار والمحاولة مجدداً", vbOKOnly + vbInformation, "تحقق"
agents.SetFocus
Exit Sub
End If
Report = "تقرير2"
Subject = "Your groups expected to arraive"
Message = "Your groups expected to arraive within three days"
end select
DoCmd.SendObject acReport, Report, "SnapshotFormat(*.snp)", Me.Email1, "", "", Subject, Message, False, ""
end sub
On Error Resume Next
