خطاء في اضافة مستخدم جديد

[بلال اليامين]

السلام عليكم

خطاء في اضافة مستخدم جديد 

وانني اعمل على اكسس 2007

الصلاحيات المستخدمين.accdb

[jjafferr]

وعليكم السلام 🙂

 

اخي بلال ، رجاء تخبرنا بالتفصيل ، عن الخطأ والمشكلة ، وفي اي مكان في برنامجك!!

 

جعفر

 

[بلال اليامين]

عند الضغط على زر  اضافة مستخدم  وسوف تفتح البرنامج تجد النموذج

تم تعديل نوفمبر 2, 2019 بواسطه بلال اليامين

[jjafferr]

تفضل 🙂

 

تصحيح فني ، ولا علاقة له بالموضوع:

هذه الطريقة خطأ

Option Compare Database
Dim UserRS As Recordset
Option Explicit
Public UsN
Public UsM


والطريقة الصحيحة

Option Compare Database
Option Explicit

Dim UserRS As Recordset
Public UsN
Public UsM

.

والخطأ كان في هذا السطر:

   Set UserRS = DB.OpenRecordset(" SELECT tbl_User.* FROM tbl_User WHERE tbl_User.user_name ='" & UsN & "' AND tbl_User.City='" & UsM & "';", dbOpenDynaset)

 

ولكنك لم تخبر البرنامج ما هو المتغير DB ، لهذا السبب يمكننا تغيير الكود الى التالي:

   Set UserRS = CurrentDb.OpenRecordset(" SELECT tbl_User.* FROM tbl_User WHERE tbl_User.user_name ='" & UsN & "' AND tbl_User.City='" & UsM & "';", dbOpenDynaset)


ويمكن اختصاره الى
   Set UserRS = CurrentDb.OpenRecordset(" SELECT * FROM tbl_User WHERE user_name ='" & UsN & "' AND City='" & UsM & "';", dbOpenDynaset)

.

جعفر

[بلال اليامين]

بارك الله فيك شكرا جيزيلا