الرجاء المساعدة : العداد الحالي والسابق

بارك الله بلجميع

يا اخوان لقد وضعت الموضوع بمنتدى اخر وتم الحل

وهذا اقتباس من الحل للفائدة

amzman كتب:

أخى AMROM

تم التعديل على المرفق وآمل أن يكون فيه الحل المطلوب، حيث تم إجراء حدث على خانة (العداد السابق):

Private Sub العداد_السابق_GotFocus()

On Error GoTo endsub

Dim rs As Recordset

Set rs = Me.RecordsetClone

If Me.NewRecord = True Then

	rs.MoveLast

Else

	rs.Bookmark = Me.Bookmark

	rs.MovePrevious

End If

Me.العداد_السابق = rs("العداد الحالي")

rs.Close

End

endsub:

End Sub

ولك الاحترام

أخوك

أحمد

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

بسم الله الرحمن الرحيم

أنا بهنيك عن جد على المتابعة بلإرفاق الرد من منتدى آخر فنحن للأسف اعتدنا أن نضع الإجابة وما يعبرنا صاحب الموضوع ( ليس الجميع طبعا ) بالشكر أو حتى أن يخبرنا بأن الحل صحيح على الأقل

ولكن للأمانة العلمية يجب وضع اسم المنتدى الذي وردت فيه الاجابة أو رابط الموضوع على المنتدى الآخر

أتمنى لك التوفيق

والسلام عليكم ورحمة الله وبركاته

اخ البريشي

ممكن قوانين المنتدى تمنع وضع رابط لمنتدى اخر

على كل حال المهم الفائدة وعدم سرقة حقوق الغير

بعد الشكر للاخ amzman

الملف مرفق

تحياتي

amrom.rar

بسم الله الرحمن الرحيم

اقتباس

ممكن قوانين المنتدى تمنع وضع رابط لمنتدى اخر

لا أعتقد عزيزي فهذا المنتدى أكبر من أن يمنع مثل هذه الأمور خصوصا ما دامت في فائدة الأعضاء كما أن معظم الأعضاء هنا مشتركين في أكثر من منتدى وهذا حق لهم

كما أن هناك مواضيع في المنتدى تسرد المنتديات المتخصصة بلغات البرمجة سواء العربية منها أو الأجنبية .

ذكرت ذلك فقط للتوضيح

جزاك الله خيرا

والسلام عليكم ورحمة الله وبركاته