PDA

View Full Version : DLookup



smderfan
پنج شنبه 22 فروردین 1387, 22:38 عصر
سلام
از فرمان DLookup بصورت زیر در رویداد Before Update استفاده کرده ام

If DLookup("Code", "Qryhesabcol", "Code = Text125") >= 1 Then
MsgBox "Find Code ? "
Cancel = -1
End If
که پس از اجرا بدرستی کار می کنه و مشکلی نداره. فقط می خوام اون رکوردی که پیدا می کنه مقدار فیلد Name اون رو هم نمایش بده. آیا این امکان با این دستور امکان پذیره است؟ به چه صورت؟

مهدی قربانی
جمعه 23 فروردین 1387, 01:06 صبح
سلام
اینطوری بنویس :

If DLookup("Code", "Qryhesabcol", "Code = Text125") >= 1 Then
MsgBox DLookup("name", "Qryhesabcol", "Code = Text125")
Cancel = -1
End If
End Sub

shaghaghi
شنبه 24 فروردین 1387, 10:38 صبح
If nz(DLookup("Code", "Qryhesabcol", "Code ='" & Text125 & "'")) <>VbNullString Then
("'" & MsgBox DLookup("name", "Qryhesabcol", "Code ='" & Text125
Cancel = -1
End If