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

وانا ارشح لكم موقع مملكة الرسايل هو الافضل وهذا الرابط http://www.kingsms.ws/Members/

راجع هنا وهنا هنا وهنا المنتدى ملئي بالامثله وهذا للمعلم القدير استاذي الجليل ابو خليل ابو خليل

للاسف والله ليس لدي مجاني كلها مدفوعه مثل موقع مملكه الرسائل وغيرها

جرب هذا 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

اخي romeo4 ممكن ترسل كلمه المرور واسم المستخدم على الخاص وابشر بالحل باذن الله لانك انت الان عامل الكود بالافتراضي

بالتوفيق اهم شي انه نجح وهو الاهم

اخي أحمد الفلاحجى الملف شغال 100% ولكن لا اعلم وكيف وما هي مشكله اخي ابو زاهر

حمل الملف عدلته في نفس المشاركة اما بالنسبة لحقل bb فهو في تذليل التقرير وجعلته مخفي

مشاركة مع اخي احمد اتمنى يكون المطلوب حسب مافهمت وبطريقه مختلفه عن اخي احمد مجموع_كل_115_صفحه.accdb

بالتوفيق اخي احمد

اظن هذا حسب طلبك 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

جرب هذا 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

وهذا بالكود قبل الحدث بدون تحقق من الصحه If Not IsNumeric(Tel) Then MsgBox " فـضـلاً أدخـل أرقـام فـقـط ولـيـس حـر و ف ", vbInformation, " : خـطـاء " ElseIf Len(Tel) <> 11 Then MsgBox " فـضـلاً أدخـل احـدعـشـر أرقـام فـقـط ولـيـس اقـل او اكـثـر ", vbExclamation, " : خـطـاء " Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' Cancel = True Me.Tel.Undo End If

بعد اذن اخي محمد ابوعبد الله يقضل =DSum(" [الوارد] ";"q_rased";"fatoradate < [fatoradate] ") و =DSum(" [المنصرف] ";"q_rased";"fatoradate < [fatoradate] ") لانك انت بتبحث في هذا التاريخ فلا تقول له اقل او يساوي بل سوف يكون اقل مع خالص تحياتي

انا جربته فهو بالفعل يعمل ضغط واصلاح

بعد اذن اخي sandanet بعد الفحص والتمعن وجدت التالي هذاة الوحده النمطيه Option Explicit Private Const TIMEOUT = 60 Public Sub Restart(Optional Compact As Boolean = True) Dim scriptpath As String scriptpath = Application.CurrentProject.FullName & ".dbrestart.bat" If Dir(scriptpath, vbNormal) <> "" Then If DateAdd("s", TIMEOUT * 2, FileDateTime(scriptpath)) < Date Then Kill scriptpath Else Application.Quit acQuitSaveAll Exit Sub End If End If Dim s As String s = s & "SETLOCAL ENABLEDELAYEDEXPANSION" & vbCrLf s = s & "SET /a counter=0" & vbCrLf s = s & ":CHECKLOCKFILE" & vbCrLf s = s & "ping 0.0.0.255 -n 1 -w 100 > nul" & vbCrLf s = s & "SET /a counter+=1" & vbCrLf s = s & "IF ""!counter!""==""" & TIMEOUT & """ GOTO CLEANUP" & vbCrLf s = s & "IF EXIST ""%~f2.%4"" GOTO CHECKLOCKFILE" & vbCrLf If Compact Then s = s & """%~f1"" ""%~f2.%3"" /compact" & vbCrLf End If s = s & "start "" "" ""%~f2.%3""" & vbCrLf s = s & ":CLEANUP" & vbCrLf s = s & "del %0" Dim intFile As Integer intFile = FreeFile() Open scriptpath For Output As #intFile Print #intFile, s Close #intFile Dim dbname As String, ext As String, lockext As String, accesspath As String Dim idx As Integer accesspath = SysCmd(acSysCmdAccessDir) & "msaccess.exe" For idx = Len(CurrentProject.FullName) To 1 Step -1 If Mid(CurrentProject.FullName, idx, 1) = "." Then Exit For Next idx dbname = left(CurrentProject.FullName, idx - 1) ext = Mid(CurrentProject.FullName, idx + 1) If left(ext, 2) = "ac" Then lockext = "laccdb" Else lockext = "ldb" End If s = """" & scriptpath & """ """ & accesspath & """ """ & dbname & """ " & ext & " " & lockext Shell s, vbHide Application.Quit acQuitSaveAll End Sub وهذا امر تشغيلها Utilities.Restart اما بالنسبة لهذا فهو فقط يعمل علامة صح في قاعده البيانات اللي هي غمل ضغط واصلاح عند الخروج Application.SetOption "Auto compact", True اي كلما عملت خروج فهو يعمل ضغط واصلاح

لا شكر على واجب اخي sandanet الله يوفق الجميع

الف الف الف مبروك والله انهم يستاهولون وبجدارة اتمنى لهم التوفيق والنجاح وانا سعيد جدا بهذا الخبر لهم باع كثير في هذا المنتدى واشكر ادارة المنتدى والقائيمين عليه والله يجزي الجميع الحير واكرر شكري وامنياتي للجميع الى الامام هذا المنتدى ابرز ناس كثيرة وعلم ناس كثير قالشكر لله ثم لهذا الصرخ العظيم اخوكم في الله ابو ياسين وارجو المعذرة مشاغل الدنيا تشغل عن المتابابعة

فرز تنازلي Prog3334.mdb

للفرز التنازلي في حدث عند الفتح Reports("ReQ_Ameera2").GroupLevel(0).SortOrder = True

بالتوفيق والشكر موصول للاخ أبو عبدالله الحلوانى

جرب هذا التقارير.mdb

مشاء الله استاذ أبو إبراهيم الغامدي ابداع في ابداع ولا ننسا الاستاذ والمعلم جعفر jjafferr ابدعاتكم تعطينا كاعضاء بالمنتدى الحماس نحو الافضل ربنا يوفقكم ويسدد خطاكم

في حدث عند التنسيق If [رقم الفاتورة] Mod 10 = 0 Then Me.Detail.ForceNewPage = 2 Else Me.Detail.ForceNewPage = 0 End If Me.PgBrk.Visible = (Me.[رقم الفاتورة] Mod 10 = 0)

ممتاز اخي SEMO.Pa3x بارك الله فيك وجعله في ميزان حسناتك