التحكم في خاصيه ال Visible لمجموعه من ال text box من خلال قيمه تححد في text box اخر

up

اتمنى ان يكون هذا هو المطلوبarabteam.rar

اكرم العريقي كتب:

اتمنى ان يكون هذا هو المطلوبarabteam.rar

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

المطلوب هو عند وصع رقم في خانه no of days وعند اختيار سيليكت لselected days يطهر اسفل selected days check box ثلاث خانات اليوم وبدايه الدوام و نهايه الدوام بحيث تتكرر هذه الخانات بحسب القيمه الموضوعه في الnp of days فمصلا لو وضعنا قيمه 6 يظهر لنا الثلاث خانات (اليوم و بدايه الدوام و نهايه الدوام) مكرر 6 مرات وهكذا

وعموما اكرر شكري ليك

هل عدد الأيام التي ستختارها لها حد أقصى أم أن العدد الأقصى 6 أو 7 أيام فقط ؟؟

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

superhot3000 كتب:

هل عدد الأيام التي ستختارها لها حد أقصى أم أن العدد الأقصى 6 أو 7 أيام فقط ؟؟

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

اخي superhot عدد الايام قد يصل الى 40 او 50 يوم

up

up

nenokhalefa كتب:

اخي superhot عدد الايام قد يصل الى 40 او 50 يوم

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

لا اعتقد انها طريقة عملية لوضع مربعات النص بهذا الشكل

فلقد قمت بعمل كود برمجي يقوم بإنشاء الحقول والتسميات لحوالي ثلاث مربعات نص ولكن عندما رأيت اجابتك انك تحتاج الى 40 او 50 يوم اي سيكون عدد مربعات النص والتسميات 300 عنصر في النموذج فهذا كثير جدا على النموذج

واريد ان اسأل ما هو حجم النموذج الذي سيتسع لكل مربعات النص هذه .

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

بالتوفيق

zahrah كتب:

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

لا اعتقد انها طريقة عملية لوضع مربعات النص بهذا الشكل

فلقد قمت بعمل كود برمجي يقوم بإنشاء الحقول والتسميات لحوالي ثلاث مربعات نص ولكن عندما رأيت اجابتك انك تحتاج الى 40 او 50 يوم اي سيكون عدد مربعات النص والتسميات 300 عنصر في النموذج فهذا كثير جدا على النموذج

واريد ان اسأل ما هو حجم النموذج الذي سيتسع لكل مربعات النص هذه .

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

بالتوفيق

اختي الفاضله زهره

كم كنت منتظر الحل لهذه المشكله ولكن يبدو انها غير صالحه لذلك اتمنى لو لديكي حل لها ان تخبريني به

ولدي سؤال اخر هل من الممكن انشاء object في الفورم من خلال البرمجه

ولكي جذيل الشكر والتحية

اخي الفاضل

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

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

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

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

1. انشاء نموذج جديد مع اطار وعليه زر أمر في قاعدة بيانات برمجيا

Function CreateFormWithFrame(strControlName As String)
Dim frm As Form, ctlFrame As Control, ctlCommand As Control
Dim intLeft As Integer, intRight As Integer
Set frm = CreateForm
Set ctlFrame = CreateControl(frm.Name, acObjectFrame)
intLeft = ctlFrame.Left + ctlFrame.Width + 200
intRight = 200
Set ctlCommand = CreateControl(frm.Name, acCommandButton, , , , _
intLeft, intRight)
With ctlCommand
.Name = strControlName
.Caption = strControlName
.OnClick = "[Event Procedure]"
End With
DoCmd.Restore
End Function

طريقة استدعاء الوظيفة : يتم استدعاؤها عم طريق وضع زر امر على اي نموذج فارغ ثم في حدث عند النقر نضع هذا الأمر

Call CreateFormWithFrame(AnyName) ' ضع هنا اي اسم تريده للنموذج

وسيتم مباشرة انشاء نموذج بالإسم الذي اخترته مع وضع اطار محيط له بداخل النموذج وايضا زر أمر

2. انشاء علامة تبويب ومربع نص على نموذج به صفحات برمجيا

Function CreateControlOnPage()

   Dim frm As Form, ctl As Control

   ' Create a new blank form.
   Set frm = CreateForm()

   ' Create a tab control on the new form.
   Set ctl = CreateControl(frm.Name, acTabCtl, acDetail)

   ' Create a text box on the form, and specify that Page2 is
   ' the parent of the text box.
   Set ctl = CreateControl(frm.Name, acTextBox, acDetail, "Page2")
   ctl.Top = 0.5 * 1440
   DoCmd.SelectObject acForm, frm.Name
   DoCmd.Restore

End Function

كما في الطريقة السابقة من خلال زر امر على نموذج يتم استدعاء الوظيفة

Call CreateControlOnPage()

3. انشاء مربع نص مع التسميه على النموذج مصدر السجلات جدول "Orders" برمجيا

Function NewControls()
Dim frm As Form
Dim ctlLabel As Control, ctlText As Control
Dim intDataX As Integer, intDataY As Integer
Dim intLabelX As Integer, intLabelY As Integer

' Create new form with Orders table as its record source.
Set frm = CreateForm
frm.RecordSource = "Orders"
' Set positioning values for new controls.
intLabelX = 100
intLabelY = 100
intDataX = 1000
intDataY = 100
' Create unbound default-size text box in detail section.
Set ctlText = CreateControl(frm.Name, acTextBox, , "", "", _
intDataX, intDataY)
' Create child label control for text box.
Set ctlLabel = CreateControl(frm.Name, acLabel, , _
ctlText.Name, "NewLabel", intLabelX, intLabelY)
' Restore form.
DoCmd.Restore
End Function

يتم استدعاء الوظيفة بهذه تحت زر امر في نموذج بهذه الطريقة

Call NewControls()

4. إنشاء قاعدة بيانات جديده برمجيا .

Function CreateDatabaseDAO()
    'Purpose:   How to create a new database and set key properties.
    Dim dbNew As DAO.Database
    Dim prp As DAO.Property
    Dim strFile As String

    'Create the new database.
    strFile = "C:\SampleDAO.mdb"
    Set dbNew = DBEngine(0).CreateDatabase(strFile, dbLangGeneral)

    'Create example properties in new database.
    With dbNew
        Set prp = .CreateProperty("Perform Name AutoCorrect", dbLong, 0)
        .Properties.Append prp
        Set prp = .CreateProperty("Track Name AutoCorrect Info", _
            dbLong, 0)
        .Properties.Append prp
    End With

    'Clean up.
    dbNew.Close
    Set prp = Nothing
    Set dbNew = Nothing
    Debug.Print "Created " & strFile
End Function

لإستدعاء الداله من زر امر على نموذج

Call CreateDatabaseDAO()

بالتوفيق

الاخت الفاضله زهرة

لقد عجز لساني عن تقديم ما تستحقيه من شكر وثناء لما قدمتيه من شرح وافي ولكن هذا ليس بغريب عليك فانت دائما سباقه بمساعده الاخرين بحلول عبقريه ولا تبخيلين عليهم بوقتك ومجهودك وافكارك

جعل الله لكي كل هذا في ميزان حسناتك ووفقنا الله واياكم الى ما يحبه ويرضاه

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

Ahmed Naeim كتب:

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

اخي الفاضل : احمد نعيم

السلام عليكم ورحمة الله وبركاته

لقد قمت بالشرح ووضع كل شيء يحتاجه صاحب السؤال

فإن كان هناك من سيطبق الإقتراح فهو صاحب السؤال لأنه اعرف وادرى بما يريد

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

بالتوفيق