يوسف أحمد

و عليكم السلام اخي العزيز اضف كلمة PtrSafe بعد جملة Private declare و ان شاء الله تفتح معك الملفات بالتوفيق

و عليكم السلام اخي العزيز ابو عبد الله هناك طريقة بالكود التالي : Public Function abc(frm As Variant) As Form Dim rs As dao.Recordset Dim I As Integer Set rs = CurrentDb.OpenRecordset("tbl1") With rs .AddNew For I = 1 To 3 .Fields("Fld" & CStr(I)) = frm("txtField" & CStr(I)) Next I .Update End With rs.Close Set rs = Nothing End Function لاحظ بأن الطريقة تعتمد على توحيد اسماء الحقول ( fld ) و لكن باضافة رقم متزايد يبدأ من 1 .. و كذلك اسماء مربعات النصوص (txtField) الحلقة التكرارية تبدأ من 1 و تنتهي بعدد مربعات النصوص لديك ارجو ان يكون هو المطلوب للمعلومية : هذا الحل ليس بإستخدام sql كما ذكرت اخي ابو عبد الله و انما باستخدام DAO و ممكن الحاق البيانات باستخدام sql بالكود التالي : DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO tbl1 ( fld1, fld2, fld3 )SELECT [forms]![frm1]![txtField1] , " & _ "[forms]![frm1]![txtField2] , [forms]![frm1]![txtField3] ;" DoCmd.SetWarnings True تفضل مثال على ذلك بالتوفيق test.rar

مشاركة مع اساتذتنا الاعزاء اذا كانت نتيجة الاستعلام ستظهر على نموذج فممكن الاستغناء عن الاستعلام و وضع المعيار مباشرة بأمر فتح نموذج الناتج DoCmd.OpenForm "frm1", , , "mid(taj,1,3)='" & Me.txt_filter & "'" حيث ان frm1 هو اسم النموذج الذي مصدره الجدول و يتم فتحه بالمعيار المطلوب بالتوفيق للجميع qus.zip

نرجو منك اخي العزيز ان تضع سؤال واحد بكل مشاركة او على الاقل وضع استفسارك دفعة واحدة حتى نختصر الوقت انظر التعديل mm.rar

استبدل الكود بالتالي : DoCmd.OpenForm "ss5" Forms!ss5.Form!cc = Me.SearchList9.Column(0) بالتوفيق mm.rar

تفضل اخي العزيز محب اوفيسنا ارجو ان يكون هو المطلوب بالتوفيق تجريبي1.rar

حاولت ارسل لك رسالة و لكن تاتيني رسالة ( سيمو العازف لايمكنه استلام رسالتك ) و يبدو ان هناك مشكلة في الموقع او في اعدادات حسابك ... لا اعلم بالضبط مالمشكلة .. اتشرف بك .. يمكنك مراسلتي على ايميلي الخاص youbaju@yahoo.com

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

السلام عليكم يفضل ان ترفق ملفك ليتمكن الجميع من المساهمة في الحل مع الشكر

و فيك بارك اخي العزيز للاسف حذفت حسابي على الفيس بوك لعدم وجود وقت كافي لدي .... تستطيع التواصل معي على الخاص لنرى كيف يمكن ان نتواصل .. اتشرف بك

و عليكم السلام و رحمة الله و بركاته تفضل المرفق بعد التعديل .. تم انشاء الاستعلام qry1 بالتوفيق Company.rar

و عليكم السلام و رحمة الله و بركاته اخي العزيز تفضل التعبير : Total: IIf([f]=1;[s]+[m]+[r];IIf([f]=2;[a]+[d]+[n];IIf([f]=3;[t]+[l]+[h];IIf(IsNull([f]);0)))) تفضل مثال على ذلك بالتوفيق test.rar

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

السلام عليكم اخي العزيز بشير الكود التالي يفي بما تبحث عنه ان شاء الله On Error GoTo a Dim intId As Double Dim strName As String intId = Me.txtId strName = Me.txtName DoCmd.GoToRecord , , acNewRec Me.txtId = intId Me.txtName = strName Exit Sub a: MsgBox "لا يوجد سجل حالي" Exit Sub حيث txtId هو اسم مربع النص الخاص بالحقل id txtName هو اسم مربع النص الخاص بالحقل eName تفضل مثال لما تريد بالتوفيق test.rar

