alsihran

الاخ رضوان الف شكر لك

الاخ رضوان شكرالك وضع الكود بهذه الطريقه وعند ضغط زر امر تأتي الرساله التي نصها بالاسفل ولايفتح النموذج الفرعي مع العلم هناك سجلات تحياتي Private Sub أمر193_Click() On Error GoTo Err_أمر193_Click With Me![أمر193].Form If Not (.RecordsetClone.RecordCount > 0) Then MsgBox " SubForm Hs No Records " Exit Sub Else Dim stDocName As String Dim stLinkCriteria As String stDocName = "copy_ex1" stLinkCriteria = "[ex_no]=" & Me![ex_no] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_أمر193_Click: Exit Sub Err_أمر193_Click: MsgBox Err.Description Resume Exit_أمر193_Click End If End With End Sub عفواً لم اتمكن من ارفاق الصوره هذا نص الرساله object doesn'tsupport this property or method موافق

مازلت بأنتظار رد الاخ ابو يوسف

الف شكر على ردك اخ ابو يوسف وياريت مثال او وضع الكود وشكراً مره ثانيه

لدي زر امر فتح نموذج فرعي مرتبط اريد عند عدم وجود بيانات بالنموذج الفرعي ان تطلع رساله بعدم وجود بيانات لعرضها تحياتي

up

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

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

الاخ رضوان اذا كمنت تقصدني انا ارجو ان تفصل اكثر لأني بصراحه مافهمت index .sort علمأ ان برنامج الاكسس لدي باللغة العربيه

طلعت بهذا الشكل #Name?

شكراً على مرورك اخ رضوان لقد فعلت كما قلت وتبقى النتيجه نفس الشي عند اعادة تشغيل الجهاز ارى الملف هذا Microsoft Access Record-Locking Information وكأن قاعدة البيانات لم تغلق لذلك اتوقع يجب اولاً تنفيذ الكود الاول ومن بعده الكود الثاني وللأسف لااعرف كيف اضعه تخياتي

الاخ رضوان لقد قمت بجميع الخطوات التي اشرت الي بها والنتائج كلها تمام يتم اضافة اسم مدخل البيانات واسم المعدل في الجداول لكن الأن الشي الي ابيه يمكن ماقدرت اوصلك المعلومه بشكل صحيح اريد ان اضع حقل على النموذج يبين اسم المستخدم الحالي للبرنامج وقد وضعت بهذه الطريقه في مصدر عنصر التحكم Myuser.Username ولكن يطلع في الحقل كلمة (( خطأ )) تحياتي لك

ويتكون الكود الاول من زر امر لألغاء فتح قاعدة البيانات والكود الذي اريد تضمينه يقوم بأيقاف تشغيل الوندوز هذا هو الكود الاول Private Sub Cansel_Click() On Error GoTo Handle_Error [Forms]![frm-UserLogon].Visible = False If MyUser.Valid Then DoCmd.Close ElseIf MsgBox("هل ترغب بمغادرة البرنامج؟", 4 + 32, "تأكيد الخروج") = 6 Then DoCmd.Quit Else [Forms]![frm-UserLogon].Visible = True End If Exit_Process: Exit Sub Handle_Error: MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Process End Sub وهذا هو الكود الثاني الذ ياريد تضمينه في الكود الاول Call Shell("shutdown -s -t 25 -c بدأ.العد.التنازلي.لإيقاف.الجهاز.بعد25ثانية.مع.أطيب.الأماني", 1) وقد حاولت تضمين الكود بنفسي ووضعته بهذه الطريقه Private Sub Cansel_Click() On Error GoTo Handle_Error [Forms]![frm-UserLogon].Visible = False If MyUser.Valid Then DoCmd.Close ElseIf MsgBox("هل ترغب بمغادرة البرنامج؟", 4 + 32, "تأكيد الخروج") = 6 Then DoCmd.Quit Shell("shutdown -s -t 25 -c بدأ.العد.التنازلي.لإيقاف.الجهاز.بعد25ثانية.مع.أطيب.الأماني", 1) Else [Forms]![frm-UserLogon].Visible = True End If Exit_Process: Exit Sub Handle_Error: MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Process End Sub وقد نجح الكود ولكن للأسف عندما اعيد تشغيل الجهاز مره اخرى ارى الملف Microsoft Access Record-Locking Information الذي يعمل عند فتح قاعدة البيانات لم يغلق وكن قاعدة البيانات مازالت مفتوحه تحياتي للجميع

