بن شجاع الدين

بإمكانك استخدام Power quarry لأستيراد بيانات او جداول من صفحة على الانترنت,

تفضل المثال اخي الكريم تم تجهيزة على عجل CLOSE DB ON TIME.rar

شكرا اخي Jaffer ولاكن عند النقر على ور امر التصدير الى اكسل تضهر لي هذه الرسالة فما هو السبب لو تكرمنم Error MSG.rar

سلام عليكم وما زلت أأمل ان يجيب على تساؤلي احد الأخوة

سلام عليكم هل من مجيب؟

شكرا جزيلا للجميع: استخدمت هذه الكود وكانت النتائج جيدة. حيث يوضع هذا الكود في نموذج البداية عند فتح قاعدة البيانات بشرط ان يكون مفتوح دائما " يعني ممكن يكون مخفي" وكما ترون يعتمد على النموذج الفاعل اي كان ويقوم بمراقبة سجلات محددة ومتابعة التغييرات اذا حدثت . ايضا يتابع التنقل بين النماذج فاذا لم يحصل التغيير خلال الفترة المحددة ب15 دقيقة يقوم باقفال قاعدة البيانات. شكرا لمساعدتكم جميعا Private Sub Form_Timer() ' IDLEMINUTES determines how much idle time to wait for before ' running the IdleTimeDetected subroutine. Const IDLEMINUTES = 15 Static PrevControlName As String Static PrevFormName As String Static ExpiredTime Dim ActiveFormName As String Dim ActiveControlName As String Dim ExpiredMinutes On Error Resume Next ' Get the active form and control name. ActiveFormName = Screen.ActiveForm.STOLINNO 'ACTIVRECORD = Screen.ActiveControl.STOLINNO If Err Then ActiveFormName = "No Active Form" Err = 0 End If ActiveControlName = Screen.ActiveControl.ID If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.SES If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.Status If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.Problems And issues4 If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.Problems And issues2 If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.RecordID If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.lng_TblRecord If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.sesreprt1 If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.sesreprt2 If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.Frame7 If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.VendorName If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.Statusselctreport If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.NONTID If Err Then ActiveControlName = "No Active Control" Err = 0 End If ' Record the current active names and reset ExpiredTime if: ' 1. They have not been recorded yet (code is running ' for the first time). ' 2. The previous names are different than the current ones ' (the user has done something different during the timer ' interval). If (PrevControlName = "") Or (PrevFormName = "") _ Or (ActiveFormName <> PrevFormName) _ Or (ActiveControlName <> PrevControlName) Then PrevControlName = ActiveControlName PrevFormName = ActiveFormName ExpiredTime = 0 Else ' ...otherwise the user was idle during the time interval, so ' increment the total expired time. ExpiredTime = ExpiredTime + Me.TimerInterval End If ' Does the total expired time exceed the IDLEMINUTES? ExpiredMinutes = (ExpiredTime / 1000) / 60 If ExpiredMinutes >= IDLEMINUTES Then ' ...if so, then reset the expired time to zero... ExpiredTime = 0 ' ...and call the IdleTimeDetected subroutine. IdleTimeDetected ExpiredMinutes End If End Sub

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

شهركم مبارك, عل يمكن ان اضع شرط في نموذج يقوم باغلاق اجباري للفورم اذا لم تستخدم من لمدة محددة مثلا (دقيقتان) و ايضا اغلاق اجباري لقاعدة البيانات اذا لم تستخدم لوقت معين مثلا (عشر دقائق).

سلام عليكم وشهر مبارك على الجميع. احتاج الى ما تعودت عليه من كرمكم ودعمكم , حاولت ان اجد ما اريد في المنتدى ولاكن لم اوفق, ارفقت ملفين الملف الأول هو ملف اكسس فيه بيانات في نموذج وما اريده هو ان يتم تصدير البيانات محددة من الفورم الى الملف الثاني وهو ملف اكسل مجهز مسبقا في الخلايا المخصصة لها في ملف الأكسل. وذالك عند النقر على زر امر كما في الملف المرفق Export to excel temp.rar