و عليكم السلام اخي العزيز اسلام ما تحتاجه هو مجموعة خيارات او ما يسمى Option Group وليس خانة اختيار الكود التالي سيؤدي الغرض بدون استعلام Select Case Me.frame1 Case 1 DoCmd.OpenReport "rpt1", acViewReport, , "testDegree = " & Me.testDegree & " And weekPNumber = " & Me.weekNo Case 2 DoCmd.OpenReport "rpt1", acViewReport, , "testDegree > " & Me.testDegree & " And weekPNumber = " & Me.weekNo Case 3 DoCmd.OpenReport "rpt1", acViewReport, , "testDegree < " & Me.testDegree & " And weekPNumber = " & Me.weekNo End Select حيث frame1 هو مجموعة الخيارات testDegree اسم حقل الدرجة و الذي قمت بتغيير اسمه و نوعه الى رقم ... و ايضاً هو اسم مربع النص الخاص بالدرجة على النموذج weekPNumber هو رقم الاسبوع و تم تغيير اسم الحقل ايضاً weekNo هو اسم مربع النص على النموذج و الخاص برقم الاسبوع تفضل المرفق بعد التعديل انصحك باعطاء الحقول و الجداول و جميع كائنات الاكسس اسماء عربية بالتوفيق مشكلة التشيك بوكس.rar

لا شكر على واجب اخي العزيز تم عمل كود للخروج من التطبيق و بعده تشغيل استعلام التحديث تفضل المرفق بعد التعديل بالتوفيق test.rar

و عليكم السلام و رحمة الله و بركاته اخي العزيز عمرو السبب هو وجود ثلاثة سجلات بجدول الاجازات و ليس لها قيم مطابقة ( ارقام موظفين 1 ، 2 ، 3 ) بجدول الموظفين و الذي به المفتاح الرئيسي . احذف السجلات من جدول الاجازات ثم قم بتحرير العلاقة تفضل المرفق بعد التعديل بالتوفيق Employees.rar

لا شكر على واجب اخي العزيز نعم عند الخروج من البرنامج لا تثبت القيمة و في هذه الحالة تحتاج الى جدول لحفظ هذه القيمة و تحديثها عند الخروج و ظهورها عند تحميل او فتح النموذج انظر المرفق بالتوفيق test.rar

بارك الله فيك اخي العزيز عبد اللطيف و اكثر من امثالك .. بعد اذنك وددت المساهمة في الحل اخي العزيز السائل بالنسبة لتثبيت القيمة بنموذج غير مرتبط ممكن ان يتم من خلال عمل متغير عام بوحدة نمطية كالتالي Public a As Variant حيث a هو اسم المتغير و نوعه هنا Variant يقبل اي نوع من البيانات و يكنك تغيير حسب ما تريد ادخاله من بيانات بالنموذج و ليكن اسم مربع النص على النموذج اسمه txt1 فعند اغلاق النموذج نقوم باسناد قيمة مربع النص ( القيمة التي ادخلناها بمربع النص ) الى المتغير كالتالي : On Error Resume Next a = Me.txt1 ثم في حدث عند التحميل او حدث الفتح للنموذج نجعل مربع النص ياخذ القيمة الموجودة بالمتغير كالتالي : Me.txt1 = a و بالنسبة لتثبيت قيمة حقل داخل نموذج فهي باستخدام خاصية القيمة الافتراضية للحقل و بإمكانك وضع القيمة التي تريدها المثال المرفق به ما طلبت ان شاء الله .. القيمة المثبتة بحقل الاسم هي ( يوسف ) بالتوفيق Test.rar

