أبو ليمونه

اخي علي شكرا لك على الكود وعلى مشاركتك ... انا خبرتي بالاكواد اشوي ضعيفة ... ولكن انا اريد تمكين وتعطيل الحقول عبر وضع علامة صح من الفورم frmControl حاولت تعديله لكن لاحظت ان الفورم frmControl لا يحفظ الحقول التي وضعت عليها صح بعد اغلاقه فلو وضعت هذا الكود في النموذج frmControl فانه لا يعمل Private Sub Form_Current() If (Me.CheckJordanians.Value = True Or Me.CheckKazakhs.Value = True Or _ Me.CheckKenyans.Value = True Or Me.CheckKoreans.Value = True) Then [Forms]![frm]![DateOfBrith].Enabled = True [Forms]![frm]![Age].Enabled = True Else [Forms]![frm]![DateOfBrith].Enabled = False [Forms]![frm]![Age].Enabled = False End If End Sub ايضا ما هو الكود الذي اضعه في النموذج frm في حدث عند الفتح لكي يشيك على الحقول التي فيها صح في النموذج frmControl شكرا لك

السلام عليكم شباب صممت قاعدة بيانات وقسمتها الى جداول والى نماذج ملف النماذج يحتوي على نموذج واحد اسمه frm راح اسوي منه اربع نسخ لاربع مستخدمين لكن اريد ان امكن بعض حقول النموذج وتعطيل بعضها في كل نسخة من نسخ النموذج بحكم ان الحقول كثيرة لدي فلا اريد ان اذهب الى خصائص كل حقل وتمكينه او تعطيله في كل نسخة من النسخ الاربع، لذا قمت بتصميم نموذج اسمه frmControl ووظيفته تمكين وتعطيل كل حقول النماذج بشكل اسرع... لكن احتاج الى اكواد vba ليعمل ... ولدي حقلين هما DateOfBrith و Age اريد تمكينهم أوتعطيلهم بناء على القيمة الموجودة بالحقل Contry ... ارفقت لكم مثال مبسط لما اريد عمله ... اتمنى ان اجد منكم المساعدة ... ودمتم،،، Prob.zip

هلا فيك ... القاعدة المرفقة مدرج فيها كم هائل من الاكواد منها حماية ومنها اخفاء ... يجب تحرير القاعدة من الاكواد المدرجة وتحويلها الى صيغة (.accdb) وسوف يعمل الكود معاك... مجرد تخمين ... لانني مبتدأ مثلك .. تحياتي لك

هلا فيك عند وضع الكود السابق في مربع النص يجب ان تنشأ مودل جديد وتضع فيه الكود التالي: Option Compare Database Public Function RowNum(frm As Form) As Variant On Error GoTo Err_RowNum 'Purpose: Numbering the rows on a form. 'Usage: Text box with ControlSource of: =RowNum([Form]) With frm.RecordsetClone .Bookmark = frm.Bookmark RowNum = .AbsolutePosition + 1 End With Exit_RowNum: Exit Function Err_RowNum: If Err.Number <> 3021& Then 'Ignore "No bookmark" at new row. Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description End If RowNum = Null Resume Exit_RowNum End Function

الحل هو بوضع مصدر الحقل : =rownum([Form])

اخي علي شكرا لك على الكود ... انا اعاني نفس المشكلة ... الكود الذي ارفقته يعمل بسلاسلة مع النماذج ولكن لا يعمل مع النماذج الفرعية في عند الفتح النموذج الاساسي الذي يحتوي على نموذج فرعي تكون النتيجة هكذا #Type! هل من حل لهذه المشكلة ؟؟؟ وشكرا لكم ،،،

يا اخوان حصلت هذا الكود بموقع مايكروسفت بس ماعرفت اغيره ليتناسب مع ملفي Sub FindOrgName() Dim dbs As DAO.Database Dim rst As DAO.Recordset 'Get the database and Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset("tblCustomers") 'Search for the first matching record rst.FindFirst "[OrgName] LIKE '*parts*'" 'Check the result If rst.NoMatch Then MsgBox "Record not found." GotTo Cleanup Else Do While Not rst.NoMatch MsgBox "Customer name: " & rst!CustName rst.FindNext "[OrgName] LIKE '*parts*'" Loop 'Search for the next matching record rst.FindNext "[OrgName] LIKE '*parts*'" End If Cleanup: rst.Close Set rst = Nothing Set dbs = Nothing End Sub هل من مساعدة؟؟

