ابوبسمله

4 ساعات مضت, شايب said:

تعدد الشروط يسبب ربكه للكثير عند كتابة المعايير

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

هذا صحيح معلمى واخى العزيز خالد جزاك الله عنا كل خير

56 دقائق مضت, Foksh said:

ولكن اسمح لي بسؤال ؛ هل قمت بتجربة الكود على الملف المرفق من الأخت صاحبة الموضوع 😅 !!

انتقلنا من فكرة التوضيح إلى فكرة التصحيح بالدرجة الأولى فقط لا غير ، وأشكرك للتوضيح هذه النقطة المهمة 

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

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

تقبل تحياتى ومرورى واعتذر ان كنت سببت لك اى مضايقه بمداخلتى

بالتوفيق

2 ساعات مضت, Foksh said:

وقد تم التعديل في الكود الأخير فعلاً 😊

في 20‏/12‏/2023 at 19:59, Foksh said:

If IsNull(Me.NICHE) Then Exit Sub
If DCount("ID", "ADHERENTS", "NICHE = '" & Me.NICHE & "' AND NUMERO_REGION = '" & Me.NUMERO_REGION & "'") <> 0 Then
  MsgBox "Cet ajout ferait doublon !", vbCritical
  Cancel = True
End If

معذره اخى @Foksh وبماذا يفيد هذا التعديل وانت لم تنوه عن التعديلات واسبابها حتى تقوم الاخت السائله بالتعديل بالجدول لديها باضافه الشرطه السفليه

بالاضافه الى ان الحقل NUMERO REGION حقل رقمى وانت لم تقم بتعديله بما يتناسب مع الحقول الرقميه

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

مشاركه مع اخى @Foksh جزاه الله خيرا

يوجد ملاحظه فى كتابه اسماء الحقول فالجدول وهى تجنب وضع مسافه بين الاسماء مثل NUMERO REGION  فيكتب NumeroRegion او  NUMERO_REGION  باستخدام الشرطه السفليه بين الاسماء

ومع ذلك اتفضل التعديل التالى على الوضع الحالى

مع ملاحظه ان الحقل NUMERO REGION حقل رقمى

If IsNull(Me.NICHE) Then Exit Sub
If DCount("*";"ADHERENTS";"NICHE = '" & [NICHE] & "' AND [NUMERO REGION]= " & [NUMERO REGION]) <> 0 Then
  MsgBox "Cet ajout ferait doublon !", vbCritical
  Cancel = True
End If

بالتوفيق

4 ساعات مضت, ابو عبد الله العراقي said:

الاخوة الافاضل ابو بسملة ومحمد السيسي شكراً جزيلاً لكم وعاشت الايادي وانا ممنون جداً وشكراً جزيلاً لجميع من شارك وساهم في هذا الموضوع وارجوا من الله عز وجل ان تعم الفائدة ويجزيكم جميعاً خير الجزاء 

بالتوفيق

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

اتفضل

new.accdb

الشكر لله ثم لاخواننا واساتذتنا

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

بالتوفيق

Rac_1.accdb

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

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

اتفضل اخى

Rac.accdb

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

يجب عليك الابتعاد عن الاسماء المحجوزه ومنها Name

تم التعديل ع الوضع الحالى فالسطر التالى

a = DLookup("[ID]&'|'&[Name]&'|'&[age]", "Patient", "[Name]='" & Me!Name & "'")

بالتوفيق

برنامج الطفيليات_2.accdb

لا اعلم صراحه لماذا تم اضافه جميع هذه الشروط

1 ساعه مضت, عمر ضاحى said:

اتفضلى النتجيه كامله ان شاء الله

strSQL = "Select [" & F_Name & "] From [patient_data] Where [tube]= '" & P_Name & "' And [ID] = " & [Forms]![barcode_frm]![ID] & " And [Code] = " & [Forms]![barcode_frm]![code] & " And [barcode_print] = True"

 

لان التعديل التالى كافى فعليا

8 ساعات مضت, عمر ضاحى said:

بهذا

strSQL = "Select [" & F_Name & "] From [patient_data] Where [tube]= '" & P_Name & "' And [ID] = " & [Forms]![barcode_frm]![ID]

 

وع كل تمنياتى لكم بالتوفيق

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

مشاركه مع اخوانى

برجاء الاطلاع على المشاركات التاليه ففيها الحل ان شاء الله

بالتوفيق

12 ساعات مضت, kkhalifa1960 said:

بعد طول غيابي بعمل بعض العمليات الجراحية وفترة الاستشفاء .

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

السلام عليكم

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

بالتوفيق

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

مشاركه مع اخى @محمد احمد لطفى جزاه الله خيرا

اتفضل

