عرض بيانات بناء على قيمة Checkbox

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

أرفق قاعدة البيانات قيتم الحل عليها..

ممكن تكتب الكود لاني حاولت رفق الملف فكان الحجم كبير حتى بعد الضغط

هل بالامكان ارساله على الايميل

ياجماعة وينكم محتاجة مسااااااااااااعدة باسرع وقت

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

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

up upppppppppppppppp

مسألتك بسيطة جدا

بس ارفق نسخة من قاعدة البيانات عندك

او صمم قاعدة بيانات بسيطة مماثلة ليتم التعديل عليها

بدون مثال يصعب الشرح

او ارسل لي رسالة على الخاص

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

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

بلييييييييييييييييييييييييييز ساعدوووني

uppppppppppppppppppppppppppppp

هذا مثال لعله يفي بالغرض

db2.rar

مشكلتك بمنتهي البساطة

هي حقل check في الجدول طبعا لازم يكون نوع بيناتة yes/no

اذهب في الاستعلامات وضع شرط في هذا الحقل True

سيتم عمل فلتر علي جميع الصفوف التي تم اختيار لها Check في النموذج

اعتقد ان الفكرة بهذه الطريقة وضحت

الاخت الفاضلة / girls queen

اشوفك في اشد الحاجة للمساعة

نصيحة :

اذا كنتي تبين ( تبغين) الحل

فقد نصحك في اول الامر استاذنا الفاضل (ايهاب عثمان ) ) بعمل مثال مبسط

ثم وضع لك استاذنا الفاضل ( محمد فؤاد ) الحل في كلمتين فيهم الفائدة

وقدم لك الاستاذ / ali_main (خير مساعد) مثالا حاولي ان تضعي فيه كل طلباتك اذا كان هناك طلبات اخري او توضيح

وان شاء الله هم جميعا لا يقصرون

وهذا مثال تطبيقي لما تم شرحة نظريا

هذا النموذج يستمد بيناتة من استعلام ويوجد حقل في الاستعلام اسمة check مع العلم ان نوع بيانات هذا الحقل بالجدول هو Yes/no

كل ما عليك هو وضع شرط True في الاستعلام حتي يتم عمل فلتر علي البيانات المختارة فقط بعد ذلك قومي بالبحث عن البيانات المراد البحث عنها كما تريدين

مرفق مثال

بالتوفيق

Check.rar

جزاكم الله خيرا جميعا اخ علي للاسف المثال الذي ارفقته لم اجد فيه مااريد سارفق هذا الملف عملت قاعدة جديدة شبيهه بما لدي وساشرح المطلوب واتمنى المسااااعدة جزاكم الله الجنه بدون حساب ولا ستجدون ثلاث جداول 1- معاملات 2- موظفين 3- شيكات

بحيث ان كل معاملة واحدة تحتوي على اكثر من موظف ولكل موظف واحد اكثر من شيك اي ان جميع العلاقات 1 to many

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

ويفتح لي نموذج يحتوي على اسم الموظف وجميع الشيكات الخاصة فيه وهناك حقل يسمى تم الاستلام من نوع نعم لا اي تشيك بوكس بحيث اذا جا الموظف محمد يريد استلام شيكاته يضع اليوزر صح على خانة تم الاستلام وتصبح قيمتها true

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

وايضا اريد البحث باسم موظف معين هلى هو استلم شيكاته ام لا ويعرض لي اسمه والشيكات التي استلمها

ملاحظة ( جميع المطلوب اريده يكون باستخدام كود اي تعليمات برمجية نكتبها داخل فيجوال بيسك اكسس وليس استخدام استعلام او قيمة معلمة )اتمنى تكون لصورة وضحت

اعزائي انا اعلم ان بمجرد وضع شرط true في خانة معايير لحقل تم الاستلام سوف يؤدي الغرض ولكن المطلوب مننا في هذا المشروع هو كيفية ترجمة هذا المعيار الى كود اي بدل من كتابته داخل تصميم الاستعلام نكتبه داخل صفحة البرمجة vba

______________.rar

اختي الفاضلة

اذا اردت عمل جملة الاستعلام الي كود فتفضلي المطلوب بالكود

strSql = "SELECT Table1.id, Table1.Fname, Table1.check " & vbCrLf & _
"FROM Table1 " & vbCrLf & _
"WHERE (((Table1.Fname) Like ""*"" & [forms]![form1]![txtsearch] & ""*"") AND ((Table1.check)=True));"

وارجو ان يفيدك هذا الرابط ادناه

/index.ph...92;isnull\

استاذي محمد الكود الذي كتبته sql ولكني لا اعرف كيف اكتب جمل sql داخلvba اكسس الايوجد كود خاص بالاكسس فيجول بيسك يعمل على اختبار قيمة تشيكبوكس ويظهر لي البيانات بناء على القيمة اذا كانت ترو فقط