بارك الله فيك اخي العزيز و جزاك خير الجزاء على دعواتك الطيبة ... و لك بمثل ما دعوت به و زيادة تم تغيير الكود و استخدام مصدر بيانات النموذج في الفلترة بحيث يتم تعيين اسم مربع التحرير و السرد كمعيار للمصدر و عند فتح التقرير يتم تعيين مصدر بيانات التقرير ليساوي مصدر بيانات النموذج و بذلك يتم فتح التقرير على نفس سجلات النموذج . ليصبح الكود بحدث بعد التحديث لمربع التحرير و السرد الخاص بسرعة الخدمة و المسمى comboSearch كالتالي : Me.RecordSource = "SELECT tbl1.التسلسل, tbl1.[سرعة الخدمة], tbl1.sDate FROM tbl1 WHERE " _ & "(((tbl1.[سرعة الخدمة])=[forms]![فرز]![comboSearch]));" و الكود بحدث بعد التحديث لمربع التحرير و السرد الخاص بالتاريخ و المسمى kk كالتالي : Me.RecordSource = "SELECT tbl1.التسلسل, tbl1.[سرعة الخدمة], tbl1.sDate FROM tbl1 WHERE " _ & "(((tbl1.sDate)=[forms]![فرز]![KK]));" و كود فتح التقرير سيكون امر الفتح العادي للتقرير كالتالي : DoCmd.OpenReport "rpt1", acViewPreview و عند فتح التقرير سيتم تعيين خاصيتة مصدر البيانات RecordSource لتساوي خاصية النموذج مصدر البيانات و ذلك يتم في حدث عند الفتح للتقرير كالتالي : Me.RecordSource = Forms!فرز.Form.RecordSource ملاحظة : تم تغيير اسم الجدول الى tbl1 و اسم حقل التاريخ الى sDate ... وا كرر نصحي لك اخي بعدم اعطاء كائنات الاكسس اسماء عربية تفضل المرفق بعد التعديل بالتوفيق طلب استفسار - التاريخ.rar

و عليكم السلام و رحمة الله و بركاته اخي العزيز ايمن نعم ممكن ذلك اليوم الاول من الاسبوع الاول : firstDayFirstWeek: DateSerial(Year(Date());Month(Date());1) اليوم الاخير من الاسبوع الاول : lastDayFirstWeek: DateSerial(Year(Date());Month(Date());1)+6 اليوم الاول من الاسبوع الثاني : firstDaySecondWeek: DateSerial(Year(Date());Month(Date());1)+7 اليوم الاخير من الاسبوع الثاني : lastDaySecondWeek: DateSerial(Year(Date());Month(Date());1)+13 اليوم الاول من الاسبوع الثالث : firstDayThirdWeek: DateSerial(Year(Date());Month(Date());1)+14 اليوم الاخير من الاسبوع الثالث : lastDayThirdWeek: DateSerial(Year(Date());Month(Date());1)+20 اليوم الاول من الاسبوع الرابع : firstDayFourthWeek: DateSerial(Year(Date());Month(Date());1)+21 اليوم الاخير من الاسبوع الرابع : lastDayFourthWeek: DateSerial(Year(Date());Month(Date());1)+27 بالتوفيق

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

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

و عليكم السلام بخير استاذنا العزيز محمد سلامة دامكم بخير و عافية الاجمل مرورك بارك الله فيك .. اشكرك على مرورك العطر .. شرفتنا يالغالي الاروع مروك استاذنا الغالي و الرائع ابو ابو ابراهيم في الحقيقة ان الفكرة منذ فترة و كانت تحتوي على جدول للسجلات المراد البحث بها و لكنني احببت ان اجعلها لجلسة واحدة فحذفت الجدول و غيرت الطريقة ... فكرة ان يكون هناك خيار للمستخدم بالعودة الى جلسة العمل السابقة فكرة رائعة منك استاذنا مع انني اعتقد بأن المستخدم قد تزعجه الرسالة التي ستظهر له في كل مرة يفتح النموذج بينما لا يستخدم هذه الميزة دائماً ... مرفق المثال و به وحدة نمطية بها تعريف لــمجموعة اسميتها cl لتضاف اليها القيم و يتم من خلالها اعادة العناصر لمربع التحرير و السرد في حالة موافقة المستخدم على استخدام الجلسة السابقة و في حالة اختار المستخدم الخيار لا من الرسالة فان العناصر ستحذف من المجموعة . مفضلة البحث لجلسة العمل الواحدة.rar

شرف لي مرورك استاذنا الغالي شيفان و شكرا لك على اهتمامك و متابعتك