نمایش نتایج 1 تا 7 از 7

نام تاپیک: فرم جستجو

  1. #1
    کاربر دائمی
    تاریخ عضویت
    شهریور 1394
    محل زندگی
    البرز
    سن
    51
    پست
    148

    فرم جستجو

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

  2. #2
    مدیر بخش آواتار amirzazadeh
    تاریخ عضویت
    مهر 1386
    محل زندگی
    تبريز
    پست
    1,947

    نقل قول: فرم جستجو

    نقل قول نوشته شده توسط m3343kh مشاهده تاپیک
    سلام
    یک فرم دارم ک نتایج جستجو را برمی گرداند. میخواهم اگر جستجو نتیجه ای نداشت یا به عبارتی فرم خالی بود؛ فرم بسته شود (یا باز نشود) و فرم دیگری که حاوی پیغام است باز شود.
    با تشکر از توجه تان.
    سلام
    فرض مي كنيم نتيجه اطلاعات شما داخل يك فرم با list view يا list box نمايش داده ميشه براي كنترل خالي بودن سطر از اين كد استفاده كنيد:

    If   Me.ListView1.ListItems.Count > 0 Then

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

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

    DON'T START;OTHERWISE DON'T STOP
    .................................................
    قوانين سايت

  3. #3
    کاربر دائمی
    تاریخ عضویت
    شهریور 1394
    محل زندگی
    البرز
    سن
    51
    پست
    148

    نقل قول: فرم جستجو

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

  4. #4
    مدیر بخش آواتار amirzazadeh
    تاریخ عضویت
    مهر 1386
    محل زندگی
    تبريز
    پست
    1,947

    نقل قول: فرم جستجو

    سلام
    از اين كد استفاده كنيد:
    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
    فایل های ضمیمه فایل های ضمیمه

    DON'T START;OTHERWISE DON'T STOP
    .................................................
    قوانين سايت

  5. #5
    کاربر دائمی
    تاریخ عضویت
    شهریور 1394
    محل زندگی
    البرز
    سن
    51
    پست
    148

    نقل قول: فرم جستجو

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

  6. #6
    کاربر دائمی
    تاریخ عضویت
    شهریور 1394
    محل زندگی
    البرز
    سن
    51
    پست
    148

    نقل قول: فرم جستجو

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

  7. #7
    مدیر بخش آواتار amirzazadeh
    تاریخ عضویت
    مهر 1386
    محل زندگی
    تبريز
    پست
    1,947

    نقل قول: فرم جستجو

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

    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


    DON'T START;OTHERWISE DON'T STOP
    .................................................
    قوانين سايت

تاپیک های مشابه

  1. سوال: فارسی کردن فرم جستجو
    نوشته شده توسط hamedMohammad در بخش Access
    پاسخ: 7
    آخرین پست: دوشنبه 17 فروردین 1388, 14:56 عصر
  2. فرم جستجو
    نوشته شده توسط maha1363 در بخش ASP.NET Web Forms
    پاسخ: 0
    آخرین پست: چهارشنبه 01 خرداد 1387, 14:57 عصر
  3. اصلاح یک فرم جستجو
    نوشته شده توسط reza850101 در بخش Access
    پاسخ: 6
    آخرین پست: شنبه 31 شهریور 1386, 11:59 صبح
  4. فرم جستجو
    نوشته شده توسط azamkaboutari در بخش VB.NET
    پاسخ: 10
    آخرین پست: شنبه 24 شهریور 1386, 20:38 عصر
  5. فارسی کردن فرم جستجو
    نوشته شده توسط ITST-1 در بخش Access
    پاسخ: 6
    آخرین پست: سه شنبه 10 بهمن 1385, 23:06 عصر

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •