برو به رکورد خاصی [بایگانی]

c30tehran

سه شنبه 18 تیر 1398, 08:01 صبح

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

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=1xopFBie9LGa9hRjZN_-MisOfT5RdLjis

ariayekta

پنج شنبه 20 تیر 1398, 00:04 صبح

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

c30tehran

پنج شنبه 20 تیر 1398, 11:41 صبح

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

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

150452

دانلود فایل

https://drive.google.com/file/d/14kS7povyRzINJWQOHhtHaMWGBnoU_4tp/view?usp=sharing

ariayekta

پنج شنبه 20 تیر 1398, 16:22 عصر

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

c30tehran

شنبه 22 تیر 1398, 13:00 عصر

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

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