عدم التكرار في استعلام الالحاق

ahmedabuzena · مايو 19, 2022

السلام عليكم ورحمة الله وبركاته عندي مشكلة فى استعلام الالحاق append query اذا ضغط علي الاستعلام يضيف كل الداتا وليس الداتا الجديدة فقط في جدول (customer account sub dollar) وجزاكم الله خيرا

Database transfer 7 1 - Copy - Copy.accdbFetching info...

**jjafferr** · مايو 19, 2022

وعليكم السلام 🙂

يعني تريد الاستعلام "append query customer account sub dollar" يضيف ارقام الفواتير الغير موجودة في الجدول "customer account sub dollar" ؟

عندك طريقتين:

1. في الجدول "customer account sub dollar" اجعل حقل "رقم الفاتورة" مفهرس وغير قابل للتكرار ، وتشغل الاستعلام كما هو ،

او

2. نخبر الاستعلام ان يأتي بقيم ارقام الفواتير من الجدول "customer account sub dollar" :

Select [رقم الفاتورة] From [customer account sub dollar]

.

image.png.1988619da5b8ce8334e5e1435287579c.png

.

ثم في الاستعلام ، في معيار حقل "رقم الفاتورة" ، نطلب منه فلترة ارقام فاتورة الجدول وعدم عرضها Not In :

image.png.e4f4bc2040acddcb2a14e23d031db6d9.png

.

image.png.a921de4af23f01aa619cd9bbfa3df1a9.png

.

جعفر

1513.Not in.accdb.zipFetching info...

ahmedabuzena · مايو 19, 2022

في 19‏/5‏/2022 at 10:13, jjafferr said:
Select [رقم الفاتورة] From [customer account sub dollar]
Expand

السلام عليكم اخي الكريم الكود دة مش لاقيه فى المثال

**jjafferr** · مايو 19, 2022

وعليكم السلام 🙂

في 19‏/5‏/2022 at 13:07, ahmedabuzena said:

الكود دة مش لاقيه فى المثال

Expand

موجود في الاستعلام

image.png.5786bac0cb2cd77d0c48124cd6f14fb0.png

.

والاستعلام جاهز للعمل 🙂

جعفر

ahmedabuzena · مايو 19, 2022

في 19‏/5‏/2022 at 13:26, jjafferr said:

وعليكم السلام 🙂

موجود في الاستعلام

.

والاستعلام جاهز للعمل 🙂

جعفر

Expand

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

ahmedabuzena · مايو 20, 2022

عندي استفسار فى ال criteria التاريخ بين تاريخين ممكن لخلي التاريخين يبقو بداخل فورم لسهولة تغير التاريخ لانه صعب على المستخدم انه يدخل على الاستعلام ويجعل الاستعلام في حالة design ليغير التاريخ لو ينفع يا ريت حد يبلغني

**jjafferr** · مايو 20, 2022

نعم ، وهذه هي الطريقة الصحيحة في العمل 🙂

اذا كان اسم النموذج frm_Main واسم التاريخ من: Date_From ، والتاريخ الى: Date_To

في الاستعلام ، نكتب المعيار التالي:

between Forms!frm_Main!Date_From and Forms!frm_Main!Date_To

جعفر

ِAbo_El_Ela · مايو 20, 2022

الحمد لله

في 19‏/5‏/2022 at 13:26, jjafferr said:

وعليكم السلام 🙂

موجود في الاستعلام

.

والاستعلام جاهز للعمل 🙂

جعفر

Expand

شكرا استاذي الكبير جعفر

الكبير كبير فعلا

ربنا يزيدك من العلم كمان و كمان

ahmedabuzena · مايو 20, 2022

في 19‏/5‏/2022 at 13:07, ahmedabuzena said:

السلام عليكم اخي الكريم الكود دة مش لاقيه فى المثال

Expand

لم يعمل في الفورم

1513.Not in.accdbFetching info...

**jjafferr** · مايو 20, 2022

في 20‏/5‏/2022 at 17:11, ahmedabuzena said:

لم يعمل في الفورم

Expand

اخي الفاضل احمد 🙂

كيف ممكن هذي الكلمتين تساعدني لمعرفة الخطأ !!

لازم تعطيني معلومات اكثر ، علشان نقدر نساعدك ،

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

جعفر

**Eng.Qassim** · مايو 20, 2022

في 20‏/5‏/2022 at 17:11, ahmedabuzena said:

