[رجل الكهرباء]

دائما انت كما اعتدناك استاذ احمد لا تبخل بعلمك ةلا مجهودك لمساعدة الاخرين.

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

[Ahmed_Mansoor]

أهلا بك أخي الكريم رجل الكهرباء , طيب ماهو الحقل الذي تريده أن لايتكرر في الجدول وهل يتم حذف التكرار بغض النظر إن كان التاريخ أو حقل آخر في نفس الصف بقيم مختلفة في الصفوف المكرره , يعني مثال : هاذي مثلا بيانات 3 صفوف :

الحمام - 1/1/2016 - محمد السيد - 1
الحمام - 1/7/2016 - محمد السيد - 2
الحمام - 1/9/2016 - محمد السيد - 3

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

[رجل الكهرباء]

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

[رجل الكهرباء]

ارجو المساعده انا فى اشد الاحتياج لهذا المثال

[sendbad100]

PHP كود :

Private Sub Command1_Click()

sql = "SELECT DISTINCT A FROM t1"
'SQLs = "Select * From t1"
If RS.State = adStateOpen Then RS.Close
'RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic
RS.Open sql, DB, adOpenStatic, adLockOptimistic, adCmdText
 With RS
 .MoveFirst

Do Until .EOF

f (![a])

 DoEvents
.MoveNext
Loop

 End With
 MsgBox "تمت العملية بنجاح "
End Sub


Sub f(n As String)

Dim F99 As New ADODB.Recordset
Dim R As Long
sql = "SELECT * FROM t1 WHERE A ='" & Trim(n) & "'"

F99.Open sql, DB, adOpenStatic, adLockOptimistic, adCmdText
  
  R = F99.RecordCount
  If R < 2 Then: Exit Sub
    
F99.MoveFirst
F99.MoveNext
Do Until F99.EOF
F99.Delete
F99.MoveNext
Loop

 F99.Close

End Sub

Private Sub Form_Load()
PoolConnection
End Sub 


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

[رجل الكهرباء]

شكرا اخى الطيب على إهتمامك ومساعدتك لى
لكن الكود لا يعمل معى انا عملت مثال اخر بدون ادوات تحتاج الى ترخيص او شراء 
بارك الله لك فى أهلك ومالك وعملك

[sendbad100]

السلام عليكم

تفضل   تم تعديل على الجدولين

[رجل الكهرباء]

(18-02-18, 02:51 PM)sendbad100 كتب : السلام عليكم

تفضل   تم تعديل على الجدولين

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

استاذى انا لى طلب ثانى هو حذف التكرار اذا تطابق الاسم والتاريخ

[sendbad100]

السلام عليكم 
تفضل

---

.............................................
............................................

[رجل الكهرباء]

(18-02-18, 04:03 PM)sendbad100 كتب : السلام عليكم 
تفضل

---

.............................................
............................................

شكرا اخى انار الله قلبك بنور الايمان