الدالة dlookup لا تعمل

[عبد الله قدور]

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

حياكم الله جميعا

عندي الدالة dlookup لا تعمل ولا ادري اين الخطأ

DLookup("[pass]", "TblEmp", "arname='" & Me.Cuser & "'")

علما ان اسماء الاعمدة و الجدول صحيح

ملاحظة الجدول هو جدول مرتبط بقاعدة بيانات sql هل لهذا له علاقة بالدالة .

 

[د.كاف يار]

33 دقائق مضت, عبد الله قدور said:

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

حياكم الله جميعا

عندي الدالة dlookup لا تعمل ولا ادري اين الخطأ

DLookup("[pass]", "TblEmp", "arname='" & Me.Cuser & "'")

علما ان اسماء الاعمدة و الجدول صحيح

ملاحظة الجدول هو جدول مرتبط بقاعدة بيانات sql هل لهذا له علاقة بالدالة .

 

استبدل التالي

 

DLookup("[pass]", "TblEmp", "arname Like '*" & Me.Cuser & "*'")

 

[عبد الله قدور]

في ٧‏/٦‏/٢٠٢١ at 22:59, د.كاف يار said:

استبدل التالي

 

DLookup("[pass]", "TblEmp", "arname Like '*" & Me.Cuser & "*'")

لم يفلح الامر اخي الكريم

اذكر اني سمعت في احد الدروس انه يجب وضع حرف N عند استخدام الشرط النصي، لكني نسيت مكانه وكيفية استخدامه

[jjafferr]

وعليكم السلام اخي عبدالله 🙂

بدلا من استخدام Dlookup ، جرب تستخدم الدالة Elookup من هنا: Microsoft Access tips: Extended DLookup() (allenbrowne.com)

مجرد تضيف الدالة الجديدة الى برنامجك ، وتغير Dlookup الى Elookup ، وبدون ان تغير اي متغيرات في الجملة.

 

بالاضافة الى هذا الرابط: Alternative solution to DCount and DLookup with SQL Server Backend - Access developer (accessexperts.com)

والذي يعمل بنفس الطريقة ايضا 🙂

 

جعفر

[د.كاف يار]

11 ساعات مضت, عبد الله قدور said:

لم يفلح الامر اخي الكريم

اذكر اني سمعت في احد الدروس انه يجب وضع حرف N عند استخدام الشرط النصي، لكني نسيت مكانه وكيفية استخدامه

 

10 ساعات مضت, jjafferr said:

وعليكم السلام اخي عبدالله 🙂

بدلا من استخدام Dlookup ، جرب تستخدم الدالة Elookup من هنا: Microsoft Access tips: Extended DLookup() (allenbrowne.com)

مجرد تضيف الدالة الجديدة الى برنامجك ، وتغير Dlookup الى Elookup ، وبدون ان تغير اي متغيرات في الجملة.

 

بالاضافة الى هذا الرابط: Alternative solution to DCount and DLookup with SQL Server Backend - Access developer (accessexperts.com)

والذي يعمل بنفس الطريقة ايضا 🙂

 

جعفر

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

او ارفق نسخة من البرنامج عشان نحاول فيه

او جرب تستغني عن هذي الطريقة و تستخدم طريقة ثانية 

مثلا هذي

Dim db As DAO.Database
Dim rs As DAO.Recordset
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM EmployeeDATA where [Employee_NO]='"& [TextEmployeeNO] &"'")
    
    If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst                
        While (Not rs.EOF)
         [مربع النص]=rs.Fields("اسم العمود")
            rs.MoveNext
        Wend
    End If
    rs.Close
    Set rs = Nothing