لم يعمل في الفورم

Expand

طبعا اخي لايعمل ..قم بتغيير الجملة

[Formscustomer_account_$]![Date_To]

الى

[Forms]![customer_account_$]![Date_To]

**jjafferr** · مايو 20, 2022

في 20‏/5‏/2022 at 18:21, Eng.Qassim said:

طبعا اخي لايعمل ..قم بتغيير الجملة

Expand

همم

انا شفت الجزء الاول ، ولم انتبه للجزء الآخر !!

شكرا على الملاحظة اخي قاسم 🙂

جعفر

**Eng.Qassim** · مايو 20, 2022

في 20‏/5‏/2022 at 18:32, jjafferr said:

شكرا على الملاحظة اخي قاسم

Expand

الشكر لله اولا ولكم ثانيا استاذنا القدير

ahmedabuzena · مايو 21, 2022

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

بمعني الفورم [customer_account_$] لوحدة يعمل بدون مشاكل لكن لو اخذت الفورم وادخلته في فورم اخر[ customer_account_$22] اجد ان الكود لا يعمل فكيف اكتب الكود مرفق المثال للتوضيح

1513.Not in22.accdbFetching info...

**jjafferr** · مايو 21, 2022

تفضل

[Forms]![customer_account_$22]![customer_account_$]![Date_To]


[customer_account_$22] النموذج الرئيسي
[customer_account_$] النموذج الفرعي

جعفر

ahmedabuzena · مايو 21, 2022

في 21‏/5‏/2022 at 09:13, jjafferr said:

تفضل

[Forms]![customer_account_$22]![customer_account_$]![Date_To]


[customer_account_$22] النموذج الرئيسي
[customer_account_$] النموذج الفرعي

جعفر

Expand

جربت الكود واعطاني هذة الرساله

1513.Not in22.accdbFetching info...

**jjafferr** · مايو 21, 2022

الله ان شاء الله يطول عمرك اخوي احمد ، من الصورة اعلاه ارى ان اسم النموذج مو نفسه اللي اخبرتنا عنه !!

ahmedabuzena · مايو 21, 2022

في 21‏/5‏/2022 at 12:11, jjafferr said:

الله ان شاء الله يطول عمرك اخوي احمد ، من الصورة اعلاه ارى ان اسم النموذج مو نفسه اللي اخبرتنا عنه !!

Expand

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

**jjafferr** · مايو 21, 2022

وعليكم السلام 🙂

هذا اسم النموذج الفرعي:

image.png.3295f4b4fe114a99ec7ae7d4ead5f322.png

.

فتصبح الجملة:

Between [Forms]![customer_account_$22]![customer_account_main $]![Date_from] And [Forms]![customer_account_$22]![customer_account_main $]![Date_To]

جعفر

ahmedabuzena · مايو 22, 2022

في 21‏/5‏/2022 at 15:09, jjafferr said:
وعليكم السلام 🙂

هذا اسم النموذج الفرعي:

.

فتصبح الجملة:
Between [Forms]![customer_account_$22]![customer_account_main $]![Date_from] And [Forms]![customer_account_$22]![customer_account_main $]![Date_To]
جعفر
Expand

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

يعني هنا بيعطي رسالة بنقل اربع بيانات هل ممكن ان يعرض هذة البيانات اولا وهل ممكن ان اختار منها

**jjafferr** · مايو 22, 2022

في 22‏/5‏/2022 at 06:00, ahmedabuzena said:

1. اشتغل تمام ...

2. هل ممكن استعلام الالحاق يعرض الداتا قبل التنفيذ

3. وهل ممكن اختار من هذة الداتا ما اريد ان ينسخه فقط

4. ولا هو فقط ينقل كل شئ بين التاريخين بدون اي تغير

Expand

1. الحمدلله 🙂

4. بين التاريخين ، وعدم تكرار [رقم الفاتورة] من الجدول [customer account sub dollar] ، هذه مجرد معايير تصفية لبيانات السجلات التي تريد عرضها ، ويمكنك استعمال هذه المعايير لجميع انواع الاستعلامات ،

2. لعرض البيانات فقط ، اعمل نسخة من استعلام الالحاق اللي عندك ، وحوله الى استعلام Select ، واحفظه بإسم آخر ،

