عبدالفتاح حسن

تفضل Test1.rar

الأخت الفاضلة مرفق المثال بعد التعديل ولكن هناك ملحوظة هامة جدا يجب مراعاتها وهى انك استخدمت اكواد الجافا سكريبت للتحقق من اسم الحساب وكلمة المرور وهذا غير منطقى لأن اكواد الجافا يمكن عرضها من خلال المتصفح وبالتالى فهى غير مؤمنة غير ان الجافا سكريبت غير مؤهلة …

تفضل Private Sub Command1_Click() ' Text1.Text = ReplaceAll(Text2.Text, Text3.Text, "") Dim MaxLen As Integer Dim RowNo As Integer If Trim(Me.Text2) = "" Then Exit Sub Me.Text2 = Me.Text2 & " " tmparr = Split(Me.Text2, " ") For n = 0 To UBound(tmparr) If Len(t…

مشكور أخى وجارى التحميل والتجربة

تفضل Private Sub Rs_Time2_KeyUp(KeyCode As Integer, Shift As Integer) Dim Def As Double Def = (Me.Rs_Time2.RHoure + Rs_Time2.RMin / 60) - (Me.Rs_Time1.RHoure + Rs_Time1.RMin / 60) If Def > 1 Then MsgBox "Wrong Time", vbInformation Me.Rs_Time2.RHoure = Me.Rs_Ti…

تفضل mmmmm.rar

الأخ الفاضل شكرا على هذا المجهود الرائع و لكن ... هناك ملحوظة مهمة جدا وهى انك لو اضفت سجل وكان الترقيم التلقائى له 20 ثم قمت بحذف هذا السجل واضافة سجل اخر فيصبح ترقيمه 20 ايضا والسبب فى ذلك ان دالة الترقيم تضيف 1 على اكبر رقم فى حقل الترقيم فإذا قمت بحذف السج…

اخى الكريم اسف للتأخير تفضل المطلوب 2.rar

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين لتلوين الصف الأول باللون الحمر xlApp.Range("1:1").Interior.Color = vbRed لمعرفة لون الخط فى الخلية A1 MsgBox xlApp.Cells(1, 1).Font.ColorIndex ولا شكر على واجب ولكن ما معنى اللانمطيين

تفضل 2.rar

تفضل If Len(Me.Text1) > 0 Then Me.Text1 = UCase(Left(Me.Text1, 1)) & Right(Me.Text1, Len(Me.Text1) - 1)

لا يمكن المساعدة من خلال ملف exe يمكنك ارفاق مثال مبسط يحوى المشكلة بدلا من ارفاق المشروع كامل

الأخ الفاضل يرجى ارفاق مثال حتى تتضح المشكلة اكثر ويتم التعديل عليه

وهذه طريقة اخرى Mostafa.rar

تفضل r = Me.Text1 r = Left(r, 2) & 6 & Right(r, Len(r) - 3) r = Left(r, 7) & 2 & Right(r, Len(r) - 8) r = Left(r, 8) & 7 & Right(r, Len(r) - 9) Me.Text1 = r t = (Val(Mid(r, 9, 1)) + 2) * 7 Me.Text2 = t

الأخ الفاضل جرب تغيير اسم الحقل الى الإنجليزية واجعل الكود RS.Open "Select * From t2 Where personal_name Like '" & Trim(Text1.Text) & "'%", DB, adOpenStatic, adLockPessimistic

اخى الفاضل يرجى التوضيح اكثر ماذا تقصد بالربط اذاكنت تقصد تغير قيمة الـCheck box عند الضغط على command فإليك الكود واذا كنت تقصد غير ذلك فيجب عليك اعادة صياغة السؤال بشكل مفهوم Private Sub Command1_Click() Me.Check1.Value = 1 End Sub

تفضل Program.rar

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then SendKeys "{tab}" End Sub

مشكور اخى وفقك الله للمزيد