العبيدي رعد

هناك العديد من الامثلة حول البحث يمكنكم البحث وارفق لكم مثالا حول البحث بعدة معايير وبالكود DbSearch.rar

شكرا جزيلا الكود كالاتي If (MsgBox("الجهة غير موجودة سابقا" & vbCrLf & "هل تريد اضافتها", vbInformation + vbMsgBoxRight + vbYesNo, "النظام") = vbYes) Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO person( resever) Values('" & Me.Comr.Text & "');" DoCmd.SetWarnings True Response = acDataErrAdded Else Response = acDataErrContinue Me.Comr.Undo End If النقطة التي كنت غافل عنها هي خاصية limit to list نجعلها yes

بسم الله الرحمن الرحيم السلام عليكم عندي 3 كوبوكس اريد كود في حال عدم وجود هذا الاسم يتم إضافته جعلت حفظ النموذج بكود اس كيو ال انسرت انتو بحيث النموذج يحفظ في الجدول hesab بصورة غير تلقائية تجربة.rar

كل الشكر والتقدير لجنابكم الكريم

شكرا جزيلا استاذنا الكريم

شكرا جزيلا لكليكما في مثال الاستاذ @Foksh اريد ان احفظ السنة في الجدول ... وهذا الأمر لايتلائم وفي حدث الاستاذ @Ahmed_J يتم اجراء اللازم لكن يعطي رسالة لذا وضعت الكود في حدث عند النقر

انا لدي جدول من 2017 ومستمر بالادخالات اريد عند كتابتي في حقل التاريخ تظر السنة في تكست بوكس مثال 23/10/2023 يكتب 2023 اين اضع المعيار ؟

السلام عليكم عندي تكست بوكس للسنة اريد إملاء الحقل بحسب حقل التاريخ .... تكست بوكس التاريخ t4 واسم حقل التاريخ بالجدول datee

جزيل الشكر والامتننان لك استاذ .... تعبتك معي ملاحظة / قبل ان ترسل لي هذا الملف حيث كنت في البيت ولايوجد عندي حاسوب انا عملت حقل للسنة واسميته years واستوردته من الاكسل وعليه يظهر حقل باسم السنة ,,,, السؤال هنا دالة او كود لاضافة رقم السند تسلسلي تلقائي استنادا لمعياريين نوع السند والسنة

الشكر الجزيل استاذ خليفة انا في جدول tabr اريد ان يكون ترقيم السند حسب نوع السند والسنة ... حيث المعلومات الموجود عندي من سنة 2017 والى الان بمعنى الترقيم يكون حسب نوع السند والتاريخ ... هل اضيف حقل جديد بإسم السنة مثلا اسمه years وماهي الدالة التي تملأ لي السنة في الجدول

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

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركانه عندي برنامج مستورد بياناته من الاكسل وعملت فيه جدول موحد للمعلومات حسب ورقة الاكسل المستوردة اسم الجدول tabr عملت فورم frm1 ووضعت فيه اداة sub form للحقول المحسوبة وحقل الدليل أريد حفظ المعلومات بحيث يفرغ كافة الحقول عند بدأ سند جديد وكما اريد من حقل id يأخذ تسلسل تلقائي جدول عام.rar

احسنتم كثيرا الان الملف صحيح الف شكر

للرفع

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

للرفع

السلام عليكم عندي كود في زر أمر لكنه يعمل على النموذج الرئيسي فقط فكيف أجعله يعمل على النموذج الفرعي علما أن الكود في زر أمر If InputBox("ادخل كلمة المرور", "التصريح بالتعديل والحذف ") = "1234" Then Me.Form.AllowDeletions = True Me.Form.AllowEdits = True Else Exit Sub End If

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

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

استاذ خليفة @kkhalifa1960 السلام عليكم ... عندي تقرير بياناته من استعلامة mez1 حبيت اعمل منشأ تعبير في الاستعلام يجلب لي details من الاستعلام أعلاه حيث أن حقل code هو حقل رقمي فعند ظهور رقم مثلا 355 في حقل details يظهر اسم الصندوق وهكذا

السلام عليكم لدي استعلام اسمه mez1 اريد أنشأ تعبير جديد بالاستعلام بحيث يظهر لي حقل تكست في تقرير الحقل فيه ارقام والمطلوب جلب اسماء هذه الارقام من حقل deatils في الاستعلام والحقل الرقمي اسمه code

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

@kkhalifa1960 السلام عليكم استاذ خليفة المحترم اشكر تواصلك معي اولا .... وثانيا انا أعمل على تقرير واكسس 2010 عملت المعادلة في تكست بوكس بياناتها من المعادلة IIf([dept] = 33; "المطلوبات "; IIf([dept] = 98; "الموجودات النظامية"))))))) Nz(IIf([dept] = 1; "الايرادات"; IIf([dept] = 2; "النفقات"; IIf([dept] = 31; "الموجودات الثابتة"; IIf([dept] = 32; "الموجودات المالية"; IIf([dept] = 33; "المطلوبات "; IIf([dept] = 98; "الموجودات النظامية"))))))) لكن لم تعمل يوجد خطأ

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