bassum

أسأل الله أن يحشركم مع أبو بكر وعمر وعثمان وعلي رضي الله عنهم وأن لا يريكم مكروه ولا أملك لكم غير الدعاء والعملية جدا ممتازة ولكن ألا يمكن التحكم بعدد الأسطر بدل الكلمات وأكون لكم شاكرا

الآن تأكدت من صعوبة الاجابه - كنت أعتقد أني سوف أحصل عى الاجابة خلال ساعات لكن على ما أضن الأجابة ممكنة على العموم لم أيأس من الاجابة

السلام عليكم ورحمة الله وبركاته أولا أشكر الإخوة القائمين على هذا المنتدى ثانيا شكر خاص للأخ مهند عبادي ومحمد طاهر و بقية الزملاء السؤال يقول عندي مربع نص على نموذج مرتبط بحقل في جدول نوع البيانات في الحقل مذكرة وأرغب أن لا تزيد الكتابة عن حجم مربع النص – يعني يكتب المستخدم بهذا المربع حتى يمتلئ ولا يستطيع الزيادة ، المشكلة أنك مهما تكتب بهذا المربع يقبل خاصة أنه مرتبط بحقل من نوع مذكرة والأحرف التي أرغب بأن يحتويها تقريبا 1200 حرف المشكلة الثانية أني أريد أن أكتب بهذا المربع كما أريد يعني اطمر سطر واكتب سطر أو أضع نقاط وهكذا المهم لا يتعدى حجم المربع فما هو الحل .. ------------- في البداية كنت أعتقد أن السؤال بسيط ولكني لم أفلح في الحصول على الإجابة

وعليكم السلام ما فهمته من سؤالك أن لديك ملف منسق بتنسيق خاص بحيث يكون هذا التنسيق لبقية الملفات وبعد التعديل أو النسخ من المفكرة تريد أن يكون السؤال بلون احمر والجواب بلون اسود على سبيل المثال .. إذا كان هذا هو سؤالك فأليك الجواب أولا أفتح النسخة الإحتياطية أو الملف المنسق بالتنسيق الذي تريد وعدل عليه ما تشاء وأجعل الأسطر متباعدة أو متقاربة وبالحجم واللون الذي تريد ثم أنقر على ملف - حفظ بإسم - ثم أكتب ما تشاء كتسمية للملف ومن خانة تحديد نوع حفظ الملف اختر قالب Save as type : Document Template وسيحفظ هذا الملف كقالب يمكنك فتحة فيما بعد من القوالب وعند لصق نص سيأخذ النص الملصوق مواصفات الخط بالقالب وتقبل تحياتي ..

نسأل الله أن يثيبك على ما تقدمة يا أخي الكريم مهند عبادي نعم لقد عرفت الخطأ ويعمل الكود بشكل جيد وتختفي الكائنات وكل شيء على ما يرام ولكن كيف أظهر الكائنات مرة أخرى .. أو بمعنى أوضح كيف أتعامل مع الكائنات المسماة basm في Tag كيف أغير موضعها مثلا كيف أخفيها مثلا ... ............. هذه عرفت ونسأل الله أن يثيبك كيف أظهرها مثلا Dim Ct As Control For Each Ct In Me Ct.Visible = True Next Ct يظهر كل الكائنات كما تعلم وتقبل تحياتي ...

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

أولا أسأل الله أن يدخلك فسيح جناته والا يتكلك على أعمالك ثانيا هذه الطريقة تخفي كل القسم والمطلوب هو إخفاء عشر كائنات فقط من على القسم ليتبقى 6 ومن الصعب كتابة كل كائن بالطريقة سابقة الذكر هناك شيء أنا أبحث عنه وهو أن تكتب بخانة الكائنات طبعا من الخصائص وبخانة Tag مثلاً basm وفي الكود تخفي كل الكائنات التى في خانة Tag ......... الكلمة basm أنا كنت اسويها على الفجوال بيسك بس للأسف نسيت الطريقة مع التقدير والاحترام للجميع

السلام عليكم ورحمة الله وبركاته السؤال يبدو أنه بسيط ولكنه مهم بالنسبة لي عندي على النموذج عدد كبير من الكائنات مثل مربعات النص والتحرير والسرد .. إلخ كيف أخفي هذه الكائنات أو بعضها بواسطة القروب على سبيل المثال Text1 و Text2 و Text3 لا أريد أن استخدم Text1.Visble = False Text2.Visble = False Text3.Visble = False كيف أخفيها بأمر واحد مثلا أو عن طريق Tag مع الشكر الجزيل مقدماً

بصراحة مدري وش أقول لك ما قادر أعبر عن شعوري خاصة بعد ما نجحة العملية ولا املك إلا الدعاء لك والا ننسا القائمين على هذا المنتدى والله يباعد بينك وبين جهنم ويقيك من عذاب القبر ويسترك في الدنيا ولآخرة وفي الحقيقة أن الموظفين بالقسم كلهم يدعون لك مع العلم أن لدي استفسار آخر بس زي ما يقول المثل إذا صار صاحبك عسل لاتلحسه كله والسلام عليكم ورحمة لله بركاته

ألله يسلمك ويحشرك مع الصالحين ويقيك عذاب القبر وظلمته هذا اولاً وجربت الكود ولكن مانفع الكود كتبته بهذا الشكل [List65].[frmEmployees].Requery حيث frmEmployees هو النموذج الفرعي و List65 هو مربع التحرير والسرد على النموذج الفرعي والكود بالكامل هو Private Sub Combo48_AfterUpdate() ' Find the record that matches the control. Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[number] = " & Str(Nz(Me![Combo48], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark [List65].[frmEmployees].Requery End Sub

السلام عليكم ورحمة الله شرح بسيط للبرنامج .. أنشأت جدولين الأول يحتوي على الإدارات والثاني أسماء الموظفين طبعاً ربطت الجدولين رأس بأطراف ثم أنشأت لكل جدول نموذج وضعت النموذج الثاني داخل الأول بطريقة السحب والإفلات . وأنشأت على كل نموذج مربع تحرير وسرد ( غير منظم ) لتختار الإدارة ولتختار الموظف طبعا عندما تختار إدارة كل الحقول بنموذج الموظفين يعرض أول موظف و مربع التحرير والسرد يسرد الموظفين وكل شيء على ما يرام . المشكلة عندما تختار إدارة أخرى من مربع التحرير والسرد الموجود على النموذج الأساسي أجد أن مربع التحرير والسرد بالنموذج الفرعي يعرض موظفي الإدارة السابقة حتى تنقر على تحديث البيانات ..ولابد أن يكون التركيز على النموذج الفرعي . فما هو الحل . تنهض الأمم بالعلم والمعرفة وأنتم كرماء وأنا أستاهل - أعوذ بالله من كلمة أنا

مشكور وما قصرت وتسلم والعملية ناجحة والحمد لله

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

السلام عليكم ورحمة الله وبركاته وضعت كود خاص للدخول للنموذج عبارة عن كلمة سر ولكن المشكلة تحصل عندما لا يدخل شيء المستخدم يعني يكون مربع الرسالة فارغة يعطي رسالة خطأ الكود Dim pass As Integer Dim massage As Integer pass = InputBox("type your password", "Control box") If pass = 1212 Then DoCmd.OpenForm "contor" Else massage = MsgBox("Sorry your Pass is false") End If السؤال كيف أعرف أن مربع النص فارغ لأن هناك تطبيقات أخرى عليها وجزاه الله خيراً من ساعدني وله منى الدعاء والشكر الجزيل للقائمين على هذا الموقع