3. تقدر تعمل نموذج (انظر الخيارين في الاسفل) ، طريقة الاختيار تختلف لكل من الطريقتين ، والطريقة الثانية مشهورة واسهل 🙂 :

ويكون استعلام #2 اعلاه مصدر بيانات النموذج ، ومن البيانات اللي في النموذج تختار السجلات اللي تريد تلحقها بالجدول ،
ويكون بدون مصدر ، وبه تعمل ListBox مصدر بياناته #2 ، وتختار السجلات اللي تريد تلحقها بالجدول ،

جعفر

ahmedabuzena · مايو 22, 2022

في 22‏/5‏/2022 at 06:55, jjafferr said:

1. الحمدلله 🙂

4. بين التاريخين ، وعدم تكرار [رقم الفاتورة] من الجدول [customer account sub dollar] ، هذه مجرد معايير تصفية لبيانات السجلات التي تريد عرضها ، ويمكنك استعمال هذه المعايير لجميع انواع الاستعلامات ،

2. لعرض البيانات فقط ، اعمل نسخة من استعلام الالحاق اللي عندك ، وحوله الى استعلام Select ، واحفظه بإسم آخر ،

3. تقدر تعمل نموذج (انظر الخيارين في الاسفل) ، طريقة الاختيار تختلف لكل من الطريقتين ، والطريقة الثانية مشهورة واسهل 🙂 :

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

ويكون بدون مصدر ، وبه تعمل ListBox مصدر بياناته #2 ، وتختار السجلات اللي تريد تلحقها بالجدول ،

جعفر

Expand

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

**jjafferr** · مايو 24, 2022

السلام عليكم 🙂

تفضل :

لما تنقر على رقم 1 ، يفتح لك النموذج الآخر ،

تنقر على السجلات اللي تريد الحاقها (نقرة اخرى على السجلات لعدم اختياره) ،

ثم النقر على الزر 3 ، ليعمل الحاق السجلات ، ويخرج من النموذج

image.png.79a2c4e64549d8f4501a02da7ccdf033.png

.

هذا كود النموذج :

Option Compare Database
Option Explicit

Private Sub cmd_close_Click()

    DoCmd.close acForm, Me.Name, acSaveNo
End Sub

Private Sub cmd_Select_Click()
On Error GoTo err_cmd_Select_Click

    Dim items As Variant
    Dim myIN As String
    
    myIN = Empty
    For Each items In Me.lst_invoices.ItemsSelected
        myIN = myIN & "," & Me.lst_invoices.Column(0, items)
    Next items
    
    'Debug.Print Mid(myIN, 2)
    If Len(myIN & "") = 0 Then
        MsgBox "رجاء اختيار رقم الفاتورة من القائمة"
        Exit Sub
    End If

    Dim qdf As DAO.QueryDef
    Dim Replace_With As String, sqlString As String, Query_Name As String
    Dim pos_1 As Integer, pos_2 As Integer
    
    Query_Name = "append query customer account sub dollar ListBox"
    
    Set qdf = CurrentDb.QueryDefs(Query_Name)
    pos_1 = InStr(qdf.SQL, "In (") - 1
    pos_2 = InStr(pos_1, qdf.SQL, ")")
    Replace_With = "In (" & Mid(myIN, 2) & ")"
    sqlString = Mid(qdf.SQL, 1, pos_1) & _
                Replace_With & _
                Mid(qdf.SQL, pos_2 + 1)
    'Debug.Print sqlString
    qdf.SQL = sqlString

    DoCmd.SetWarnings False
        DoCmd.OpenQuery Query_Name
    DoCmd.SetWarnings True
    
    
Exit_cmd_Select_Click:

    Call cmd_close_Click
    Exit Sub
    
err_cmd_Select_Click:

    If Err.Number = 1 Then
            
    Else

        MsgBox Err.Number & vbCrLf & Err.Description
        Resume Exit_cmd_Select_Click
            
    End If
    
End Sub

.

مع الاعتذار ، اني عملته بالنسخة الموجودة في آخر مشاركة ، ومو نسختك الاخيرة 🙂

جعفر

1513.1.Not in.accdb.zipFetching info...

ahmedabuzena · مايو 25, 2022

في 24‏/5‏/2022 at 19:14, jjafferr said:

السلام عليكم 🙂

تفضل :

لما تنقر على رقم 1 ، يفتح لك النموذج الآخر ،

تنقر على السجلات اللي تريد الحاقها (نقرة اخرى على السجلات لعدم اختياره) ،