Private Sub Commande3_Click()
    Dim rs As Recordset
    
    Set rs = Me.Table1sub.Form.RecordsetClone
    
    For i = 0 To rs.RecordCount - 1
        If Len(rs.Fields("date a") & "") = 0 Then
            rs.Edit
            rs.Fields("date a") = Date
            rs.Update
        End If
        rs.MoveNext
    Next
    rs.Close
    Set rs = Nothing
End Sub

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

بالتوفيق اخوانى

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

ليس هذا القسم المناسب لذلك

فضع طلبك في قسم الاعلانات باجر

https://www.officena.net/ib/forum/157-إعلانات-شخصية-بأجر-للاعضاء/

بالتوفيق

اتفضل اخى @محمد احمد لطفى

التعديل

تسلم ايدك اخى @kanory 🌹

تقبلوا تحياتى ومرورى

Replace&add_B.mdb

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

مشاركه مع اخوتى واساتذتى الافاضل @Eng.Qassim و @kanory جزاهم الله عنا كل خير 💐

اتفضل استاذ @محمد احمد لطفى

افتح الجدول TableX ستجده كالتالى ثم اغلقه

ثم اضغط على الزر فالنموذج ثم اغلق النموذج وافتح الجدول ستجده

وهذا هو الكود

Sub ReplaceName()
    Dim rs As Recordset
    Dim rs2 As Recordset
    
    Set rs = CurrentDb.OpenRecordset("KindX")
    Set rs2 = CurrentDb.OpenRecordset("TableX", dbOpenDynaset)
    
    Dim dic As Scripting.Dictionary
    Set dic = New Scripting.Dictionary
    
    On Error Resume Next
    
    rs.MoveLast: rs.MoveFirst
      
    For i = 0 To rs.RecordCount - 1
        dic.Add rs("LikeB").Value, rs("LikeA").Value
        rs.MoveNext
    Next
    
    For Each Key In dic.Keys
'        Debug.Print "Key: " & Key & " Value: " & dic(Key)

        rs2.FindFirst "[NameX] Like '*" & dic(Key) & "*' "

        Do While Not rs2.EOF
'            Debug.Print rs2![NameX]
                If InStr(rs2("NameX"), dic(Key)) Then
                    rs2.Edit
                    rs2("KindX") = Key
                    rs2("NameX") = Left(rs2![NameX], InStr(rs2![NameX], dic(Key)) - 1)
                    rs2.Update
                End If
            rs2.MoveNext
        Loop
    Next
    
    rs.Close
    rs2.Close
    Set rs = Nothing
    Set rs2 = Nothing
    Set dic = Nothing
    
End Sub

بالتوفيق

Replace&add_A.mdb

منذ ساعه, Eng.Qassim said:

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

اللهم آمين واياكم اخى قاسم

منذ ساعه, Eng.Qassim said:

ايضا البحث لايعمل ..ولايفتح الصفحة المختارة

جميع الامثله تفتح عندى وتعمل بشكل جيد

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

جزاكم الله خيرا

4 ساعات مضت, kanory said:

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

هل تقصد هذا المثال اخى كانورى

محرك بحث الأكسيس الاصدار 1.2.rar

8 ساعات مضت, Eng.Qassim said:

تفضل التعديل...ابو بسملة حصل افضل اجابة وتركها برأسي 😄

ههههههههههه انت قدها وقدود بشمهندسنا العزيز ثم اننى لا اطمع سوى فى دعوه تنفعنا يوم لاينفع مال ولا بنون

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

test22_3.accdb

اهلا بك اخى واستاذى وبشمهندسنا العزيز قاسم @Eng.Qassim وكل عام وانت والاهل طيبين رمضان كريم

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

وهذه مشاركتى بعد التعديل ايضا

15 ساعات مضت, أغيد said:

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

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

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

اللهم آمين واياكم اخى

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

وان كنت تود الاستفسار عن شىء آخر فتفضل اخى

test22_2.accdb

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

اتفضل اخى @أغيد وكل عام وانتم بخير

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

بالتوفيق

test22_1.accdb

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

كل عام وانت والاهل طيبين وبالف خير رمضان مبارك علينا جميعا ان شاء الله

اللهم اهله علينا بالأمن والإيمان وسلامة القلوب والأبدان

1 ساعه مضت, ابوالعزائم said:

نعم @ابوبسملة هو المطلوب فعلا

اتفضل اخى

الاستعلام qry مبنى على الاستعلام q1

بالتوفيق

123_1.accdb

21 دقائق مضت, ابوخليل said:

كنت اعمل على المثال وسبقني اخي ابو بسملة

ادرجها للفائدة

انت سباق بكل خير شيخنا الجليل ابوخليل

ماشاء الله واحسن من كده مفيش معلمى العزيز وشيخنا الجليل ابوخليل تسلم ايدك 🌹