امير عاطف

يعد Snapshot ملف ذو امتداد .snp ونسخته تكون ذات جودة عالية من كل تقرير من تقارير Microsoft Access ويحافظ هذا الملف على التخطيط ثنائي الأبعاد، والرسومات، والكائنات المدرجة الأخرى في التقرير ولتحويل التقرير الى تنسيق لقطه Snapshot : File Export ثم من اسفل يتم اختيار Snapshot Format

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

ضع الكود بالنسخ واللصق العادي .. وسوف نقوم بتنسيقه

ممكن تضع جملة الـ SQL بالكامل او الكود بالكامل الذي يعتبر السطر السابق جزءاً منه

بالنسبه للشرطة المائله وكتابة رقم السنه قبلها فيمكنك وضع حقل ووضع التعبير داخله بحيث يساوي: حقل الرقم التلقائي + الشرطة المائله + رقم السنه واستخراج رقم السنه يكون عن الطريق الدالة Year وتجد الكثير من الشروحات للترقيم التلقائي بخلاصة المشاركات بالمنتدى وتجد ايضاً شرح للدالة Year بقسم الدوال

شكراً على الهديه وجزاك الله كل خير

نعم الكود السابق يفي بالغرض ايضاً

اسفل العمود Action بالماكرو اختر الإجراء RunApp ثم امام امام Command Line الموجود اسفل اكتبي Calc.exe يعني يتم كتابة Calc.exe فقط امام سطر الأوامر أو وضع مسار البرنامج بدون وضع الكلمة Shell

الدالة التالية تقوم بإرسال بريد إليكتروني بواسطة أوت لوك مع ملف مرفق من خلال الأكسس وهي وهي من عمل الأخ الكريم أبو هاجر جزاه الله خيرا Function sendmail() Set objOutl = CreateObject("Outlook.Application") Set objMailItem = objOutl.CreateItem(olMailItem) 'Const olMailItem = 0 ' Constants for new items Const olAppointmentItem = 1 Const olContactItem = 2 Const olTaskItem = 3 Const olJournalItem = 4 Const olNoteItem = 5 Const olPostItem = 6 objMailItem.Recipients.Add "SunnyB@xyz.com ' 1st E-mail address" objMailItem.Recipients.Add "BGate@Microsoft.com" ' 2nd recipient objMailItem.Display objMailItem.Attachments.Add "c:mydirs.txt" objMailItem.Subject = "My birthday party" ' subject objMailItem.Body = "Hi, like to invite you all to my ..." ' the message Set objNameSpace = objOutl.GetNamespace("MAPI") ' now we are ready to "logon" to outlook (using Logon method) objNameSpace.Logon "profile", "password" objMailItem.Send ' send method objNameSpace.Logoff ' logoff End Function

هذا الكود من احدى المنتديات الأجنبيه هنـــــــــــــــا حيث يقوم بإرسال الإيميل من خلال الـــ outlook Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookRecip As Outlook.Recipient Dim objOutlookAttach As Outlook.Attachment Dim email As String 'Output Report As RTF DoCmd.OutputTo acOutputReport, "report", acFormatRTF, "c:\Report.RTF" email = Me.List0 ' Create the Outlook session. Set objOutlook = CreateObject("Outlook.Application") ' Create the message. Set objOutlookMsg = objOutlook.CreateItem(olMailItem) With objOutlookMsg ' Add the To recipient(s) to the message. Set objOutlookRecip = .Recipients.add(email) objOutlookRecip.Type = olTo ' Add the CC recipient(s) to the message. Set objOutlookRecip = .Recipients.add("myownEmailaddress") objOutlookRecip.Type = olCC ' Set the Subject, Body, and Importance of the message. .Subject = "Order From Allandale Sports" .Body = "Your Order Has Arrived Please Come and collect it from US " & vbCrLf & vbCrLf .Importance = olImportanceHigh 'High importance 'Add attachments to the message. 'If Not IsMissing(AttachmentPath) Then Set objOutlookAttach = .Attachments.add("c:\Report.RTF") ' End If ' Resolve each Recipient's name. For Each objOutlookRecip In .Recipients objOutlookRecip.Resolve If Not objOutlookRecip.Resolve Then objOutlookMsg.display End If Next .Send End With Set objOutlookMsg = Nothing Set objOutlook = Nothing DoCmd.OpenQuery "UPDATEARCHIVE" DoCmd.OpenQuery "ORDERCOMDETORDEDETAILS" DoCmd.OpenQuery "OrderCompleteOrderDEL" MsgBox "The Order Has been completed and the client emailed" DoCmd.Close acForm, "frmORDERCOMPLETETOCUST" DoCmd.Close DoCmd.OpenForm "Welcome Form" End If emailerror: MsgBox "There was a problem with outlook"

المثال الذي وضعه الأخ Daniello بالمرفقات SendMail.rar

هل قمت بجعل الفاصل الزمني لعداد الوقت = 100 Timer Interval=100

استخدم التنسيق الشرطي

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

http://www.officena.net/ib/index.php?showt...=المفتاح+المركب ضع حقل رقم الطالب وحقل التاريخ كمفتاح مركب -- يعني اجعلهم الإثنين مع بعضهما مفتاح اساسي Primary Key

تفضل MouseWheel.rar

أداة لإدخال تاريخ أم القرى, ActiveX control

