اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابو ياسين المشولي

الخبراء
  • Content Count

    1,652
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    24

ابو ياسين المشولي last won the day on يناير 28 2019

ابو ياسين المشولي had the most liked content!

السمعه بالموقع

1,020 Excellent

عن العضو ابو ياسين المشولي

  • الإسم الفعلي
    محمد ياسين المشولي
  • تاريخ الميلاد 05 أغس, 1982

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    طالب علم
  • بلد الإقامة
    السعودية
  • الإهتمامات
    اكسس

اخر الزوار

2,291 زياره للملف الشخصي
  1. وانا ارشح لكم موقع مملكة الرسايل هو الافضل وهذا الرابط http://www.kingsms.ws/Members/
  2. راجع هنا وهنا هنا وهنا المنتدى ملئي بالامثله وهذا للمعلم القدير استاذي الجليل ابو خليل ابو خليل
  3. للاسف والله ليس لدي مجاني كلها مدفوعه مثل موقع مملكه الرسائل وغيرها
  4. جرب هذا Dim R As String Dim result As String Dim myUrl As String R = ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1603) & ChrW(1605) Dim winHttpReq As Object Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1") myUrl = "http://www.nsms.ps/api.php?comm=sendsms&user=truemark&pass=truemark2019&to=970595099847&message=r&sender=TrueMark" winHttpReq.Open "GET", myUrl, False winHttpReq.send result = winHttpReq.responseText
  5. اخي romeo4 ممكن ترسل كلمه المرور واسم المستخدم على الخاص وابشر بالحل باذن الله لانك انت الان عامل الكود بالافتراضي
  6. اخي أحمد الفلاحجى الملف شغال 100% ولكن لا اعلم وكيف وما هي مشكله اخي ابو زاهر
  7. حمل الملف عدلته في نفس المشاركة اما بالنسبة لحقل bb فهو في تذليل التقرير وجعلته مخفي
  8. مشاركة مع اخي احمد اتمنى يكون المطلوب حسب مافهمت وبطريقه مختلفه عن اخي احمد مجموع_كل_115_صفحه.accdb
  9. اظن هذا حسب طلبك If Not IsNumeric(Tel) Then MsgBox " فـضـلاً أدخـل أرقـام فـقـط ولـيـس حـر و ف ", vbInformation, " : خـطـاء " Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' Me.Tel.Undo ElseIf Len(Tel) <> 11 Then MsgBox " فـضـلاً أدخـل احد عـشـر أرقـام فـقـط ولـيـس اقـل او اكـثـر ", vbExclamation, " : خـطـاء " Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' Me.Tel.Undo End If ex.mdb
  10. جرب هذا If Not IsNumeric(Tel) Then MsgBox " فـضـلاً أدخـل أرقـام فـقـط ولـيـس حـر و ف ", vbInformation, " : خـطـاء " ElseIf Len(Tel) <> 10Then MsgBox " فـضـلاً أدخـل عـشـرة أرقـام فـقـط ولـيـس اقـل او اكـثـر ", vbExclamation, " : خـطـاء " 'Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' 'Cancel = True 'Me.Tel.Undo End If جرب هذا If Not IsNumeric(Tel) Then MsgBox " فـضـلاً أدخـل أرقـام فـقـط ولـيـس حـر و ف ", vbInformation, " : خـطـاء " ElseIf Len(Tel) <> 10Then MsgBox " فـضـلاً أدخـل عـشـرة أرقـام فـقـط ولـيـس اقـل او اكـثـر ", vbExclamation, " : خـطـاء " 'Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' 'Cancel = True 'Me.Tel.Undo End If
  11. وهذا بالكود قبل الحدث بدون تحقق من الصحه If Not IsNumeric(Tel) Then MsgBox " فـضـلاً أدخـل أرقـام فـقـط ولـيـس حـر و ف ", vbInformation, " : خـطـاء " ElseIf Len(Tel) <> 11 Then MsgBox " فـضـلاً أدخـل احـدعـشـر أرقـام فـقـط ولـيـس اقـل او اكـثـر ", vbExclamation, " : خـطـاء " Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' Cancel = True Me.Tel.Undo End If
×
×
  • اضف...