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

[بلال منذر]

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

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

تم تعديل مايو 6, 2018 بواسطه bilouinfo

[kaser906]

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

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

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

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

أخي الكريم

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

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

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

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

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

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

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

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

[بلال منذر]

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

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

[kaser906]

تفضل

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

 

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

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

[بلال منذر]

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

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

ajouter utilisateur.rar

[kaser906]

ممتاز

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

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

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

 

 

 

[بلال منذر]

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

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

فعلت ذلك 

تم تعديل مايو 6, 2018 بواسطه bilouinfo

[kaser906]

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

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

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

جرب المرفق

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

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

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

 

 

 

 

ajouter utilisateur.kaser906.1.rar

[بلال منذر]

انتظر تعليماتك استاذ  kaser906.

 

لم انتبه الي الرد سادقق فيه.

 

[بلال منذر]

ماشاء الله عليك استذنا بارك الله فيك وجزاك الله كل خير. الفكرة اعجبتني كثيرا .

[kaser906]

الحمد لله

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