Hussein Taso

يبدو انه لا احد في المنتدي او انه مهجور

أبشر تقرير و بحث وتعديل وعدد نتائج البحث HaNcOcK.xls

السلام عليكم ورحمة الله وبركاته وبها نبدأ private Sub CommandButton1_Click() Sheets("data").Cells(1, 2) = TextBox1.Value Sheets("data").Cells(2, 2) = TextBox2.Value If Sheets("data").Cells(1, 2) = Sheets("data").Cells(1, 3) And Sheets("data").Cells(2, 2) = Sheets("data").Cells(2, 3) Then MsgBox "سلام الله عليكم ", vbInformation + vbMsgBoxRight, "بسم الله الرحمن الرحيم .... مرحبا بكم" End Else TextBox1.Value = "" TextBox2.Value = "" TextBox1.SetFocus MsgBox "كلمة المرور أو إسم المستخدم غير صحيح. عفوا. حاول", vbCritical + vbMsgBoxRight, "عفوا....إدخال خاطئ" End If End Sub

السلام عليكم ورحمة الله وبركاته أريد برنامج يساعدني في الإدارة مواقف السيارات Parking 🅿