شكرا جزيلا اخي العزيز: توصلت الى طريقة اخرى ومناسبة لأحتياجي وهي كالتالي: On Error Resume Next Dim Crnt As Variant " رقم التعريف" Crnt = Me.ID Me.Requery Me.ID.SetFocus DoCmd.FindRecord Crnt , , , , , acCurrent

سلام عليكم اخواني : هل يوجد كود يقوم عند النقر على زر امر يقوم بتحديث النموذج بالكامل والبقاء على السجل الحالي . تاكيد على البقاء على نفس السجل

سلام عليكم جربت البرنامج ولاكنه لا يفتح الملفات التي تم ارفاقها

شكرا جزيلا للجميع : وصلت الى ما اريد بطريقتين مختلفتين , واليكم الكود Private Sub SENDEMAIL_Click() On Error Resume Next VENDORID = Me.VENDORID emailto = DLookup("[VEMAIL]", "VENDORS DETAILS", "[ID] = VENDORID") emailcc = DLookup("[Action Data]", "Emailing data", "[ID] = 1") emlsubject = DLookup("[Subject]", "Emailing data", "[ID] = 1") emltxtbody = DLookup("", "Emailing data", "[ID] = 1") emiltxt1 = Me.VENDOR_NAME & vbCrLf & vbCrLf & vbCrLf & vbCrLf & " In order to proceed with your payment for PO ( " & Me.PO & " ) kindly invoice us with the amount of USD (" & Me.PaymentiD & " ) instead of ( " & Me.AMOUNT & " ) in your invoice Number: ( " & Me.INVNumber & ") received on ( " & Me.INVDATE & ") ." & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Regards," & vbCrLf & vbCrLf & " Billing Department " emlsubject1 = "Amendment Request of your Invoice: (" & Me.INVNumber & ") for PO No ( " & Me.PO & ")" On Error Resume Next DoCmd.SendObject , , acFormatXLSX, emailto, emailcc, , emlsubject1, emiltxt1, True, True End Sub

مساء الخير وجمعة مباركة : بفضل من الله وصلت الى ما اريد : واليكم النتيجة : Private Sub SENDEMAIL_Click() On Error Resume Next VENDORID = Me.VENDORID emailto = DLookup("[VEMAIL]", "VENDORS DETAILS", "[ID] = VENDORID") emailcc = DLookup("[Action Data]", "Emailing data", "[ID] = 1") emlsubject = DLookup("[Subject]", "Emailing data", "[ID] = 1") emltxtbody = DLookup("", "Emailing data", "[ID] = 1") emiltxt1 = Me.VENDOR_NAME & vbCrLf & vbCrLf & vbCrLf & vbCrLf & " In order to proceed with your payment for PO ( " & Me.PO & " ) kindly invoice us with the amount of USD (" & Me.PaymentiD & " ) instead of ( " & Me.AMOUNT & " ) in your invoice Number: ( " & Me.INVNumber & ") received on ( " & Me.INVDATE & ") ." & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Regards," & vbCrLf & vbCrLf & " Billing Department " emlsubject1 = "Amendment Request of your Invoice: (" & Me.INVNumber & ") for PO No ( " & Me.PO & ")" On Error Resume Next DoCmd.SendObject , , acFormatXLSX, emailto, emailcc, , emlsubject1, emiltxt1, True, True End Sub

- تقريبا معضم طرحك صحيح ولاكن قوم بالتوضيح : - عند النقر على زر الأمر في النموذج "Invoicer " يتم التالي : 1- يتم اخذ ايميل المورد من الجدول "Vendor Details " من خلال رقم المورد الموجود في النموذج للوصول الى الأيميل . 2- يتم الحصول على ال CC , AND BCC و ايضا الموضوع و الرسالة من الجدول Emailing Data نفس الأيميلات ال CC ,AND BCC والموضوع والرسالة يتم استخدامها عند الحاجة الى ارسال ايميل الى ال مورد محدد في النموذج . وفي هذه الحالة اريد ان يتم اخذ السجل رقم 1 3-في الأوتلوك - الأيميل يكون يحتو الموضوع على البيانات الثابتة في السجل رقم 1 Subject و ايضا رقم الفاتورة كمتغير يتم الحصول علية من النموذج المفتوح حاليا Invoicing مرفق ملف اكسس معدل و صور امثلة EmaiL TO2.rar شاكرا جزيلا مقدما