ابوخليل

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

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

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

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

عدلت على مثالنا السابق وحيث ان التعديل قد يكون عشوائيا ، فأسهل طريقة هي حذف الخطوة الاخيرة كلها والتي هي نتيجة اللصق ولم اضع التعديل في النموذج نفسه لخطورة اجراء العملية فقد يحث خطأ في اختيار التاريخ لذا تم عمل نموذج خاص بحذف كامل البيانات خلال تاريخ معين يتم اختياره فانت الآن ان اردت تحديث البيانات الاخيرة فكل ما عليك هو حذفها ثم اجراء عملية النسخ واللصق مرة اخرى 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)

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

ما نوع الحقل nambaar نصي ام رقمي وهل هذا الاسم للحقل في الجدول وكذلك في التقرير ؟

عليكم السلام حط شرط ثاني في الجملة البرمجية اللي هو : الرقم الخاص = الرقم الخاص

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

حول الملف الى صيغة mdb حتى تسمح بمتابعة اكثر

لطفاً .. افتح موضوعا جديدا بسؤالك

لو سجل واحد مكرر لو وضعت المفاتيح فلن يسمح بالحفظ اخوي الله يحفظك في المثال الاخير جربته ويعمل بشكل سليم ولا يكرر ولن يعمل الا بعد الاختيار الصحيح والاختيار الصحيح هو : 1- تختار من الحقل الايمن أي تاريخ موجود فعلا في الجدول 2- تختار من الحقل الايسر تاريخ جديد غير موجود في الجدول ( او حول مربع التحرير الايسر الى مربع نص واكتب يدويا التاريخ الجديد )

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

ولزيادة التفاصيل يمكنك الاطلاع على هذه المواضيع هنا وهنا

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

غريب شغل المرفق وانسخ السيريالات التي تظهر لك ثم الصقها في المفكرة وارفعها test.rar