فرم جستجو

[m3343kh]

سلام
یک فرم دارم ک نتایج جستجو را برمی گرداند. میخواهم اگر جستجو نتیجه ای نداشت یا به عبارتی فرم خالی بود؛ فرم بسته شود (یا باز نشود) و فرم دیگری که حاوی پیغام است باز شود.
با تشکر از توجه تان.

[amirzazadeh]

سلام
یک فرم دارم ک نتایج جستجو را برمی گرداند. میخواهم اگر جستجو نتیجه ای نداشت یا به عبارتی فرم خالی بود؛ فرم بسته شود (یا باز نشود) و فرم دیگری که حاوی پیغام است باز شود.
با تشکر از توجه تان.

سلام
فرض مي كنيم نتيجه اطلاعات شما داخل يك فرم با list view يا list box نمايش داده ميشه براي كنترل خالي بودن سطر از اين كد استفاده كنيد:


If Me.ListView1.ListItems.Count > 0 Then

docmd.openform "نام فرم مورد نظر"

Else
MsgBox "اطلاعاتي موجود نيست", vbCritical, "اعلان"
End If

[m3343kh]

ممنون از توجهتون
متوجه نشدم.
یک مثال ارسال میکنم؛ لطفا روی فایل انجام دهید.
با تشکر

[amirzazadeh]

سلام
از اين كد استفاده كنيد:

Private Sub txtSearch_AfterUpdate()
strfilter = "code = " & Me!txtSearch
X = DCount("code", "table1", strfilter)
If X >= 1 Then
DoCmd.OpenForm "frmSearch"
Else
DoCmd.OpenForm "err"
End If
End Sub

[m3343kh]

با تشکر از شما دوست عزیز
مسئله یه کم فرق کرده. به اینصورت که جستجو درون چند فیلد انجام میشود.
فایل جدید را خدمت شما و دیگر دوستان ارسال می کنم.
باز هم از توجه و پاسختان تشکر میکنم.:قلب:

[m3343kh]

سلام دوستان
کسی راه حلی نداره؟

[amirzazadeh]

با تشکر از شما دوست عزیز
مسئله یه کم فرق کرده. به اینصورت که جستجو درون چند فیلد انجام میشود.
فایل جدید را خدمت شما و دیگر دوستان ارسال می کنم.
باز هم از توجه و پاسختان تشکر میکنم.:قلب:

سلام
به جاي كد قبلي از اين كد استفاده كنيد:


Private Sub txtSearch_AfterUpdate()
DoCmd.OpenQuery "qry"
x = DCount("*", "qry")
DoCmd.Close acQuery, "qry"
If x >= 1 Then
DoCmd.OpenForm "frmSearch"
Else
DoCmd.OpenForm "err"
End If
End Sub