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

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

السؤال كيف أعرف أن مربع النص فارغ لأن هناك تطبيقات أخرى عليها

وجزاه الله خيراً من ساعدني وله منى الدعاء والشكر الجزيل للقائمين على هذا الموقع