ابوخليل

دفعة واحدة عبر الاستعلام وحده لا اعلم ولكن اظن تحقيق ذلك بالاستعانة بالكود بالنسبة ليوم الجمعة انظر التعديل على الاستعلام db3.rar

ممتاز سنزيد حقل للمرحلة وما دامت البيانات محفوظة في جداول اكسل فهذا يعني اختصار 99% من الجهد والوقت مسالتك ليست بحاجة لتحليل ولا علاقات ابدأي على بركة الله .. واعملي جدولك وارفقيه هنا للمتابعة والتوجيه وارفقي معه عينة من مصنف اكسل ان اردت ان استمر بالمتابعة فاعملي على اصدار 2003

آمين .. ولك

ارأيت ! حقل Coupon لا يوجد في جدول Workplaces على كل حال وبناء على محاولاتك في الاستعلام تفضل تم التعديل اتمنى يكون هو مطلوبك Db12.rar

المثال الاخير يختلف عن الاول ولم افهم ماذا تريدني اصنع ن فتفضل علينا بقليل من الشرح

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

تفضل db19.rar

السلام عليكم غالبا يتم فرز الغياب يوميا ومسألة الجمع والعطل ليس لها مكان عندنا فالجدول يحتوي على تاريخ حضور الموظفين والموظفين لا يحضرون يوم الجمعة تفضل تم التعديل افتح الاستعلام Qry2 وادخل رقم الــ ID db2.rar

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

نسيت ما ذا اضفت فانت تأخرت في الرد ولكني تصرفت في الاستعلام وغيرت اسم حقل الوحدة النمطية المصنوعة من D الى D1 فحين تنقر على الحقل تنتقل القيمة من D1 الى حقل تاريخ العودة

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

تم دمج الموضوعين ..

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

اعتقد حدث هذا بعد الترقية الاخيرة تم الرفع لادارة الموقع

وعليكم السلام مفهوم .. نعم ولكن غير صحيح يجب ان يكون الايتام بجدول واحد المكفولين وغيرهم اعمل حقل جديد لبيان الكفالة : نعم/لا

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

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

مشاركة مع اخوتي واحبتي افضل عملية بحث احتفظ بها (طريقة استاذنا جعفر ) Dim mySQL As String Dim mySQL1 As String Private Sub Form_Load() mySQL = "Select * From tbl_test" Me.ID = "" If Len(Me.ID & "") = 0 Then Me.sfmList.Form.RecordSource = mySQL End If End Sub Private Sub ID_Change() Dim fld As String Dim x() As String Dim A As String Dim i fld = "ID" fld = fld & " & ' ' & " & "fname" fld = fld & " & ' ' & " & "mname" fld = fld & " & ' ' & " & "lname" mySQL1 = "Select * From tbl_test" mySQL = mySQL1 & " Where " Me.ID.SetFocus A = Me.ID.Text A = Replace(A, "/", "|") A = Replace(A, "\", "|") A = Replace(A, " ", "|") A = Replace(A, "*", "|") x = Split(A, "|") If UBound(x) = 0 Then mySQL = mySQL & fld mySQL = mySQL & " Like '*" & x(i) & "*'" Else For i = LBound(x) To UBound(x) If i = 0 Then mySQL = mySQL & fld mySQL = mySQL & " Like '*" & x(i) & "*'" Else mySQL = mySQL & " AND " & fld mySQL = mySQL & " Like '*" & x(i) & "*'" End If Next i End If If Len(Me.ID.Text & "") = 0 Then mySQL = mySQL1 End If Me.sfmList.Form.RecordSource = mySQL End Sub افضل عملية بحث.rar

تفضل تاريخ مباشرة العمل2.rar

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

جزيت خيرا استاذنا .. فقد كفيتنا المؤونة وأجدت

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

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

لو شرحت الفكرة التي تريد تطبيقها ، فقد نجد حلول أخرى مختلفة

غير في هذا السطر فقط : prtyr = Right(DatePart("yyyy", Date), 2) ليصبح بعد التعديل هكذا : prtyr = DatePart("d", Date)