اذهب الي المحتوي
أوفيسنا

السلام عليكم عند الغاء التعديل


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

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

طبعا دى محاول بس مع خبرة حضراتك هل هى صحيحه ام لا  

مع العلم انه يوجد علاقه بين ثلاث جداول 

DoCmd.GoToRecord , , acNewRec
If IsNull(DMax("[kod_alad5al]", "tblControls")) Or DMax("[kod_alad5al]", "tblControls") = 0 Then
Me.kod_alad5al.Value = 1
Else
kod_alad5al = DMax("[kod_alad5al]", "tblControls") + 1

End If

 

Dim i As Integer, k As Integer
Dim db As DAO.Database
Dim Rs As DAO.Recordset
Set db = CurrentDb
DoCmd.SetWarnings False
Set Rs = db.OpenRecordset("SELECT tblControls.* FROM tblControls ORDER BY tblControls.asm_a")
If Nz(Rs.RecordCount, 0) > 0 Then
  Rs.MoveLast
  k = Rs.RecordCount
  Rs.MoveFirst
  For i = 1 To k
    Rs.Edit
    Rs!kod_alad5al = i
   Rs.Update
    Rs.MoveNext
  Next i
End If
Set Rs = Nothing
Set db = Nothing
DoCmd.SetWarnings True


 

01.rar

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information