اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اضافة مستخدم بشرط dlookup


الردود الموصى بها

السلام عليكم
وجدت صعوبة في كيفية استعمال الدالة DlookUp في نموذج فمثلا
عند الضغط على زر اضافة مستخدم اذا كان اسم المدخل من طرف المستعمل موجود مسبقلا في النموذج فان النموذج لا يقوم باضافة المستخدم وتخرج رسالة بان اسم المستخدم موجود الرجاء اعادة اسم اخر.
وهل يمكنني فعل هذا باستعمال if. 
افدوني والسلام عليكم
سارفق الملف

اضافة مستخدم.rar

تم تعديل بواسطه bilouinfo
رابط هذا التعليق
شارك

1 ساعه مضت, bilouinfo said:

السلام عليكم
وجدت صعوبة في كيفية استعمال الدالة DlookUp في نموذج فمثلا
عند الضغط على زر اضافة مستخدم اذا كان اسم المدخل من طرف المستعمل موجود مسبقلا في النموذج فان النموذج لا يقوم باضافة المستخدم وتخرج رسالة بان اسم المستخدم موجود الرجاء اعادة اسم اخر.
وهل يمكنني فعل هذا باستعمال if. 
افدوني والسلام عليكم
سارفق الملف

اضافة مستخدم.rar

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

أخي الكريم

طالما أنك تستخدم المسميات العربية للحقول والجداول والنماذج لست وحدك من سيجد صعوبة في كيفية استعمال الدالة

فكتابة الاكواد مع استخدام اللغة العربية صعب جداً ويؤدي إلى أخطاء كثيره

نصيحة قم بإعادة تسمية الكائنات الى اللغة الانجليزية قبل ان تبتعد كثيرا في اكمال البرنامج

أمر أخر المفتاح الاساسي بجدول المستخدمين يجب أن يكون رقم وليس نص لتحصل على نتائج صحيحة

لا أخفيك امضيت ساعة كاملة لكي اكتب الكود وعندما تمكنت من كتابته لم احصل على نتائج صحيحة بسبب

انك تعتمد في الجدول على مفتاح اساسي عبارة عن حقل نص

::بالتوفيق::


إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم

2018-05-01_09-27-20.gif.2d80794fadd1705c39d0581294811049.gif

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

شكرا استاذي kaser906 على ردك الجميل.

ساحاول تطبيق كل ما قلته لي، لكن هل تكرمت وارسلت الي الكود الذي كتبه لارى على الاقل الطريقة التي اتبعتها انت.

رابط هذا التعليق
شارك

تفضل

ضع الكود في حدث قبل التحديث للحقل اسم المستخدم

 

Dim x
x = DLookup("[اسم_المستخدم]", "المستخدمين", "اسم_المستخدم='" & Me.اسم_المستخدم & "'")
If Not (IsNull(x)) Then
MsgBox "تم تسجيل هذا الاسم مسبقا فضلا قم بأختيار اسم أخر"
DoCmd.CancelEvent
End If


إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم

2018-05-01_09-27-20.gif.2d80794fadd1705c39d0581294811049.gif

  • Like 2
رابط هذا التعليق
شارك

استاذ kaser906 حاولت عدة مرات لكن فشلت، 

في المرفق فيها التعدلات التي نصحتني بيها. جربت عدة مرات لكن محوللتي لم تنجح فهلا ساعدتني.

ajouter utilisateur.rar

رابط هذا التعليق
شارك

ممتاز

الان دعنا نتفق أن يكون رقم المستخدم يكون عن طريق إدخال يدوي بدل أسمه ( اسم المستخدم)

مثلا كل مستخدم يتم تسجيل عن طريق رقم حاسب أو عن طريق رقم الهوية ( الرقم القومي مثلا )

فهل يناسبك الحل ؟

 


 

 

  • Like 1
رابط هذا التعليق
شارك

اسمحلي استذنا طولت عليك،

تقصد ان اقوم بتغيير رقم المستخدم من رقم تلقائي الي رقم اقوم بادخاله يدويا.

فعلت ذلك 

تم تعديل بواسطه bilouinfo
رابط هذا التعليق
شارك

اريد ان اغير فكرتك تماماً من تسجيل

مستخدم عن طريق حقل نص

عند الاضافة سنستخدم رقم لاضافة مستخدم

جرب المرفق

ادخل مستخدم جديد عن طريق الرقم 1

و وافني بالنتيجة

::بالتوفيق::


 

 


 

 

ajouter utilisateur.kaser906.1.rar

  • Like 1
  • Thanks 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information