[حل شده] نمایش پیغام

[میثم مقدم نیا]

سلام
در فایلی که پیوست کردم وقتی کلید فرم را میزم کادری با ۵ تکست باکس باز میشه که وقتی کلید ثبت را میزنم در صورت خالی بودن هر یک از تکست باکس ها باید پیغامی مبنی به کامل نمودن جاهای خالی بدهد ولی این پیغام تنها زمانی نمایش داده میشود که ۴ تا تکست باکس ها اولی را کامل کرده باشیم و فقط آخری مانده باشد پیغام میاد
یک چیز دیگر چطور میتونم معلوم کنم که پیغام خالی بودن تکس باکس مربوط به کدام تکست باکس هست یوزر پس ورود هم a و a هستش
ممنون میشم اگه با یک نمونه راهنمایم کنید

[rasools13]

با سلام
از کد های ذیل استفاده کنید
در صورت خالی بودن تکست باکس رنگ آن تغییر میکند و با یک پیغام به کاربر اطلاع میدهد
.
رویداد دکمه ثبت :
.

Private Sub CommandButton1_Click()
    If CheckForm = False Then
       MsgBox "لطفا موارد مشخص شده را تکميل نماييد", vbInformation
       Exit Sub
    Else
        num = Application.WorksheetFunction.CountA(Range("a:a")) + 1
        Sheets("sheet1").Cells(num, 1).Value = TextBox1.Value
        Sheets("sheet1").Cells(num, 2).Value = TextBox2.Value
        Sheets("sheet1").Cells(num, 3).Value = TextBox3.Value
        Sheets("sheet1").Cells(num, 4).Value = TextBox4.Value
        Sheets("sheet1").Cells(num, 5).Value = TextBox5.Value
        MsgBox "اطلاعات با موفقيت ثبت شد", vbInformation
        TextBox1.Value = ""
        TextBox2.Value = ""
        TextBox3.Value = ""
        TextBox4.Value = ""
        TextBox5.Value = ""
    End If
End Sub 

.
این هم کد مربوط به رویداد CheckForm
.

Public Function CheckForm() As Boolean
    Dim chk As Integer
    chk = 0
    If Me.TextBox1.Text = Empty Then
        Me.TextBox1.BackColor = RGB(255, 0, 0)
        chk = 1
    Else
        Me.TextBox1.BackColor = RGB(255, 255, 255)
    End If
    
    If Me.TextBox2.Text = Empty Then
        Me.TextBox2.BackColor = RGB(255, 0, 0)
        chk = 1
    Else
        Me.TextBox2.BackColor = RGB(255, 255, 255)
    End If
    
    If Me.TextBox3.Text = Empty Then
        Me.TextBox3.BackColor = RGB(255, 0, 0)
        chk = 1
    Else
        Me.TextBox3.BackColor = RGB(255, 255, 255)
    End If
    
    If Me.TextBox4.Text = Empty Then
        Me.TextBox4.BackColor = RGB(255, 0, 0)
        chk = 1
    Else
        Me.TextBox4.BackColor = RGB(255, 255, 255)
    End If
    
    If Me.TextBox5.Text = Empty Then
        Me.TextBox5.BackColor = RGB(255, 0, 0)
        chk = 1
    Else
        Me.TextBox5.BackColor = RGB(255, 255, 255)
    End If
    
    If chk = 0 Then
     CheckForm = True
    Else
     CheckForm = False
    End If
End Function 

[میثم مقدم نیا]

با سلام مجدد
آقا رسول ممنون از راهنمای بسیار زیباتون مشکل حل شد
باسپاس

[میثم مقدم نیا]

سلام آقا رسول من با یه مشکلی در وارد کردن تاریخ روبرو شدم من محدوده تاریخ را به ۱۰ عدد محدود کردم ولی اکه تعداد اعداد وارد شده کمتر از حد مجاز باشن میخوام پیام خطا بده

[rasools13]

سلام آقا رسول من با یه مشکلی در وارد کردن تاریخ روبرو شدم من محدوده تاریخ را به ۱۰ عدد محدود کردم ولی اکه تعداد اعداد وارد شده کمتر از حد مجاز باشن میخوام پیام خطا بده

سلام در رویداد checkform
قسمت مربوط به تکست باکس تاریخ رو بصورت ذیل بنویسید

If Len(Me.TextBox5.Text) < 8 Then
        Me.TextBox5.BackColor = RGB(255, 0, 0)  
chk = 1
    Else
        Me.TextBox5.BackColor = RGB(255, 255, 255)
    End If 

[میثم مقدم نیا]

سلام در رویداد checkform
قسمت مربوط به تکست باکس تاریخ رو بصورت ذیل بنویسید

If Len(Me.TextBox5.Text) < 8 Then
        Me.TextBox5.BackColor = RGB(255, 0, 0)  
chk = 1
    Else
        Me.TextBox5.BackColor = RGB(255, 255, 255)
    End If 

سلام مجدد ممنون بابت راهنمایی زیباتون مشکل حل شد

[rasools13]

سلام مجدد ممنون بابت راهنمایی زیباتون مشکل حل شد

سلام
خواهش میکنم لطفا سوال رو حل شده اعلام کنید یعنی سوال رو ببندید

[میثم مقدم نیا]

سلام
خواهش میکنم لطفا سوال رو حل شده اعلام کنید یعنی سوال رو ببندید

با سلام مجدد آقا رسول
از کجا اعلام کنم یا سوال را ببندم

[rasools13]

اولین پستی که گذاشتین.. اگر اشتباه نکنم پایینش یک علامت حل شده سبز رنگ هست روی اون کلیک کنید