ثم النقر على الزر 3 ، ليعمل الحاق السجلات ، ويخرج من النموذج

.

هذا كود النموذج :

Option Compare Database
Option Explicit

Private Sub cmd_close_Click()

    DoCmd.close acForm, Me.Name, acSaveNo
End Sub

Private Sub cmd_Select_Click()
On Error GoTo err_cmd_Select_Click

    Dim items As Variant
    Dim myIN As String
    
    myIN = Empty
    For Each items In Me.lst_invoices.ItemsSelected
        myIN = myIN & "," & Me.lst_invoices.Column(0, items)
    Next items
    
    'Debug.Print Mid(myIN, 2)
    If Len(myIN & "") = 0 Then
        MsgBox "رجاء اختيار رقم الفاتورة من القائمة"
        Exit Sub
    End If

    Dim qdf As DAO.QueryDef
    Dim Replace_With As String, sqlString As String, Query_Name As String
    Dim pos_1 As Integer, pos_2 As Integer
    
    Query_Name = "append query customer account sub dollar ListBox"
    
    Set qdf = CurrentDb.QueryDefs(Query_Name)
    pos_1 = InStr(qdf.SQL, "In (") - 1
    pos_2 = InStr(pos_1, qdf.SQL, ")")
    Replace_With = "In (" & Mid(myIN, 2) & ")"
    sqlString = Mid(qdf.SQL, 1, pos_1) & _
                Replace_With & _
                Mid(qdf.SQL, pos_2 + 1)
    'Debug.Print sqlString
    qdf.SQL = sqlString

    DoCmd.SetWarnings False
        DoCmd.OpenQuery Query_Name
    DoCmd.SetWarnings True
    
    
Exit_cmd_Select_Click:

    Call cmd_close_Click
    Exit Sub
    
err_cmd_Select_Click:

    If Err.Number = 1 Then
            
    Else

        MsgBox Err.Number & vbCrLf & Err.Description
        Resume Exit_cmd_Select_Click
            
    End If
    
End Sub

.

مع الاعتذار ، اني عملته بالنسخة الموجودة في آخر مشاركة ، ومو نسختك الاخيرة 🙂

جعفر

1513.1.Not in.accdb.zip 451.34 kB · 6 downloads

Expand

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

1513.1.Not in final.accdbFetching info...

**jjafferr** · مايو 25, 2022

وعليكم السلام 🙂

عملت حقل اختيار صح/خطأ ، تسميته "اختيار الكل" ، فلما تختاره ، يختار القائمة كاملة ، ولما تشيل الاختيار عنه ، يلغي اختيار القائمة ،

image.png.11930e89cf0de1d6df46cf42b7ed31d1.png

وهذا الكود يعمل اللازم :

Private Sub chk_Select_All_AfterUpdate()

    Dim i As Integer
    
    If Me.chk_Select_All = -1 Then
        
        'Selete All
        For i = 0 To Me.lst_invoices.ListCount - 1
            Me.lst_invoices.Selected(i) = True
        Next i
        
    Else
        
        'DeSelete All
        For i = 0 To Me.lst_invoices.ListCount - 1
            Me.lst_invoices.Selected(i) = False
        Next i
            
    End If
    
End Sub

.

وشفت عندك استعلام ما تريده يعرض عدد كبير من المعلومات ،

فعملت لك جدول خاص بالمعلومات اللي ما نريدها ، واضفت لك اسم/رقم المجموعة iGroup حتى تقدر تضيف معلومات لإستعلامات اخرى

image.png.e15a61ed46d4fe3a35c9d6d76460d589.png

.

فأصبح الاستعلام

image.png.2a205f1ef728f6c2db292d7caec4c58d.png

.

جعفر

1513.2.Not in final.accdb.zipFetching info...

تسجيل الدخول

عدم التكرار في استعلام الالحاق

الردود الموصى بها

ahmedabuzena

jjafferr

ahmedabuzena

jjafferr

ahmedabuzena

ahmedabuzena

jjafferr

ِAbo_El_Ela

ahmedabuzena

jjafferr

Eng.Qassim

jjafferr

Eng.Qassim

ahmedabuzena

jjafferr

ahmedabuzena

jjafferr

ahmedabuzena

jjafferr

ahmedabuzena

jjafferr

ahmedabuzena

jjafferr

ahmedabuzena

jjafferr

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information