طريقة استرجاع بيانات بواسطة vba

[الحاتمي1]

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

في المرفقات يوجد ملف اكسس نموذج يقوم بادخال السجلات بواسطة vba 

ارغب في عرض البيانات المدخلة في نفس النموذج بعد حفظها في الجدول وذلك بواسطة vba 

اقصد تكون نفس البيانات التي ادخلتها في نفس اللحظة

 

مشكورين مقدما 

test.accdb

تم تعديل يناير 28, 2023 بواسطه الحاتمي1

[kkhalifa1960]

تفضل أخي ووافني بالرد 

test-1.accdb

[ابوخليل]

 فقط اعكس الكود

With rst
    Me.sname = ![sname]
    Me.sage = ![sage]
    .Close
End With
Me.Refresh

 

test2.rar

[الحاتمي1]

19 دقائق مضت, ابوخليل said:

 فقط اعكس الكود

With rst
    Me.sname = ![sname]
    Me.sage = ![sage]
    .Close
End With
Me.Refresh

 

test2.rar 25.96 kB · 0 downloads

شكرا لك أخي على الرد

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

وارغب يكون بواسطة كود vba ' فقط

 

شكرا لك على تعاونك اخي ابو خليل

تم ارفق الملف بعد اضافة رقم السجل عليه 

علما بأن الرقم لا يظهر اثناء ارسال البيانات بواسطة الكود

ولا ارغي في ربط النموذج بالجدول لانه يؤدي لحفظ السجل بالخطأ 

test.accdb

[ابوخليل]

غريبة .. طلبك يسير جدا ويبين انك لا تعرف  في الأكواد

هل انت من عمل المثال ؟

على كل لست ملزما بالاجابة تفضل التعديل

test3.rar

[الحاتمي1]

4 دقائق مضت, ابوخليل said:

غريبة .. طلبك يسير جدا ويبين انك لا تعرف  في الأكواد

هل انت من عمل المثال ؟

على كل لست ملزما بالاجابة تفضل التعديل

test3.rar 25.37 kB · 0 downloads

شكرا لك اخي 

انا مبتدئ في الاكواد اخي 

والمثال من عملي وعملته حتى استفيد منكم 

 

في المرفق الذي قمت انت بتعديله اخي 
عند النقر على view يقون بارجاع القيمة رقم 1 فقط 

وانا ارغب في ارجاع القيمة التي ادخلتها اخر شيء 

 

 

راح اجرب اعدل في الكود حتى احصل على ما ارغب 

جزاك الله خير اخي في ميزان حسناتك

[ابوخليل]

يمكن انني لم افهم عنك

تفضل

يجلب اخر ادخال

test4.rar

[الحاتمي1]

شكرا لك أخي \

تم الحل