?????????????????????????????????????uppppppppppppppppppp

Private Sub Form_Load()
  ("اسم الموظف") DoCmd.GoToControl	
[نص1]![ادخل اسم الموظف ]!Docmd.findrecord forms

End Sub

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

Private Sub Form_Load()
  ("اسم الموظف") DoCmd.GoToControl	
[نص1]![ادخل اسم الموظف ]!Docmd.findrecord forms

End Sub

اعزائي لقد استخدمت هذا الكود حيث يقوم بعملية البحث عن اسم الموظف المدخل في فورم تسمى ادخل اسم الموظف ثم يبحث عن الاسم في حقل اسم الموظف ويعرض جميع شيكاته المستلمه والغير مستلمة كل ما اريده هو اضافة شرط على هذا الكود بحيث لايعرض سوى الشيكات المستلمة وهذا يحدد من خلال قيمة حقل يدعى تم الاستلام ونوعه تشيك بوكس هل هو true or false

حاولت اضافة جملة if & else على الكود ولكن في كل مره تظهر لي مسج انه لم يستطع العثور على حقل تم الاستلام اي انه لم يرى الحقل

انا

أختي الفاضلة

سيكون الكود بهذا الشكل

لاحظي موضع True

Me.RecordSource = "SELECT [Table1].[Id],[Table1].[Fname],[Table1].[Check] FROM Table1 WHERE (((Table1.check)= true ));"

مرفق مثال

Check_up.rar

جربت الكود ولكن تظهر لي مسج خطأ تقول ان هناك عامل مفقود او خطأ في كتابة تعبير استعلام ياليت تجرب الكود على مثالي التالي هل سيضبط او لان الجملة SQL

Private Sub Command169_Click()

On Error GoTo Err_Command169_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "frm-X Series Upgrades required"

stLinkCriteria = "[_name]=" & "'" & Me![Text166] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command169_Click:

Exit Sub

Err_Command169_Click:

MsgBox Err.Description

Resume Exit_Command169_Click

End Sub

كيف استطيع اضافة شرط على هذا الكود بمعنى هذا الكود يبحث عن اسم ولكن اريد البحث يكون بشرط اين اضيف الشرط وهو ان حقل الاستلام يجب ان يكون true

ارجووووووووووكم ساعدوني انا عرفت انه بامكاني الجمع بين شرطين باستخدام LIKE ولكن ليس كجملة sql مجرد like=condetion

Like ""*"" & [forms]![form1]![txtsearch] & ""*"") AND ((Table1.check)=True));"

تماما مثل هذه الجملة ولكن لااعرف طريقة كتابتها ومالذي يسبقها ارجوكم ساعدوني

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

الاخت girlsqueen1

الكود ادناه يحقق المطلوب ان شاء الله

DoCmd.OpenForm "frmcheques", , , "[empno]=forms!frm1!combono and [Recieved]=true"

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

empno هو اسم حقل رقم الموظف ( وقد تم تغييره بالانجليزي ليتم فهم الكود فاللغة العربية لا تظهر الكود بالشكل المفهوم )

forms هي مجموعة النماذج

frm1 هو اسم النموذج الذي يحتوي على مربع التحرير والسرد الخاص بارقام الموظفين وهو النموذج الذي يتم فتح نموذج الشيكات منه

combono هو اسم مربع التحرير والسرد الذي يحتوي على ارقام الموظفين للاخيتار منها

Recieved هو اسم الحقل الخاص باستلام الشيك ( تم الاستلام )

اليك ملفك بعد التعديل

واي استفسار لن يقصر معك الجميع ان شاء الله

بالتوفيق

______________.rar

اشكررررررررررك جزيلا جزاك الله خيرا وجعله في موازين حسناتك

لو سمحت اريد ان اسالك انا لدي فورم لادخال بيانات معاملات وبها نماذج فرعية مرتبط اي ادخل عليها بالضغط على زر لاكمال ادخال البيانات

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

ارجوك اريد حل لهذه المشكلة

???????? كيف احل المشكلة

واياكم اختنا الفاضلة girlsqueen1

عند ادخال البيانات لا بد من اخذ العلاقة بين الجداول بعين الاعتبار فلا يمكن مثلاً ان يتم ادخال القيم بالمفتاح الثانوي لجدول الطرف المتعدد قبل المفتاح الرئيسي لجدول الطرف الواحد ضمن علاقة واحد الى متعدد.

عموماً الكود ادناه خاص بفتح نموذج المعاملات (frmApplications ) على سجل جديد ...يتم وضع الكود بحدث عند النقر لزر امر على نموذج اخر ... وليكن واجهة المستخدم.

DoCmd.OpenForm "frmApplications", , , , acFormAdd

ارجو ان اكون فهمت قصدك

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

بالتوفيق