اخي s s m شكرا لك .. لقد افدتني كثيرا ، عندما نقسم قاعدة البيانات الى قاعدة امامية وخلفية فهل نستطيع حماية القاعدة الخلفية بكلمة مرورو؟؟ وكيف؟؟ واذا وضعنا كلمة مرور، فهل سوف تعمل القاعدة الامامية مع وجود حماية على القاعدة الخلفية ؟؟

السلام عليكم اخواني ... لدي نموذج وفيه مربع بحث، حاليا اقوم بادخال رقم العميل ومن ثم يجلب معلوماته ... المشكلة ان لكل عميل اكثر من طلب (ارقام الطلبات مفتاح اساسي لا تتكرر) اريد مربع البحث ان يجلب معلومات العميل من خلال ادخال رقم العميل أو رقم طلب من طلباته. كيف اطور كود vb لينظر الى ارقام طلبات العملاء مع ارقام العملاء ؟؟؟ مرفق الملف Prob1-6.zip

العفووو

اخواني ... مشكورين على التوضيح ... لكن يبقى مشكلة واحدة وهي ...هل بالامكان لفورومين مربوطين بجدول واحد العمل بنفس الوقت ؟؟؟ اعتقد الاجابة لا ... لتضارب ادخال المعلومات ... واختلاف وقت الحفظ فلو افترضنا ان الجدول يحتوي على اربعة اعمدة العامود الاول : رقم العميل العامود الثاني : الاسم العامود الثالث : الجنس العامود الرابع : العمر ولدي عدد (٢) سكرتارية واريد تقسيم العمل بينهم ... السكرتير الاول يدخل رقم العميل والاسم والسكرتير الثاني يقوم بتعبئة الجنس والعمر لكل عميل تم ادخاله فلو افترضنا ان السكرتير الاول قام بتعبئة ارقام العملاء واسمائهم وترك النموذج الخاص به مفتوح ولم يحفظه ودخل السكرتير الثاني على الفورم الذي يخصه وعدل تعديلات بسيطة على جنس احد العملاء واغلق النموذج وحفظه ... هل اذا قام السكرتير الاول باغلاق وحفظ نموذجه سيتم حفظ تعديلات السكرتير الثاني؟؟؟ او الاكسس سيقوم بحفظ اخر تعديل تمت على الجدول وهو في الحقيقة سيكون بدون تعديلات السكرير الثاني.

اخواني هذا تعديل للموضوع .. مدخلات الفورم عبارة عن : -التاريخ الهجري - عدد الأشهر مخرجات الفورم كالتالي:- -التاريخ الميلادي (تحويل للتاريخ الهجري المدخل ) - تاريخ الإنتهاء الهجري (عبارة عن عملية حسابية كالتالي: التاريخ الهجري (ناقص) عدد الاشهر (ناقص) يوم مثال لو التاريخ الهجري المدخل 05/01/1436 وعدد الاشهر المدخل 8 شهور فتكون النتيجة كالتالي : 04/09/1436) - تاريخ الإنتهاء الميلادي (تحويل نتيجة تاريخ الانتهاء الهجري الى ميلادي ) لا اريد نقل VBA هل الاكسس باستطاعته القيام بذلك ؟؟؟ لاني بحثت ولم اجد احد ليساعدني في مشكلتي ولكم مني جزيل الشكر

شكرا لك اخي اسير على التعديل

جزاك الله خير اخي اسير فعلا هذا المطلوب ...

السلام عليكم اخواني ... انا مبتداء في الاكسس واتمنى تستحملوني لدي جدولين واحد فيه رقم الطلب والجدول الاخر اسم وعمر العميل لكل طلب فلكل طلب اكثر من عميل حاولت اعمل فورم لادخال البيانات في الجدول رقم ٢ ولكني لم اوفق الفورم عبارة عن قائمة منسدلة (وهي لا تعمل) ، تقوم بجلب اسماء الموظفين من الجدول ٢ على شكل جدول ، حسب رقم الطلب المختار من القائمة المنسدلة ، ومن ثم استطيع اضافة الاسماء تحت ذلك الطلب لتسجل في الجدول رقم ٢ سؤالي كيف اجعل القائمة المنسدلة تحضر الاسماء عند اختيار رقم الطلب من القائمة المنسدلة بدون اكواد ؟؟؟ حاولت ولكني لم اوفق .... واذا الاكواد ضرورية فلا مانع .... المشكلة مرفقة وشكرا لكم PPP.accdb.zip

