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 🅿