نقل اسم الدخول الى الفورم الرئيسي

[زياد الحسناوي]

السلام عليكم 

اسم الدخول زياد والرمز 1234 

 

عند الدخول تظهر رسالة أهلا بك استاذ (الاسم الكامل للمستخدم) ولا توجد مشكلة في فورم Home

في فورم Information توجد المشكلة وهي عدم ظهور الاسم بالرغم من استخدام نفس الدالة في الفورم السابق

Enter.accdb

[ِAbo_El_Ela]

اتفضل

Enter.accdb

امسح مصدر عنصر التحكم 

لــ خانة مدخل المعلومات 

[kkhalifa1960]

نعم الحل صحيح ................. ولكن ماذا لو أراد غلق فورم الدخول عند التنقل ؟؟؟؟؟

[زياد الحسناوي]

9 دقائق مضت, ِAbo_El_Ela said:

اتفضل

Enter.accdb 1.2 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

امسح مصدر عنصر التحكم 

لــ خانة مدخل المعلومات 

عاشت ايدك ممنون 

الان, kkhalifa1960 said:

نعم الحل صحيح ................. ولكن ماذا لو أراد غلق فورم الدخول عند التنقل ؟؟؟؟؟

والحل ؟؟ اذا انغلق

[ِAbo_El_Ela]

يبقي حضرتك محتاج تخزن القيمة 

ممكن تستعمل متغير من نوع TempVars

 

لحظة اعملها و ابعتهالك 

[زياد الحسناوي]

9 دقائق مضت, ِAbo_El_Ela said:

يبقي حضرتك محتاج تخزن القيمة 

ممكن تستعمل متغير من نوع TempVars

 

لحظة اعملها و ابعتهالك 

تمام بانتظار حضرتك

[kkhalifa1960]

تفضل أخي.

Enter.accdb

[ِAbo_El_Ela]

تفضل 

 

Enter.accdb

[زياد الحسناوي]

32 دقائق مضت, kkhalifa1960 said:

تفضل أخي.

Enter.accdb 1.2 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 2 downloads

شكرا جزيلا استاذ 💯

17 دقائق مضت, ِAbo_El_Ela said:

تفضل 

 

Enter.accdb 1.2 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download

شكرا استاذ فكرة افتهمت عمل المتغير TempVars 👍

[زياد الحسناوي]

1 ساعه مضت, ِAbo_El_Ela said:

تفضل 

 

Enter.accdb 1.2 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download

يتم اختيار الاسم الاول فقط 

قمت بتعديل على الكود 

Dim UserFirstNameTemp As TempVars
If n = [NoP] And x = [FirstName] Then
TempVars!UserIdTemps = Me.FirstName.Value
MsgBox TempVars!UserIdTemps

الى 

Dim UserFirstNameTemp As TempVars
If n = [NoP] And x = [FirstName] Then
TempVars!UserIdTemps = Me.SecondName.Value
MsgBox TempVars!UserIdTemps

 

صحيحة ؟ 

تم تعديل أكتوبر 2, 2023 بواسطه زياد الحسناوي