تغير اسم الحقل حسب قيمة الخلية

[محمد احمد لطفى]

أريد تغيير اسم الحقل  LastNumberx1 بناء على قيمة الخلية NumberEnd 

عندما يكون الحقل  NumberEnd = ؟
NumberEnd = 1 يتم النقل LastNumberx1

NumberEnd = 2 يتم النقل LastNumberx2

NumberEnd = 3 يتم النقل LastNumberx3

NumberEnd = 4 يتم النقل LastNumberx4

NumberEnd = 5 يتم النقل LastNumberx5

حيث 
a = Forms![test1]![NumberEnd]

و يتم التغيير على السطر التالى 

Forms![test1]![LastNumberx1] = Forms![test1]![NumberEnd]

والمقصود من الامر حتى لا أكرر الكود خمس مرات 
 

Dim a As Integer
a = Forms![test1]![NumberEnd]
If Forms![test1]![NumberEnd] = a Then
Forms![test1]![LastNumberx1] = Forms![test1]![NumberEnd]
End If

 

test2023-1 (3).mdb

تم تعديل مايو 1, 2023 بواسطه محمد احمد لطفى

[kkhalifa1960]

استاذنا @محمد احمد لطفى حليت الطلب بطريقتي أما اذا كنت تطلب الحل بطريقة معينة كما عادتك !!!!!!!!!!!!!!

اليك المرفق .

test2023-1 (4).mdb

[محمد احمد لطفى]

أستاذى @kkhalifa1960



طريقة جميلة 

ولكن أريد الحل عن طريق الكود لأن الخلايا الفعلية عندى خلايا جدول أخر

ربنا يبارك فيك و يحفظك 

هو زى 
اضافة متغير اخر x
 

a = 1  , x = [LastNumberx1]

a = 2  , x = [LastNumberx2]
a = 3  , x = [LastNumberx3]
a = 4  , x = [LastNumberx4]
a = 5  , x = [LastNumberx5]

 

Forms![test1]!x = Forms![test1]![NumberEnd]

أو استخدام array 
بس أنا مش عارف تكتب اذاى

تم تعديل مايو 1, 2023 بواسطه محمد احمد لطفى

[Barna]

55 دقائق مضت, محمد احمد لطفى said:

أستاذى @kkhalifa1960



طريقة جميلة 

ولكن أريد الحل عن طريق الكود لأن الخلايا الفعلية عندى خلايا جدول أخر

ربنا يبارك فيك و يحفظك 

هو زى 
اضافة متغير اخر x
 

a = 1  , x = [LastNumberx1]

a = 2  , x = [LastNumberx2]
a = 3  , x = [LastNumberx3]
a = 4  , x = [LastNumberx4]
a = 5  , x = [LastNumberx5]

 

Forms![test1]!x = Forms![test1]![NumberEnd]

أو استخدام array 
بس أنا مش عارف تكتب اذاى

اخي محمد جرب الكود التالي في حدث تحت الزر ....

Dim a As Integer
    a = Forms![test1]![NumberEnd]
             Me("LastNumberx" & a) = Forms![test1]![NumberEnd]

 

[محمد احمد لطفى]

أستاذى @Barna

أسأل الله عزّ وجلّ أن يجزيكم عنا خير الجزاء وأن يبارك لكم في عملكم.

 

تم تعديل مايو 1, 2023 بواسطه محمد احمد لطفى

[kkhalifa1960]

تفضل استاذ @محمد احمد لطفى اضغط علي الزر نقل  وغير القيمة بالفورم واضغط على الزر مرةً أخرى  وكرر ........   انشاء الله طلبك .

test2023-1 (5).mdb

[محمد احمد لطفى]

أستاذى @kkhalifa1960

حفظكم الله وبارك في جهودكم