ضع الكود التالي بوحدة نمطيه Module : Option Compare Database Option Explicit Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _ (ByVal lpPrevWndFunc As Long, _ ByVal hwnd As Long, _ ByVal msg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long Public Const GWL_WNDPROC = -4 Public Const WM_MouseWheel = &H20A Public lpPrevWndProc As Long Public CMouse As CMouseWheel Public Function WindowProc(ByVal hwnd As Long, _ ByVal uMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long 'Look at the message passed to the window. If it is 'a mouse wheel message, call the FireMouseWheel procedure 'in the CMouseWheel class, which in turn raises the MouseWheel 'event. If the Cancel argument in the form event procedure is 'set to False, then we process the message normally, otherwise 'we ignore it. If the message is something other than the mouse 'wheel, then process it normally Select Case uMsg Case WM_MouseWheel CMouse.FireMouseWheel If CMouse.MouseWheelCancel = False Then WindowProc = CallWindowProc(lpPrevWndProc, hwnd, uMsg, wParam, lParam) End If Case Else WindowProc = CallWindowProc(lpPrevWndProc, hwnd, uMsg, wParam, lParam) End Select End Function وضع الكود التالي ايضاً بوحدة نمطيه اخرى Module : Option Compare Database Option Explicit Private frm As Access.Form Private intCancel As Integer Public Event MouseWheel(Cancel As Integer) Public Property Set Form(frmIn As Access.Form) 'Define Property procedure for the class which 'allows us to set the Form object we are 'using with it. This property is set from the 'form class module. Set frm = frmIn End Property Public Property Get MouseWheelCancel() As Integer 'Define Property procedure for the class which 'allows us to retrieve whether or not the Form 'event procedure canceled the MouseWheel event. 'This property is retrieved by the WindowProc 'function in the standard basSubClassWindow 'module. MouseWheelCancel = intCancel End Property Public Sub SubClassHookForm() 'Called from the form's OnOpen or OnLoad 'event. This procedure is what "hooks" or 'subclasses the form window. If you hook the 'the form window, you must unhook it when completed 'or Access will crash. lpPrevWndProc = SetWindowLong(frm.hwnd, GWL_WNDPROC, _ AddressOf WindowProc) Set CMouse = Me End Sub Public Sub SubClassUnHookForm() 'Called from the form's OnClose event. 'This procedure must be called to unhook the 'form window if the SubClassHookForm procedure 'has previously been called. Otherwise, Access will 'crash. Call SetWindowLong(frm.hwnd, GWL_WNDPROC, lpPrevWndProc) End Sub Public Sub FireMouseWheel() 'Called from the WindowProc function in the 'basSubClassWindow module. Used to raise the 'MouseWheel event when the WindowProc function 'intercepts a mouse wheel message. RaiseEvent MouseWheel(intCancel) End Sub وبعد ذلك تضع الكود التالي بنافذة الكود الخاصة بالنموذج الذي تريد ايقاف عجلة الماوس به: Option Compare Database Option Explicit 'Declare a module level variable as the custom class 'and give us access to the class's events Private WithEvents clsMouseWheel As CMouseWheel Private Sub Form_Load() 'Create a new instance of the class, 'and set the class's Form property to 'the current form Set clsMouseWheel = New CMouseWheel Set clsMouseWheel.Form = Me 'Subclass the current form by calling 'the SubClassHookForm method in the class clsMouseWheel.SubClassHookForm End Sub Private Sub Form_Close() 'Unhook the form by calling the 'SubClassUnhook form method in the 'class, and then destroy the object 'variable clsMouseWheel.SubClassUnHookForm Set clsMouseWheel.Form = Nothing Set clsMouseWheel = Nothing End Sub Private Sub clsMouseWheel_MouseWheel(Cancel As Integer) 'This is the event procedure where you can 'decide what to do when the user rolls the mouse. 'If setting Cancel = True, we disable the mouse wheel 'in this form. MsgBox "ÚÝæÇ áÇ íãßäß Çä ÊÓÊÎÏã ÚÌáÉ ÇáãÇæÓ ." Cancel = True End Sub Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize End Sub

هل تأكدت من مقاس الورق المتصل المقاس الموجود في اعدادات الطباعة لديك يعني ممكن المقاس الموجود في اعدادات الطباعة هو A4 والورق الذي تطبع عليه له مقاس اخر A5 مثلاً

اذا اردت ان ظهور سجلات هذا الحقل بهذا التنسيق 1- 2- 3- وهكذا فقم بعمل حقل من نوع ترقيم تلقائي وحقل اخر من نوع نص وفي النموذج تجعل حقل الترقيم التلقائي مخفي بحيث تضع الكود التالي لكي تجعل الحقل الذي من نوع نص يظهر بالتنسيق السابق وليكن اسم الحقل النصي هو txtnum واسم حقل الترقيم التلقائي هو autonum txtnum=autonum&"-"

تم التثبيت

هناك برامج لكشف كلمة مرور كود ال VBA

اجعل نوع الحقل Auto Number (ترقيم تلقائي)

اذا هذا الحقل يكون نوع الحقل Ole ثم نقوم باختيار Media Clip

الله يعطيك وينعم عليك بالنجاح و الفلاح و الصلاح و صالح الأعمال انت واولادك يوسف ويحيى