سوال: نمايش پيغام در هنگام خالي بودن گزارش [بایگانی]

MZOSAN

دوشنبه 21 اردیبهشت 1388, 06:26 صبح

يه گزارش دارم كه اگه شماره شناسنامه طرف رو در تكس باكس وارد كني مشخصات طرف رو ميده ولي حالا چه دستوري در رخداد كليك سرچ بنويسم كه اگه هيشكي رو پيدا نكرد يه پيغام بده يعني اگه كسي با اين شماره شناسنامه پيدا نشد پيغام بده كه هيچ شخصي يافت نشدممنون ميشم هر چه زودتر راهنماييم كنيد

rostami

دوشنبه 21 اردیبهشت 1388, 14:37 عصر

شما با یه کنترل EOF میتونید براحتی به هدفتون برسین:

RS.Open "Select * from TBL1 Where F1= " & text1.Text & " ", CN
If RS.EOF = False Then
.
.
Else
FMSG.fmsgbox "موردی یافت نشد", vbOKOnly + vbCritical
End If