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

[الحاتمي1]

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

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

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

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

 

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

test.accdbFetching info...

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

[kkhalifa1960]

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

test-1.accdbFetching info...

[ابوخليل]

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

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

 

test2.rarFetching info...

[الحاتمي1]

  في 28‏/1‏/2023 at 17:47, ابوخليل said:

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

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

 

test2.rar 25.96 kB · 0 downloads

Expand  

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

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

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

 

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

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

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

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

test.accdbFetching info...

[ابوخليل]

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

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

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

test3.rarFetching info...

[الحاتمي1]

  في 28‏/1‏/2023 at 19:08, ابوخليل said:

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

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

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

test3.rar 25.37 kB · 0 downloads

Expand  

شكرا لك اخي 

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

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

 

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

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

 

 

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

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

[ابوخليل]

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

تفضل

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

test4.rarFetching info...

[الحاتمي1]

شكرا لك أخي \

تم الحل