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

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

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

درضمن در فایل پیوست شده رمز عبور تعیین شده عدد 1 هستش

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

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

[rasools13]

با سلام
رویداد مربوط به دکمه تایید رو به صورت ذیل اصلاح کنید
.

Private Sub CommandButton1_Click()
    If CheckForm = False Then
        MsgBox "لطفاً موارد مشخص شده با رنگ سبز را تکميل نماييد", vbInformation + vbMsgBoxRight, "خطا در ثبت اطلاعات"
       Exit Sub
    End If
    If TextBox1.Text <> Sheet1.Cells(1, 1) Then
         MsgBox "رمز عبور قبلي نادرست است", vbMsgBoxRight, "خطا در ثبت اطلاعات"
         TextBox1.SetFocus
         Exit Sub
    End If
    If TextBox2.Text <> TextBox3.Text Then
         MsgBox "رمزهاي عبور باهم مطابقت ندارند", vbMsgBoxRight, "خطا در ثبت اطلاعات"
         TextBox2.SetFocus
         Exit Sub
    End If
    Sheet1.Cells(1, 1) = TextBox2.Text
    MsgBox ".تبريک رمز عبور شما با موفقيت تغيير کرد", vbMsgBoxRight, "تغيير رمز عبور"
End Sub