الاخ رضوان بالنسبه لهذه الطريقه لظهور اسم المستخدم الحال في حقل على النموذج لم تنجح معي Myuser.username

الف شكر لك ياغالي

للاسف بحثت في المنتدى ولم اجد اي نتائج ارجو ممن لديه رابط عن الموضوع ان يضعه هنا تحياتي

الاخ رضوان فعلاً المشكله كانت في استعلام التحديث واصبح الآن كل شي تمام بقي ان أسألك عن الرقم السري لكود منع الشفت الذي وضعته ثانياً اريد ان اعرف التعبير المناسب لظهور اسم المستخدم في الحقل على النموذج انا وضعت هذا التعبير ولم ينجح معي dlook up myuser .user name= ارجو منك وضع التعبير المناسب لظهور اسم المستخدم الحالي وشكرا لك

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

لاخ رضوان لقد وجدت المشكله وارجو ان تساعدني على حلها اولاُ في خصائص النموذج الذي وضعته انت ادخال بيانات لا تأمين سجلات سجل محرر بينما في النموذج الذي لدي ادخال بيانات نعم تأمين سجلات بلا تأمين وحينما وضعت نفس البيانات التي وضعتها انت تمت تعبئة حقل اسم المعدل والتاريخ لكن ظهرت مشكله اخرى وهي اني عندما اقوم مثلاً بتعديل البيانات في السجل رقم (5 ) يتم نسخه بالكامل على السجل رقم (1 ) ولا يتم تعديل البيانات في السجل المطلوب وتظهر رساله تفيد [انه لايمكن تحديث سجل استعلام تحياتي وشكري لك على تعاونك وصبرك

مساء الخير هل هناك طريقة تجعل الجهاز يفتح على قاعدة البيانات مباشرة من غير ان يتمكن المستخدم من الدخول الى سطح المكتب او يفتح احد المستندات والبرامج وعند اغلاق القاعده يغلق الجهاز تحياتي

الاخ رضوان كان بودي اضع ملفي على الموقع هنا لكن حجمه كبير بعد الضغظ يصل حجمه تقريباً 4 ميغا بايت وبالنسبه لهذا الكود [Private Sub Form_BeforeInsert(Cancel As Integer) [CreatedBy] = MyUser.UserName [CreatedDate] = Now() End Sub l] نجح معي فقط في ادراج سجل جديد اما بالتعديل فلا تتم تعبئة الحقول الاخت لينا اسف لأني كتبة اسمك زهره وحبيت اسألك هل برنامج صلاحايات المستخدمين عملك مشاكل في النماذج لأني بعد ماثبته عملي مشكله في بعض النماذج اصبحت لاتفتح تحياتي للجميع

اللي حصل مع الاخت زهره حصل معاي وحتى عندما وضعت الكود الاول الذي يحتوي غلى اسم المستخد والتاريخ لم يتم تعبئة الحقول

التعديل في البيانات يكون عن طريق نموذج اخر خاص بتعديل البيانات طبعاً بعد تعديل البيانات هناك زر امر تسجيل انا حاولت اني اضع الكود قبل التحديث ولم ينفع معي تحياتي

فهمت قصدك اخيراً اخوي رضوان بس بقى استفسر عن شي واحد لوكان التعديل عن طريق نموذج اخر فكيف واين يتم ادراج الكود

الاخ رضوان حاول كثي والله اني تعبت ارجو منك وضع الكود بالكامل حسب معطيات الكود الذي وضعته انا بالاعلى من دون ان تستثني اي شي اشكرك على صبرك معي