السلام عليكم اخوني .. صممت فورم يلبي احتياجاتي ولكن حتى يعمل يجب ان ادخل كود VBA اتمنى ان اجد منكم المساعدة وقبل طرح ما اريد اشكر الاخ عبدالجليل مصمم برنامج تحويل التاريخ من هجر الى ميلادي حسب تقويم ام القرى في هذا الموضوع http://www.officena.net/ib/index.php?showtopic=37455&p=206302 ---------------- مدخلات الفورم عبارة عن : - التاريخ الهجري - عدد الأشهر مخرجات الفورم كالتالي: - التاريخ الميلادي (تحويل للتاريخ الهجري المدخل ويتم عبر كود vba ) - تاريخ الإنتهاء الهجري (عبارة عن عملية حسابية كالتالي: التاريخ الهجري (ناقص) عدد الاشهر (ناقص) يوم مثال لو التاريخ الهجري المدخل 05/01/1436 وعدد الاشهر المدخل 8 شهور فتكون النتيجة كالتالي : 04/09/1436) - تاريخ الإنتهاء الميلادي (تحويل نتيجة تاريخ الانتهاء الهجري الى ميلادي ويتم عبر كود vba ) --------------- تحياتي لكم ،،، Problem.zip

شكرا على المثال ...

جربت ان اضع في الحقل OrderNo في الجدول رقم 2 في Default Value المعادلة هذه لجلب رقم الطلب : =[Table1].[OrderNo] بس يعطيني خطأ !!

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

السلام عليكم ... اتمنى ان تصبروا علي لانني مبتدا في الاكسس وحاب اتعلم ... لدي جدولين وفورمين لادخال البيانات في الجدولين الجدول الاول مكون من رقم الصنف (رقم غير مكرر وهو مفتاح اساسي) - رقم الطلب (مكرر) الجدول الثاني مكون من رقم الطلب (غير مكرر وهو المفتاح الاساسي) - اسم العميل (غير مكرر) سؤالي : كيف اجعل رقم الطلب في الجدول الثاني مربوط برقم الطلب في الجدول الاول (ولا اقصد هنا بكلمة ربط ريلاشن) وانما اذا قام المستخدم (أ) بادخال اي رقم طلب في الجدول الاول، يظهر رقم الطلب في الجدول الثاني لدى المستخدم (ب) ولا يضطر الى ادخاله مرة اخرى اتمنى انني وفقت لشرح مشكلتي ... واذا لديكم اي اقتراحات لحل المشكلة ... فياليت تنورني ... تحياتي لكم Pro.zip

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

هل استطيع اجبار المستخدم بادخال التاريخ الهجري بالشكل هذا 00/00/0000 والكيبورد يكون لغة عربية عبر كود VBA ؟ واذا ادخل غير هذا التنسيق تطلع له رساله تقوله يجب ادخال التاريخ الهجري بالتنسيق هذا الشكل 00/00/0000 ويجب الادخال باللغة العربية تحياتي لكم

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

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

اهلا بكم ... اخواني الغرض من الاجبار هو ان التواريخ المدخله سوف تدخل عملية حسابية والملف يشتغل عليه اكثر من شخص وكل واحد يكتب التاريخ حسب مزاجه ... كنت اتمنى انني استطيع ارفاق الملف حتى تروا اللخبطه بالملف ... المشكلة ان data validation لا يقبل التاريخ العربي وانما يقبل التاريخ الميلادي ... وانا لا اريد ايضا مدخلو البيانات يكتبوا التاريخ الميلادي جربت data validation ولم يرضى ايضا التواريخ لا تترتب من الاكبر للاصغر عند عملية تقرير عبر pivot table بسبب ان بعضها مدخل بالعربي وبعضها مدخل بالانجليزي (وتظهر على الشاشة كلها بشكل واحد لان تنسيق الخلية هو "تاريخ عربي") Screen_Shot_2014_11_09_at_7_55_19_pm.jpg