c30tehran
سه شنبه 18 تیر 1398, 09: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
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