نمایش نتایج: از شماره 1 تا 2 , از مجموع 2

موضوع: مسیج باکس های عذاب آور

  1. #1


    آخرین بازدید
    2014/11/25
    تاریخ عضویت
    June 2012
    نوشته ها
    29
    امتیاز
    3
    سپاس
    3
    سپاس شده
    3 در 2 پست
    تعیین سطح نشده است

    مسیج باکس های عذاب آور

    [/align]یک نمونه فایل آماده کردم فقط جهت فهمیدن کنترل صحیح پیغامها یا همان مسیج باکس ها و لینک دانلودشم موجود است در این فایل نمونه من برای ثبت مرخصی سه گروه از کارکنان شرکت دارای سمت (کارمند - پیمانکار - نگهبان )3 آپشن باتن روی فرم خودم قرار دادم و سه آپشن باتن دیگه هم به ترتیب برای مرخصی استحقاقی , مرخصی استعلاجی و مرخصی تشویقی روی فرم قرار دادم مجموعا 6 آپشن باتن و بک باتن برای انجام ثبت مرخصی,,,,,.
    مشکل اینجاست با اینکه طی خط زیر معلوم کردم اگر هیچکدام از 3 آپشن باتن های مربوط به سمت کارمندان کلیک نشده بود پیغام "ابتدا وضعیت اعزام شونده را مشخص کنید"و اگر هیچکدام از 3 آپشن باتن های مربوط به نوع مرخصی (استحقاقی ,استعلاجی , تشویقی ) کلیک نخورده بود پیغام "نوع مرخصی را مشخص کنید" باز هم با اینکه یکی از آپشن باتن های سمت مرخصی رونده را تیک می زنیم پیغام اول تکرار می شود و اعصاب ما خورد تر :@ لطفا این کد ها رو ببینید :

    http://persiandrive.com/973374
    لینک فایل

    کد :

    If OptionButton4.Value = False Or OptionButton5.Value = False Or OptionButton6.Value = False Then
    MsgBox "ÇÈÊÏÇ ÓãÊ ÝÑÏ ÑÇ ãÔÎÕ ˜äíÏ "
    Exit Sub
    End If
    '**********************
    If OptionButton1.Value = False Or OptionButton2.Value = False Or OptionButton3.Value = False Then
    MsgBox "äæÚ ãÑÎÕí ÑÇ ãÔÎÕ ˜äíÏ "
    Exit Sub
    End If

    لطفا راه مناسب در جاهایی که انتخابها و کنترلهای زیادی را باید انجام بدیم را بفرمایید
    من از دستور elseif هم بصورت پایین استفاده کردم جواب نداد "
    if .......then
    دستورات
    elseif.......then
    دستورات
    elseif.......then
    دستورات
    else
    دستورات
    لطفا یه راه استانداد و قاطع برای فرار از این حلقه های درد سر ساز مسیج باکس ها اعلام بفرمایید. با سپاس
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    362
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام

    RE: مسیج باکس های عذاب آور

    با سلام دوست عزيز در كد بالا اگر بجاي همه or ها AND بذاري مشكلت حل ميشه
    در ضمن اگر تعداد آپشن باتن ها زياد باشه مثلا بيشتر از 10 تا اون موقع بايد 10تا شرط بذاري
    كه با كد كوتاه زير هم مشكلت حل ميشه
    کد PHP:
    Private Sub CommandButton1_Click()

        
    Select Case Frame1.ActiveControl
            
       
    Case 0
        MsgBox 
    ("لطفا يكي از آيتمها را انتخاب كنيد")
            Case Else
        
    End Select
    End Sub 


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. تهیه لیست از پوشه ها و فایل های یک مسیر
    توسط emran در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2017/03/23, 13:36
  2. پاسخ ها: 3
    آخرين نوشته: 2015/11/16, 22:32
  3. سر رسید در اکسل
    توسط daghyad در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 14
    آخرين نوشته: 2015/01/22, 13:07
  4. مسیر فایل
    توسط amin61b در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2011/05/31, 10:59
  5. سیاست مایکروسافت
    توسط excel در انجمن microsoft office
    پاسخ ها: 0
    آخرين نوشته: 2010/03/02, 12:07

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

مسيج عذاب اور

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد