مشكلة في كود نقل سجل الى جدول أخر مع زيادة رقم السجل

[qathi]

أخواني الافاضل أتمنى المساعدة في التالي:

عند نقل السجل من جدول الى أخر.. اذا كان رقم المورد موجود في الجدول الاخر يتم تغيرة تلقائيا بزيادة رقم عن رقم اخر سجل في الجدول الاخير 

قام الاخ العزيز AlwaZeeR بالمساعدة وزودني بالكود ..  يقوم باضافة السجل جديد وزيادة رقم .. ولكن به مشكلة  .. أنه لا ينسخ بيانات السجل المنقول الى جدول الهدف

 

مرفق الملف للتعديل :

Pro2.rar

[ابو جودي]

40 دقائق مضت, qathi said:

أخواني الافاضل أتمنى المساعدة في التالي:

عند نقل السجل من جدول الى أخر.. اذا كان رقم المورد موجود في الجدول الاخر يتم تغيرة تلقائيا بزيادة رقم عن رقم اخر سجل في الجدول الاخير 

قام الاخ العزيز AlwaZeeR بالمساعدة وزودني بالكود ..  يقوم باضافة السجل جديد وزيادة رقم .. ولكن به مشكلة  .. أنه لا ينسخ بيانات السجل المنقول الى جدول الهدف

 

مرفق الملف للتعديل :

Pro2.rar 29.59 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 2 downloads

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

[AlwaZeeR]

تفضل

والكود الأول ينسخ مئة بالمئة ولكن يحتاج لتغيير البيانات 

حسب ما هو في الجدول الخاص بك

جرب ووافني بالنتيجة

 

Pro1N.rar

تم تعديل يوليو 11, 2019 بواسطه AlwaZeeR

[qathi]

17 دقائق مضت, ابا جودى said:

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

أخي @ابا جودى أشكرك على سرعة ردك ..

 

المطلوب بعد كتابة البيانات في نموذج Suppliers_F وعندالضغط على زر نسخ لدليل الهاتف يتم عمل نسخ للسجل الحالي من جدول SuppliersT الى جدول Contacts_T فاذا وجد الكود أن رقم المورد موجود في الجدول  Contacts_T يقوم بتغيير رقم السجل المراد نقلة بزيادة رقم واحد بعد اخر سجل

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

أرجوا أنه تم الايضاح

 

 

25 دقائق مضت, AlwaZeeR said:

تفضل

والكود الأول ينسخ مئة بالمئة ولكن يحتاج لتغيير البيانات 

حسب ما هو في الجدول الخاص بك

جرب ووافني بالنتيجة

 

Pro1N.rar 78.08 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

 

ساقوم بالتجربة ووافيك بعدها بالنتيجة ..

[qathi]

 أخي @ابا جودى أقصد برقم المورد الحقل SupplierID في كلى الجدولين 

[ابو جودي]

 

11 دقائق مضت, qathi said:

 أخي @ابا جودى أقصد برقم المورد الحقل SupplierID في كلى الجدولين 

اعتقد كل ما تتمناه موجود هنا بالتمام والكمال

 

41 دقائق مضت, AlwaZeeR said:

تفضل

والكود الأول ينسخ مئة بالمئة ولكن يحتاج لتغيير البيانات 

حسب ما هو في الجدول الخاص بك

جرب ووافني بالنتيجة

 

Pro1N.rar 78.08 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

[qathi]

أخي @AlwaZeeR  قبل أي شيء

لا أعرف ما أقول لك .. لكن أسأل الله أن يسعدك وأن يرزقك الخير كله في الدنيا والاخرة .. 

بارك الله فيك على مجهود الرائع جدا 

 

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

لكن أذا كان رقم المورد غير موجود في دليل الهاتف فأنه ينقل البيانات ولا يظهر رسالة نجاح العملية

 

أليك الكود للتأكد قد ربما أني أخطاءت في تعديلة

Private Sub AddContacts_Click()
'  On Error Resume Next
SaveA
If MsgBox(" هـل تـريـد نسخ بيانات المورد الى دلـيـل الـهـاتـف ؟", vbYesNo + vbQuestion, "تأكيـــد نـقـل الـسـجـل") = vbYes Then

 Dim Lst As String
 Dim Mlst As String
 Mlst = Nz(DLast("SupplierName", "Contacts_T", "SupplierName='" & [SupplierName] & "'"), 0)
 Lst = Nz(DLast("SupplierID", "Contacts_T"), 0) + 1
 
    If IsDplcateRec Then
        MsgBox _
        " اسم المورد موجود في دليل الهاتف وهو : ( " & [Mlst] & " )"
       
                    
     CurrentDb.Execute _
     "INSERT INTO Contacts_T" & _
     "(SupplierID, SupplierName,SuPhoneTh1,sharTxt,SuTpye,SuAdress,SuPhoneTh2,NaPhoneTh2,SupplierNameA,NaMobile,SuEmail,notes,SuPhone,NaPhone,SuMobile) " _
      & "VALUES (" & Lst & ", '" & SupplierName & "'" & ", '" & SuPhoneTh1 & "'" & _
      ", '" & sharTxt & "'" & ", '" & SuTpye & "'" & ", '" & SuAdress & "'" & ", '" & _
      SuPhoneTh2 & "'" & ", '" & NaPhoneTh2 & "'" & ", '" & SupplierNameA & "'" & ", '" & NaMobile & "'" & ", '" & SuEmail & _
      "'" & ", '" & notes & "'" & ", '" & SuPhone & "'" & ", '" & NaPhone & "'" & ", '" & SuMobile & "'" & ")"
    
    
       MsgBox _
        "تم اضافة سجل جديد برقم : ( " & [Lst] & " )"
  
    Me.Requery
   End If
End If
End Sub

Private Function IsDplcateRec() As Boolean
    IsDplcateRec = False
    
    If IsNull(DLookup("SupplierName", "Contacts_T", "SupplierName='" & [SupplierName] & "'")) = False Then
    IsDplcateRec = True
    Else
    
       CurrentDb.Execute _
       "INSERT INTO Contacts_T SELECT * FROM [SuppliersT]"
    
    End If
End Function

 

فما حل هذا الامر ؟؟

شاكراً لك تحملك وسعة صدرك ...

 

مرفق الملف:

Pro2N.rar

[qathi]

أخي @ابا جودى أنظر الى ردك أعتقد أنك الذي طلبت قبل أن أفتح واجرب ملف أخي @AlwaZeeR 

هذا كلامك

في ١١‏/٧‏/٢٠١٩ at 22:47, ابا جودى said:

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

 

لكن على العموم .. شكرا لك أخي ابا جود على أهتمامك ..  

[AlwaZeeR]

حياك الله عزيزي

الامر يجب ان يكون في الوحدة النمطية الخاصة بالبحث عن التكرار

هكذا

Private Function IsDplcateRec() As Boolean
    IsDplcateRec = False
    
'    If IsNull(DLookup("SupplierID", "Contacts_T", "SupplierID=" & Me.SupplierID)) = False Then
    If IsNull(DLookup("SupplierName", "Contacts_T", "SupplierName='" & [SupplierName] & "'")) = False Then
    
    IsDplcateRec = True
    Else
    
       CurrentDb.Execute _
       "INSERT INTO Contacts_T SELECT * FROM [SuppliersT]"
               
               MsgBox _
                      "تم اضافة السجل بنجاح"

    End If
End Function

 

[ازهر عبد العزيز]

الأستاذ @AlwaZeeR افتقدناك ان شاء الله تكون بخير

[qathi]

لا بد لي من رد .. وان تأخر ..

كل الحب والاحترام والتقدير لك أستاذنا وأخينا @AlwaZeeR 

على بذلك من وقتك وعطائك لنا

حفظك الله من كل مكروه واسعدك الله بالخير بفي النياء والاخرة