استفسار بخصوص كود جلب بيانات

[عمر ضاحى]

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

كل عام وانتم بخير 

بعد اذن حضرتكم لى استفسار 

هذا الكود 

Dim str As String
If IsNull(Me.cbAproved) Then
Me.App1 = ""
Me.App2 = ""
Me.App3 = ""
Me.App4 = ""
str = "Select * from QryforREP_ALL_EMP"
Me.RecordSource = str
Exit Sub
Else
App1 = Me.cbEmpNo.Column(1)
App2 = Me.cbEmpNo.Column(2)
App3 = Me.cbEmpNo.Column(3)
App4 = Me.cbEmpNo.Column(4)
str = "Select * from QryforREP_ALL_EMP where [Emp_No]=" & Me.cbAproved.Column(0)
Me.RecordSource = str
End If

هو يعمل جيدا اذا كان مصدر البيانات جدول 

لكن لما حبيت استخدمه على استعلام موجود 

لم تظهر لى نتائج 

ولما حبيت اعرف البرنامج شايف ايه 

ظهر لى هذا 

 

هل هذا يعنى انه لا يمكن استخدام هذه الكود مع الاستعلامات ؟

 

 

تم تعديل فبراير 16, 2022 بواسطه عمر ضاحى

[عمر ضاحى]

up

[ابو جودي]

ممكن المرفق 

[عمر ضاحى]

  

39 دقائق مضت, ابو جودي said:

ممكن المرفق 

 

 

الف شكر مقدما

 

مرفق نموذج

test1001.rar

تم تعديل فبراير 16, 2022 بواسطه عمر ضاحى

[ابو جودي]

طيب مبدئيا كده ركز فى الكود

انت بدأت الكود بـ  If IsNull(Me.cbAproved) Then

وبعد كده عاوزة يجلب البيانات من App1 = Me.cbEmpNo.Column(1)

ركز كده مع اللون الاحمر 

طب ايه اللى جاب القلعة جمب البحر 

Dim str As String
If IsNull(Me.cbAproved) Then
Me.App1 = ""
Me.App2 = ""
Me.App3 = ""
Me.App4 = ""
str = "Select * from QryforREP_ALL_EMP"
Me.RecordSource = str
Exit Sub
Else
App1 = Me.cbEmpNo.Column(1)
App2 = Me.cbEmpNo.Column(2)
App3 = Me.cbEmpNo.Column(3)
App4 = Me.cbEmpNo.Column(4)
str = "Select * from QryforREP_ALL_EMP where [Emp_No]=" & Me.cbAproved.Column(0)
Me.RecordSource = str
End If

 

الكود الصحيح يكون كالاتى ... وياريت نركز شوية واحنا شغالين ماشى 

Dim str1 As String
    If IsNull(Me.cbAproved) Then
        Me.App1 = ""
        Me.App2 = ""
        Me.App3 = ""
        Me.App4 = ""
        str1 = "Select * from QQQQ"
        Me.RecordSource = str1
    Exit Sub
    Else
        App1 = Me.cbAproved.Column(1)
        App2 = Me.cbAproved.Column(2)
        App3 = Me.cbAproved.Column(3)
        App4 = Me.cbAproved.Column(4)
        str1 = "Select * from QQQQ where [Emp_No]=" & Me.cbAproved.Column(0)
        Me.RecordSource = str1
    End If

وهذا ملفك بعد التعديل 

 

test1001 -Update.accdb

[عمر ضاحى]

4 ساعات مضت, ابو جودي said:

طيب مبدئيا كده ركز فى الكود

انت بدأت الكود بـ  If IsNull(Me.cbAproved) Then

وبعد كده عاوزة يجلب البيانات من App1 = Me.cbEmpNo.Column(1)

ركز كده مع اللون الاحمر 

طب ايه اللى جاب القلعة جمب البحر 

Dim str As String
If IsNull(Me.cbAproved) Then
Me.App1 = ""
Me.App2 = ""
Me.App3 = ""
Me.App4 = ""
str = "Select * from QryforREP_ALL_EMP"
Me.RecordSource = str
Exit Sub
Else
App1 = Me.cbEmpNo.Column(1)
App2 = Me.cbEmpNo.Column(2)
App3 = Me.cbEmpNo.Column(3)
App4 = Me.cbEmpNo.Column(4)
str = "Select * from QryforREP_ALL_EMP where [Emp_No]=" & Me.cbAproved.Column(0)
Me.RecordSource = str
End If

 

الكود الصحيح يكون كالاتى ... وياريت نركز شوية واحنا شغالين ماشى 

Dim str1 As String
    If IsNull(Me.cbAproved) Then
        Me.App1 = ""
        Me.App2 = ""
        Me.App3 = ""
        Me.App4 = ""
        str1 = "Select * from QQQQ"
        Me.RecordSource = str1
    Exit Sub
    Else
        App1 = Me.cbAproved.Column(1)
        App2 = Me.cbAproved.Column(2)
        App3 = Me.cbAproved.Column(3)
        App4 = Me.cbAproved.Column(4)
        str1 = "Select * from QQQQ where [Emp_No]=" & Me.cbAproved.Column(0)
        Me.RecordSource = str1
    End If

وهذا ملفك بعد التعديل 

 

test1001 -Update.accdb 720 kB · 3 downloads

فعلا ما اخذت بالى من هذا الخطأ 😞

الف الف شكر وجعله فى ميزان حسناتك 

 

[ابو جودي]

بتحصل معايا هههههههه

 

[Eng.Qassim]

فعلا لم انتبه الى الفرق بين الاثنين

عاشت ايدك @ابو جودي