برو به رکورد خاصی

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

Private Sub cmd_goto_Click()

Dim n As String



n = InputBox("کد پرينتر را وارد کنيد", "فولاد حاميران")

If StrPtr(n) = 0 Then

MsgBox "کنسل شد"

Else

If Len(n) = 0 Then

MsgBox "ديتايي وارد نشده است"

Else



If IsNull(DLookup("[Printer_ID]", "[Printer_Brand]", "[Printer_ID]=" & n)) Then

MsgBox "نتيجه جستجو خالي است"

Call Frm_Printers_Main.cmd_goto_Click

Else



Forms!Frm_Printers_Main.Form.Recordset.FindFirst "[Printer_ID]=" & n

End If

End If

End If

End Sub

خطا روی این کد

 If IsNull(DLookup("[Printer_ID]", "[Printer_Brand]", "[Printer_ID]=" & n)) Then

خود اکسس یک برو رکورد دارد که رکورد فعلی تا آخرین رکورد را نشان می دهد و با تایپ به رکورد مربوط می برد (مثال textbox) (اگر به صورت combo box باشد بهتره)

دانلود پروژه

https://drive.google.com/open?id=1xo...-MisOfT5RdLjis

سلام...........

درست شد دستت درد نکنه خیلی خوب شد

فقط مثل حذف کمبو باکس و دکمه اضافه انجام میدهم موقع باز کردن ارور میده

ضمیمه 150452

دانلود فایل

https://drive.google.com/file/d/14kS...ew?usp=sharing

سلام
تو یک گزارش یه نقطه گذاشته بودی . تو یه فرم یه تکست باکس حذف شده رو کدی که اون رو نال کنه حذف نکردی

با سپاس
چطور میشه کمبوباکس ستون اضافه کنم یک مقدار ویرایش کردم ولی ستون چهارم رو نشون نمی ده

https://drive.google.com/open?id=1Ca...XcqO7PLAT6v07z