الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اذا ممكن من اساتذتي الكرام المساعدة

بدأه الطفل وليد في 11 أكتوبر 2013 · 15 رد · 965 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله
اذا ممكن من اساتذتي الكرام المساعدة
في البرنامج المرفق
جدول ادخلت فية سجلين
السجل رقم ( 1 ) الاسم فية طويل
السجل رقم ( 2 ) الاسم فية قصير
ما احتاجة هو ان يتمدد حقل  (يرخص لـ ) في التقرير
او يتقلص حسب الاسم المدخل بحيث أن يأتي حقل الجنسية
خلف الاسم مباشر دون ترك فراغ
ودمتم سالمين جميعا

RJ1.rar

img_468_60.gif
#2

الي اعرفه انه يمكن استخدام خاصية   can grow   ولكن التمدد يكون عموديا وليس افقيا 

 

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

1
#3

شكرا على مرورك اخي lordring 

وان شاء الله نستفيد جميعا

img_468_60.gif
#4

انتظر المساعده يا اخوان

img_468_60.gif
#5

تفضل حبيبي هذا الكود

Private Sub UserForm_Initialize()
    TextBox1.Text = "Single-line TextBox. " _
        & "Type your text here."
    
    TextBox2.MultiLine = True
    TextBox2.Text = "Multi-line TextBox. Type " _
        & "your text here. Use CTRL+ENTER to start " _
        & "a new line."
    
    ToggleButton1.Value = True
    ToggleButton1.Caption = "AutoSize On"
    TextBox1.AutoSize = True
    TextBox2.AutoSize = True
End Sub

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then
        ToggleButton1.Caption = "AutoSize On"
        TextBox1.AutoSize = True
        TextBox2.AutoSize = True
    Else
        ToggleButton1.Caption = "AutoSize Off"
        TextBox1.AutoSize = False
        TextBox2.AutoSize = False
    End If
End Sub
#6

Private Sub UserForm_Initialize()

TextBox1.Text = "Single-line TextBox. " _

& "Type your text here."

TextBox2.MultiLine = True

TextBox2.Text = "Multi-line TextBox. Type " _

& "your text here. Use CTRL+ENTER to start " _

& "a new line."

ToggleButton1.Value = True

ToggleButton1.Caption = "AutoSize On"

TextBox1.AutoSize = True

TextBox2.AutoSize = True

End Sub

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then

ToggleButton1.Caption = "AutoSize On"

TextBox1.AutoSize = True

TextBox2.AutoSize = True

Else

ToggleButton1.Caption = "AutoSize Off"

TextBox1.AutoSize = False

TextBox2.AutoSize = False

End If

End Sub

#7

ملاحظة هامة:

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

دمتم موفقين... 

#8

اشكرك اخي   almustshar

على مرورك ولكن هل من الممكن شرح اين اضع الكود

وهل اضعة كما هو ام انة وحدة نمطية

ولك الشكر

img_468_60.gif
#9
Khodor1985 كتب:

ملاحظة هامة:

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

دمتم موفقين... 

اخي مالمقصود بما قلت بالقيمة المركبة هل يمكن التوضيح اذا تكرمت وهل تقصد بحقل موجود في الجدول المرفق في البرنامج

img_468_60.gif
#10

نعم أخي العزيز، عذرا إن كنت لم أوصل الفكرة

على سبيل المثال، عند وضع إسم مركب في حقل كالإسم الأول وإسم الأب والشهرة.

#11
Khodor1985 كتب:

نعم أخي العزيز، عذرا إن كنت لم أوصل الفكرة

على سبيل المثال، عند وضع إسم مركب في حقل كالإسم الأول وإسم الأب والشهرة.

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

فهل هناك مشكلة في هذا

img_468_60.gif
#12

يا اخوااااان

للرفع

img_468_60.gif
#13

الرفع

img_468_60.gif
#14

للرفع

ارجو المساعده

img_468_60.gif
#15

السلام عليكم 

بحثت فوجدت هذا الرابط ان شاء الله انه يفيدك 

هنا

حسابي على الفيسبوك

 

حسابي على التويتـــر

 

صفحتي الشخصية في منتدى أوفيسنا

 

اعذروني ففي الفترة القادمة سيكون تواجدي في المنتدى ضيق جداً وذلك للانشغال في دورة لمدة 6 شهور بعد الدوام

#16

اشكر اخ عبدالله المجرب على مرورك الكريم

ولكن اخي ليس هذا ما اريد ما اريد موضح في اول المشارك

وبارك الله فيك واشكرك على مجرد المحاولة للمساعدة

img_468_60.gif

مواضيع مشابهة