error

[saeed1234n]

سلام به دوستان
هنگام اجرای کمبو با خطای فایل ضمیمه روبرو می شوم
لطفا راهنمایی بفرمایید .

[Abbas Amiri]

کدهای مندرج در Combo1_AfterUpdate را مطابق زیر تغییر دهید


Private Sub Combo1_AfterUpdate()
Dim strfilter As String
If Nz(Combo1, "") <> "" Then
strfilter = "kode_kala='" & Combo1 & "'"

End If
Me.subform_sabte_kala.Form.Filter = "kode_kala='" & Combo1 & "'"
Me.subform_sabte_kala.Form.FilterOn = True

End Sub

[saeed1234n]

با سلام
جناب امیری برای کمبوی name_kala را همین اطلاعاتی که شما فرمودید وارد کردم ولی هیچ داده ای را نمی آورد

[Abbas Amiri]

این هم برای اون کمبو


Private Sub Combo3_AfterUpdate()
Dim strfilter As String
If Nz(Combo3, "") <> "" Then
strfilter = "kode_kala='" & Combo3 & "'"

End If
Me.subform_sabte_kala.Form.Filter = strfilter
Me.subform_sabte_kala.Form.FilterOn = True
End Sub

[salambeshoma]

با سلام خدمت جناب امیری . با تشکر از صبر و دلسوزی شما

[saeed1234n]

با عرض سلام مجدد
جناب امیری در فرم ثبت مصرف کننده جدید کمبو های با وجود کد زیر عمل نمی کنند .
Private Sub Combo1_AfterUpdate()
Dim strfilter As String
If Nz(Combo1, " ") <> " " Then
strfilter = "code_user=' " & Combo1 & " ' "
End If
Me.subform_sabte_new_use.Form.Filter = strfilter
Me.subform_sabte_new_use.Form.FilterOn = True
End Sub


Private Sub Combo3_AfterUpdate()
Dim strfilter As String
If Nz(Combo3, " ") <> " " Then
strfilter = "name_user= ' " & Combo3 & " ' "

End If
Me.subform_sabte_new_use.Form.Filter = strfilter
Me.subform_sabte_new_use.Form.FilterOn = True
End Sub

[Abbas Amiri]

فایل شما با اصلاحات فوق

[saeed1234n]

با سلام
جناب امیری این فایل ضمیمه با فایل قبلی فرق دارد
اگر لطف بفرمایید که با مشاهده فایل ضمیمه جدید بفرمایید ایراد کارم کجاست .
خیلی متشکرم.

[Abbas Amiri]

دقت کنید در عبارات سیکیوال Space اضافی وجود نداشته باشد عبارت موجود در فایل خودتان را با زیر مقایسه کنید


strfilter = "code_user='" & Combo1 & "'"

[salambeshoma]

با سلام در عکس پیوستی چگونه می توان از فرم یا ساب فرم مورد نظر در فایل فوق Bank1 فقط از یک رکورد مورد نظر مثل عکس مذکور ، که با کلیک روی ردیف آن رکورد پرینت گرفت88953

[saeed1234n]

استاد امیری علیرغم تمام آموزشهای شما همچنان کمبو ی نام مصرف کننده عمل نمی کند
ممنوم می شوم که عنایت فرمایید .
علت را نیز توضیح دهید .

[saeed1234n]

دوستان عزیز همچنان منتظر یاری سبزتان هستم .

[Abbas Amiri]

دوست عزیز نکته ای که شما توجه نمی کنید اینست که مقداری که کمبو بر میگرداند به Bound Column آن بستگی دارد در عبارت Row Source کمبو شما name_user دومین فیلد است پس یا Bound Column را مقدار 2 قراردهید ویا عبارت
strfilter = "name_user='" & Combo33 & "'" را به
strfilter = "code_user='" & Combo33 & "'" تبدیل کنید