تكرار القيد بعد عمل التخزين

[walidalrobey@yahoo.com]

السادة الافاضل واخوانى الكرام 

لقد واجهت مشكله ولم اقدر على حلها 

- عند تسجيل القيد اليومى يتم التسجيل بنجاح والقيد يكون متوازن 

- ولكن عند استعراض النتائج اجد ان القيد قد ( كرر نفسة بنفسة ) 

- وبالتالى جميع النتائج تصبح خطاء 

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

- لكن علل الكل يستفيد اذا واجهته تلك المشكله فيما بعد 

الشفت مفعل لفتح البرنامج 

مرفق البرنامج وصورة المشكله 

ROYAL ACCOUNT -1.rar

[walidalrobey@yahoo.com]

الاخوة الاعزاء 

تحية طيبة وبعد 

ارجوا حل المشكله 

ارى عدد كثير من الاخوة يقوم بتحميل البرنامج ولكن لا يوجد رد بالحل 

تحياتى للجميع 

[أبوبسمله]

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

اخى الفاضل وليد لا تكرر المواضيع وتابع بعد ذلك على نفس الموضوع واكتفى بكلمه للرفع

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

Private Sub S_Click()
If (AA - BB) = 0 Then
    Else
    MsgBox "عفــواً  ... القيــــد غــير متـــوازن", , "aboeyad"
    Exit Sub
End If
If Me.S1 <> 0 And Me.S3 <> "" Then
    CurrentDb.Execute ("Insert into TransActions select * from TransActions1")
    CurrentDb.Execute ("Insert into MoneyMoves select * from MoneyMoves1")
    
    CurrentDb.Close
    
    DoCmd.GoToRecord , , acNewRec
    S1 = 0
    S2 = ""
    S2.SetFocus
Else
    DoCmd.CancelEvent
    MsgBox "يجب تعبئه البيانات"
End If
End Sub

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

A_ROYAL_ACCOUNT_-1.mdb

[walidalrobey@yahoo.com]

الاخ الغزيز احمد 

بيض الله وجهك 

وشاكر لك حسن التقدير والمعاملة 

[أبوبسمله]

العفو اخى وليد

والشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

هل جربت الملف بعد التعديل ؟

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

[walidalrobey@yahoo.com]

الاخ العزيز احمد

انا ما احببت الاكسيس الامن خلال الاساتذة والاخوة والزملاء الذين فى الموقع .

وما تعلمت اى شىء الا من خلال متابعة الاساتذة والاخوة 

وما زلت اتعلم الى اليوم 

وشاكر للجميع الف شكر ...