بن شجاع الدين

بإمكانك استخدام 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 شاكرا جزيلا مقدما

من العيون, بعد البحث في المواقع العربية والأجنبية وصلت الى نتيجة ان قاعدة البيانات قد تلفت ولا يمكن استعادتها, طبعا في حالتي وملابساتها كما يلي : 1- كلمة المرور غير موجودة . 2- احتمال ان يكون قد حصل انقطاع للتيار الكهربائي في غرفة السيرفير . 3- احتمال ان يكون احد العاملين في قسم نضم المعلومات قد قام بعمل تحريك او تغيير في المسار الذي تتواجد في نهايتة قاعدة البيانات لأني اكتشفت انه قد تم نسخ المسار في عدة مجلدات . كيف حلت المشكلة : كنت قد عملت نسخة من قاعدة البيانات قبل اسبوعين من حصول المشكلة , وايضا نسخة من الجداول الرئيسية المفتوحة للمستخدمية في قاعدة البيانات الواجهه المخصصة للمستخدمين وهاذا ما انصح به جميع مصممي قواعد البيانات وهو بكطريقة او باخرى يتم تمكين المستخدمين او على الأقل المستخدم المشرف ان يحصل على جداول المعلومات الكاملة بدون الاستعلامات واضن ان الجميع يقوم بفعل هذا عند تصمصم قواعد البانات . الخلاصة لدي نسخة من قاعدة البيانات الصالحة , لما فبل اسبوعين , وعندي ايضا البيانات التي تم ادخالها حتى قبل يومين من حصول المشكلة وتوقف قاعدة البيانات عن العمل في ملف اكسل . قمت بتتبع المسار حتى قاعدة البانات ووجدت انه حصل تغيير وقمت بنقل قاعدة البيانات التالفة الى ملف باسم مختلف ووضعت قاعدة البيانات النسخة في المسار الصحيح . التضحية كانت في: 1- عمل ثلاثة ايام (بيانات تم ادخالها الى قاعدة البيانات التالفة ضاعت كلها) ويجب اعادة ادخالها وما قد يصاحبها من اخطاء و ضياع للوقت . 2- تراكم عمل يومين لبيانات لم يتم ادخالها ووقت اضافي وضائع. الفائدة : - يجب عمل نسخة من قاعدة البيانات Backup . - يجب نسخ البيانات في ملفات مختلفة في نهاية فترة العمل ووضعها في عدة مواقع . - يجب ان تخطط جيدا عند عمل كلمة مرور لقاعدة البيانات الرئيسية على اسس واضح يسهل عليك تذكرها في حال نسيها . اعتذر على الأطالة ولاكن الألم كان موجع والمسئولية لم يتم تحديدها .... لذا وجب التوضيح , وقد اكون مصيب في تحديد سبب المشكلة ولمن يريد وضع تحليل اضافي او مختلف فله الشكر لكي يتم تجنب حدوث المشكلة وعدم ضياع الوقت والجهد . وشكرا .

شكرا جزيلا على العموم تم حل المشكلة مع بعض التضحيات

سلام عليكم اخواني : اواجه هذه المشكلة فعندما احاول فتح قاعدة البيانات الموضوعة على السيرفر من واجهة البرنامج الموجودة على سطح المكتب تضهر لي هذه الرسالة Unrecognized Database Format in MS- Access مع اني استخدم قاعدة البيانات هذه طوال الوقت ولاكن وبدون مقدمات حصلت لي هذه المشكلة. قاعدة البيانات الموجودة على السرفر محمية بكلمة مرور وقد نسيتها . ارجو المساعدة

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

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

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

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

المعذرة اخي جعفر , ظهرت لدي مشكلة , وهي عند النقر على زر فتح الملف تضهر رسالة طلب التاكيد (موافق - الغاء) وعند النقر على الغاء يحصل خطا ويطلب بتعديل الخطاء في VBAفما هو الحل لها؟

عمل رائع ولاكنه نوعا ما ناقص! مثلا كيف يمكن للمستخدمين ان يقومو بتغيير كبمة المرور الخاصة بهم.

شكرا جزيلا اخي الكريم .