[mamas1]

السلام عليكم

مبروك المنتدى الجديد

اريد أن أعمل دمج لقاعدتي بيانات و عندما يقوم بعملية الدمج إذا وجد تكرار في الرمز يقوم بسؤالي ب msgbox

هل تريد الحفظ عليه Crush (Ecraser بالفرنسية) أم تصنع واحد آخر برمز آخر يعني ب addnew او تتجاهل

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

PHP كود :

Set RS = Nothing
Set RS = New ADODB.Recordset
RS.Open "Select * From Table1", CN, adOpenDynamic, adLockOptimistic
Set RSS = Nothing
Set RSS = New ADODB.Recordset
RSS.Open "Select * From Table1", CN1, adOpenDynamic, adLockOptimistic
For i = 1 To RS.RecordCount
RSS.Close
RSS.Open "Select * From Table1 where N like '" & RS!N & "'", CN1, adOpenDynamic, adLockOptimistic
If RSS.RecordCount <> 0 Then
Dim iResponse As String
iResponse = MsgBox("Vouler vous écraser " & RS!N, vbYesNoCancel + vbApplicationModal + vbDefaultButton3, "Ligue")

Select Case iResponse
    Case vbYes:
RSS![Prénom] = RS![Prénom]
RSS![Code] = RS![Code]
RSS![Name] = RS![Name]
RSS![Taille] = RS![Taille]
DoEvents
RSS.Update
RSS.Requery
    Case vbNo:
    RSS.AddNew
RSS![N] = "RE" & RS![N]
RSS![Prénom] = RS![Prénom]
RSS![Code] = RS![Code]
RSS![Name] = RS![Name]
RSS![Taille] = RS![Taille]
DoEvents
RSS.Update
RSS.Requery
    Case vbCancel:
      ' Enter your code here
End Select
Else
    RSS.AddNew
RSS![N] = RS![N]
RSS![Prénom] = RS![Prénom]
RSS![Code] = RS![Code]
RSS![Name] = RS![Name]
RSS![Taille] = RS![Taille]
DoEvents
RSS.Update
RSS.Requery
End If
DoEvents
Next 


http://vb4arab.com/vb/attachment.php?att...1347409126

[اشروفا]

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

[mamas1]

شكرا .. تم الحل !!! لكن بطريقتي الخاصة
جزاك الله خيرا