نجوم المشاركات

السلام عليكم تواكبا مع متطلبات الواقع و المستقبل ، تم افتتاح مجموعة أقسام جديدة تختص بالبحث العلمي و علوم البيانات و من ضمنها هذا القسم ، و هو يختص بالمواضيع الخاصة بعلم الاحصاء نذكر الزوار الجدد بقواعد المشاركة فى منتدى أوفيسنا ، و من أهمها احترام حقوق الملكية الفكرية و منع نشر أي مواد أو تطبيقات دون موافقة أصحابها.

طريقة اصطياد النقطة الاولى: Private Sub Form_Error(DataErr As Integer, Response As Integer) Dim Msg, Style, Title If DataErr = 2237 Then Msg = "رجاء كتابة او اختيار مادة من القائمة" Style = vbYes Title = "اختار من القائمة فقط" MsgBox Msg, Style, Title Response = acDataErrContinue End If End Sub جعفر

استأذنك استاذ جعفر تريدي ان تختار من الاختيارات اللي في كومبوبوكس وما تريد ان تضيف شي اخر اليكي هذا في حدث نوت ان ليست للكومبوبوكس Private Sub CoreHereke_NotInList(NewData As String, Response As Integer) Response = acDataErrContinue End Sub

وعليكم السلام اهم شيء في الموضوع هو اصطياد رقم رسالة الخطأ ، ومنها نستطيع عمل ما نريد ولعمل هذا ، استعملي "حدث خطأ النموذج" ، هكذا: Private Sub Form_Error(DataErr As Integer, Response As Integer) MsgBox DataErr End Sub جعفر

إخوتي الأعزاء هناك أفكار وكودات تمر علينا ونستخدمها ، قد تكون مهمة وقد تكون صغيرة الشأن (نظن أحيانا) ، ولكنها تلزمنا في لحظة ما ، بسيطة ، معقدة، تلزم،لا تلزم وعلى جميع الأحوال .... ، يلزمها دفتر ملاحظات صغير في جيب القميص أو أجندة نستلها من المكتب لندون بها ، وهذا وذاك يجمعهما فكرة الكشكول. وهذا كشكول ... ندون به ما يمر بالخاطر ... فكرة راودتي من رد لأخي ورفيق دربي أبا خليل ونبدأ بعون الله ورعايته ... وباسمه نصول ونجول ودمتم ..................... أرجو من اخوتي المساهمة بالتعبير عن إستفادتهم من الموضوع ومشاركاته وأجزائه المتلاحقة بإذن الله . وذلك بالضغط على زر التقدير في أسفل يسار المشاركة التي يكون قد استفاد منها أو أعجبته أو إستخدم ما تحوى وشكرا للجميع تقديركم وتشجيعكم لي للمتابعة ....

السلام عليكم ورحمة الله وبركاته ***** لا تستخدم هاتفك الشخصي ، فالبرنامج سيحذف جميع الصور التي في المجلد sdcard/DCIM/Camera ***** هذا جزء رقم 1 من مشروع متكامل لتصوير الاشخاص والمستندات بإستخدام الكاميرات والماسح الضوئي (Scanner) ، والمشروع يتكون من: يعني مو بس البرامج الكبيرة تستخدم هذه التقنيات ، وإحنا بعد وهذه الاجهزة ستكون لتصوير الاشخاص والمستندات ، ان شاء الله التصوير عن طريق كاميرا هاتف اندرويد ، وتمت التجربة على هاتف اندرويد Galaxy S3 بنظام 4.4 و Huawei Mate 7 بنظام اندرويد 6 ، التصوير عن طريق WebCam ، وتمت التجربة على Logitec HD c615 ، التصوير عن طريق الكامرات الكبيرة من نوع DSLR ، وتمت التجربة على Nikon D5100 او Canon Mark iii ، تطويع الماسح الضوئي لتصوير المستند/المستندات ، وحفظ المستندات الى اي مجلد ، بصيغة pdf او jpg العمل غير مكتمل 100% ، والخطوات التي على قائمة العمل: 1. إعطاء المستخدم الآلية لتحديد مكان قطع الصورة (لمرة واحدة طبعا) ، وحذف الزوائد ، مثلا: الخلفية الثابته: . تصوير الشخص . قطع الصورة وحذف الزوائد (برمجيا) . وكذلك يمكن الاستفادة منه في تصوير مستندات A4 او A5 ، وقطع الصورة وحذف الزوائد (طبعا يكون هناك زر للـ A4 وزر آخر للـ A5) 2. ماذا لو اردت حفظ صورة / مستند ، وكانت هناك صورة سابقا بنفس الاسم؟ سيكون للمستخدم 3 اختيارات: أ- احذف الصورة القديمة واستبدلها بالصورة الجديدة ، ب- اعطي الصورة الجديدة الرقم التسلسلي التالي ، حسب آخر رقم موجود للصورة ، مثلا: الصورة الموجودة سابقا 1.jpg او Inward_2017_05_06.jpg والصورة الجديدة ستصبح 1_001.jpg او Inward_2017_05_06_001.jpg هذه العملية تنفع للأرشفة ج- دائما اجعل الصورة الجديدة بدون ترتيب ، واجعل الصورة السابقة تأخذ آخر رقم ، مثلا الصورة الموجودة سابقا 1.jpg او Inward_2017_05_06.jpg وآخر صورة في المجلد لنفس الصورة هي 1_001.jpg او Inward_2017_05_06_001.jpg عليه سنأخذ آخر صورة موجودة في المجلد ونعطيها الرقم التسلسلي التالي 1_002.jpg او Inward_2017_05_06_002.jpg والصورة الجديدة التي سنلتقطها ستكون 1.jpg او Inward_2017_05_06.jpg هذه العملية تنفع لبرامجنا والتي تستعمل اسم الصورة ، والذي يكون رقم الموظف مثلا وبقية الصور تسلسلها حسب القِدم . 3- حفظ الصور افقيا او عموديا. والآن الى برنامجنا التصوير عن طريق كاميرا هاتف اندرويد اولا: تهيئة الهاتف (البرنامج المرفق فيه المادة رقم2 ، ولا يوجد داعي لإنزاله) : رجاء اتباع الخطوات التالية ليكون الهاتف مهيأ للإتصال بالبرنامج ، ويجب ان يكون الهاتف موصل بالكمبيوتر عن طريق USB: 1- يجب ان يكون الكمبيوتر متعرف على هاتفك ، ويمكنك انزال هذا التعريف من شركة هاتفك ، او من الرابط التالي ، رقم 1 : http://adbshell.com/downloads . وبرنامجنا محتاج الى البرنامج الذي في الرابط اعلاه ، رقم 2 ، والذي لا يحتاج الى تنصيب (ونضع محتواه في المجلد Android_Mobile كما في الصور في الاسفل) ، او اذا اردت البرنامج اعلاه من مصدر آخر وبه SDK الاندرويد (اي جميع برامج التحكم في جزئياته) ، فيمكن تنزيله من الرابط: https://dl.google.com/android/repository/platform-tools-latest-windows.zip 2- يجب ان يكون هاتفك في وضع Developer Options ، كما في الصورة: . واذا لم يكن ، فعليك اتباع الخطوات التالية لعمله : من الاعدادات . وسترى . ثم انقر على المربع الاحمر ، ليأخذك الى الصورة التاليه ، واختار المربعين بعلامة صح . وعند ربط الهاتف بالكمبيوتر ، اختار من الهاتف . وعند تشغيل البرنامج ، سيطلب منك الهاتف الموافقه على السماح بالكمبيوتر التحكم فيه ، فاختار السماح ، 1 ثم 2 . الآن هاتفك مهيأ للتحكم فيه من خلال البرنامج ، ورجاء اجعل الهاتف في وضع الاغلاق (حيث تكون الشاشة سوداء) ، 3- مجلد برنامجك يجب ان يكون بهذه الطريقة . البرنامج مفتوح المصدر ، وتحتاج لمسك مفتاح Shift عند النقر المزدوج على ايقونة البرنامج لفتحه ورؤية الكود ، - البرنامج يفتح على النموذج frm_Main حيث تختار اسم الشخص او رقمه ، . وعند النقر على تفاصيل الموظف او تفاصيل الموظفين ، يفتح النموذج frm_Names ، وتلقائيا سترى ان الهاتف اشتغل ، وعند الخروج من النموذج سوف يغلق الهاتف ، في النموذج frm_Names ، عند النقر على هذه الايقونة سيتم التصوير . وخلال 8-9 ثوان ، سترى الصورة داخل النموذج ، ان شاء الله ويمكنك جعل الهاتف يأخذ الصورة بالفلاش ، من اعدادات الهاتف نفسه ، هذا كود البرنامج بطريقين ، الطريقة الاولى والتي تأخذ الوقت الاقل ، وتركت الطريقة الثانيه الابسط هنا كذلك للذي يريد اللعب فيه وتغييره: Private Sub Form_Load() Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" 'turn on the Device cmmd = " shell input keyevent KEYCODE_POWER" Call Shell(App_Location & cmmd, vbHidden) End Sub Private Sub Form_Close() Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" 'turn off the Device cmmd = " shell input keyevent KEYCODE_POWER" Call Shell(App_Location & cmmd, vbHidden) End Sub Private Sub cmd_Android_Camera_Click() On Error GoTo err_cmd_Android_Camera_Click 'KEYCODE_POWER = 26 'KEYCODE_CAMERA = 27 'KEYCODE_BACK = 4 'KEYCODE_HOME = 3 Dim cmmd As String 'how long does it take to take the picture istart = Timer 'set BE_Path Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" Save_images_to = BE_Path & "images\" 'image capture mode cmmd1 = App_Location & " shell " & Chr(34) & "am start -a android.media.action.STILL_IMAGE_CAMERA" & "; sleep 1; " cmmd2 = "input keyevent KEYCODE_CAMERA" & "; sleep 2; " cmmd3 = "input keyevent KEYCODE_BACK" & ";" & Chr(34) cmmd = cmmd1 & cmmd2 & cmmd3 'Debug.Print cmmd Call ShellWait(cmmd, vbHidden) 'transfer the image to the PC cmmd = App_Location & " pull /sdcard/DCIM/Camera/ " & Save_images_to & "temp\" Call Shell(cmmd, vbHidden) 'Delete the pictures from the mobile camera folder cmmd = App_Location & " shell rm /sdcard/DCIM/Camera/*.jpg" Call Shell(cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'Delete the existing Employee_ID Kill Save_images_to & Me.Employee_ID & ".jpg" 'move the picture from folder temp and change its name Dim StrFile As String StrFile = Dir(Save_images_to & "temp\") Do While Len(StrFile) > 0 Mobile_Pic = StrFile StrFile = Dir Loop Name Save_images_to & "temp\" & Mobile_Pic As Save_images_to & Me.Employee_ID & ".jpg" PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'show the picture in the Form Me.Pic.Picture = Save_images_to & Me.Employee_ID & ".jpg" 'Delete the temp folder RmDir Save_images_to & "temp\" 'MsgBox Timer - istart Exit Sub to_Here: 'image capture mode cmmd = " shell " & Chr(34) & "am start -a android.media.action.STILL_IMAGE_CAMERA" & Chr(34) Call ShellWait(App_Location & cmmd, vbHidden) 'Dim PauseTime, Start PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'take a picture cmmd = " shell " & Chr(34) & "input keyevent KEYCODE_CAMERA" & Chr(34) Call ShellWait(App_Location & cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'exit the image capture mod cmmd = " shell " & Chr(34) & "input keyevent KEYCODE_BACK" & Chr(34) Call ShellWait(App_Location & cmmd, vbHidden) Call ShellWait(App_Location & cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'transfer the image to then PC cmmd = " pull /sdcard/DCIM/Camera/ " & Save_images_to & "\temp" Call ShellWait(App_Location & cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'Delete the image from the camera cmmd = " shell rm /sdcard/DCIM/Camera/*.jpg" Call Shell(App_Location & cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'Delete the existing Employee_ID Kill Save_images_to & Me.Employee_ID & ".jpg" 'move the picture from folder temp and change its name 'Dim StrFile As String StrFile = Dir(Save_images_to & "temp\") Do While Len(StrFile) > 0 Mobile_Pic = StrFile StrFile = Dir Loop Name Save_images_to & "temp\" & Mobile_Pic As Save_images_to & Me.Employee_ID & ".jpg" PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'Delete the temp folder RmDir Save_images_to & "temp\" 'show the picture in the Form Me.Pic.Picture = Save_images_to & Me.Employee_ID & ".jpg" 'MsgBox Timer - istart Exit_cmd_Android_Camera_Click: Exit Sub err_cmd_Android_Camera_Click: If Err.Number = 53 Then 'No picture to delete Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub والبرنامج حاليا للمتطوعين الذين يعرفون ان البرنامج لا يحتوي على اي ميزات غير التصوير وحفظ الصور في المجلد Images ، وربط الصور برقم الموظف ورجاء اخبرونا عن نتائج تجربتكم وملاحظة هامة: ***** لا تستخدم هاتفك الشخصي ، فالبرنامج سيحذف جميع الصور التي في المجلد sdcard/DCIM/Camera ***** جعفر Camera_Scanner.zip

السلام عليكم مؤسسسة غير ربحية لديها حوالي مليون رقم هاتف مستهدف قابلة للزيادة ويريدون ارسال رسائل لهم وحيث ان رسائل الـــ sms مكلفة رأوا ان يكون الارسال عبر الواتس فهل من طريقة برمجية تساعد في ذلك

حياك الله

وعليكم السلام اخوي وضاح من الصعب على اي منا ان يرد على موضوعك ، لأن الكثير منا ليس محاسب ولا نعرف ماذا تقصد ولا ماذا تريد!! رجاء ارفق برنامجك فيه بيانات متعددة ، ثم استعمل الاكسل او الوورد او حتى برنامج صور ، واشرح لنا: 1. اي جدول ، اي حقول يجب التعامل معها ، 2. مثالين عن الشيء الذي تريده: أ. طريقة الحساب، ب. النتيجة التي يجب الحصول عليها، ج. الصورة النهائية التي تريدها. ونحن سنحاول ان نترجم مثالك الى برمجة اكسس ان شاء الله هذا الكلام ينطبق على بقية مواضيعك كذلك جعفر

تفضل . والنتيجة . جعفر 680.برنامج الاجازات شبه كامل_jj.accdb.zip

وعليكم السلام في الواقع كان هناك خطأ في الدرس الرابع ، وانا الذي كتبت الدرس الرابع وليس اخي @صالح حمادي ، وقمت بالتعديل عليه ، والتعديل على مثالك ، كما وان ملاحظة اخي محمد ابوعبدالله صحيحة ايضا ، حيث ان اسم الوحدة/الوحدات النمطية يجب ان تكون غير اسم الدالة/الدوال الموجودة في البرنامج. جعفر Database2.zip

هذا البرنامج قمت بإعداده لطباعة الشيكات ارجو منكم صالح الدعاء لمن أراد الاستفادة منه.. مع علمي بأن هناك الكثير ممن سبقني وقام بعمل برنامج مماثل .. مع وافر شكري و تقديري لكل المشاركين في هذا المنتدى الرائع برنامج طباعة شيكات.rar

غير اسم الوحدة النطية الى اسم جديد لا يكون اسم الدالة تحياتي

السلام عليكم تم التعديل على الكود والبرنامج ليعمل: 1. تشغيل الاكسس بدون رسائل أمان ، 2. تشغيل الاكسس بدون إطار/نافذة الوندوز (للنواتين 32بت و64بت). 1. مثل الخطوات السابقة ، احفظ الكود التالي في ملف بصيغة txt ، ثم غيّر صيغة الملف الى vbs (طبعا تستطيع ان تضع برنامج قاعدة البيانات في اي مكان شئت في الكمبيوتر ، فقط عليك تعديل الاسم والمسار) : rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional) dim o set o=createobject ("Access.Application") o.automationsecurity=1 ' set macro security LOW. o.opencurrentdatabase "C:\jj\Seq.mdb" o.usercontrol=false o.quit set o=nothing 2. لتشغيل الاكسس بدون اطار ، يجب ان يكون النموذج منبثق ، ولكننا بدل ان نغير اعدادات النموذج ، نستطيع ان نفتحه منبثق مباشرة ( Dialog )، وبما اننا نستعمل الماكرو AutoExec (والذي يعمل عند فتح البرنامج مباشرة ) ، فإننا سنفتح النموذج بهذه الطريقة: النموذج: . والماكرو . وهذا كود النموذج: Option Compare Database Private Sub cmd_Quit_Click() DoCmd.Quit End Sub Private Sub Form_Open(Cancel As Integer) Call HideAccess End Sub وهذه الوحدة النمطية التي بها كود الاخفاء: Option Compare Database Option Explicit Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3 #If VBA7 Then Private Declare PtrSafe Function ShowWindow Lib "USER32" _ (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Boolean #Else Private Declare Function ShowWindow Lib "USER32" _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As Boolean #End If ' Public Sub HideAccess() #If VBA7 Then Dim hWndAccessApp As LongPtr #Else Dim hWndAccessApp As Long #End If Call ShowWindow(Access.hWndAccessApp, SW_HIDE) End Sub Public Sub ShowAccess() #If VBA7 Then Dim hWndAccessApp As LongPtr #Else Dim hWndAccessApp As Long #End If Call ShowWindow(Access.hWndAccessApp, SW_SHOWMAXIMIZED) End Sub جعفر 739.No_Warning_and_No_Access_Window.zip

ربما كان المطلوب اكتب ما تريد تكراره في الصفحة 1 و لاحظ النتيجة في الصفحة 2 takrar by_choise.rar لا حظ هذا الملف ايضاً تكرار حسب الرغبة.rar

اخي ارفع بعض البيانات الوهمية كمثال مع النتائج المتوقعة لمعرفة ما المقصود

عند فتح الملف تاكد من قبول خيار تفعيل الاكواد اضغط ALT+F11 ليظهر لك محرر الأكود ، سيظهر الوضع بالشكل التالي لنقل الاكود الي ملفك طبق نفس الامر انقر نقرا مزدودا على اسم الملف و اضف نفس الاكواد فى نفس المكان او افتح الملفان معا و انسخ الاكواد للسهولة لتصبح فى نفس المكان

السلام عليكم لست بحاجة الى ضم جداول ولا الى استعلامات تجميع فقط اجعل مصدر النموذج هو جدول الاسماء واستخدم مثل هذا السطر لجلب القيمة : =DCount("ID";"TTaweedh";"EmbNo='" & [EmbNo] & "'") مثال.rar

وعليكم السلام وجسب البحث الذي عملته ، فكلام اخي عمرو صحيح ، وللأسف لا يمكن استعمال البرنامج على جهازين مختلفين !! لذلك يجب ان يكون عندك جهاز 32بت وآخر 64بت ، وتستعمل كل منهم لتحويل برنامجك الى accde!! هناك طريقة اخرى ، ولكن يجب عليك تضبيطها ، وهي ان تكون قد جربت برنامجك Accdb على النظامين ، ووجدت انه يعمل بطريقة صحيحة ، والخطوة المتبقية هي تحويله الى Accde حسب 32 او 64 بت ، فتستطيع بطريقة ما ، استعمال الكود لتحويل البرنامج بإستخدام نواة كمبيوتر المستخدم ، يعني تعطي المستخدم نسخة من صيغة Accdb ، واول ما يشتغل البرنامج ، يشتغل الكود التالي (من المنتدى: https://www.mrexcel.com/forum/microsoft-access/493961-vba-convert-accdb-accde.html#post2439046 ) ، والذي يحول البرنامج الى صيغة Accde Function ConvertToaccDE() sourcedb = "C:\Users\Trevor G\Documents\sample back.accdb" targetdb = "C:\Users\Trevor G\Documents\sample back.accde" Dim accessApplication As Access.Application Set accessApplication = New Access.Application With accessApplication .SysCmd 603, sourcedb, targetdb End With 'Set accessApplication = Nothing End Function وبعدها تجعل الكود يحذف البرنامج الاصل Accdb. جعفر

وعليكم السلام الظاهر انه عندك النسخة التجريبية من البرنامج ، لذا عليك شراء البرنامج ، لتحويل هذه النسخة الى نسخة كاملة ، وعليه لن ترى هذه الكلمة جعفر

طبعا انا ما رديت على كثير من المواضيع لاني ما فهمت منه جيدا ماذا يريده بالضبط نفتخر بك ... وشكرا لك لانك معنا ..

بعض الاوقات لازم ما نفكر بأسوأ الاحتمالات هذه المشكلة عالمية (بترجمة جعفر): فالمشكلة دائما هي وكيفية ومدى تفاصيل شرح الزبون لتوصيل الفكرة جعفر

الكود يقوم بالتصفية عن طريق Advanced filter يجب ان تكون الصفحة T_sh محددة (اي الصفحة "الهدف") 1-ادخل على صفحة الكود و قم بتعطيل الكود (حدث الصفحة) عن طريق وضع فاصلة عليا عند كل سطر من اسطره ليصيح الكود بهذا الشكل Option Explicit Sub filter_for_ME() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim S_sh As Worksheet: Set S_sh = Sheets("المصدر") Dim T_sh As Worksheet: Set T_sh = Sheets("الهدف") Dim My_Table As Range: Set My_Table = S_sh.Range("A1").CurrentRegion T_sh.Range("a1").CurrentRegion.ClearContents T_sh.Range("s2").Formula = "=المصدر!$H2=الهدف!$L$1" My_Table.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=T_sh.Range("s1:s2"), _ CopyToRange:=T_sh.Range("A1") T_sh.Range("s2").ClearContents With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub 'Private Sub Worksheet_Change(ByVal Target As Range) 'If Target.Address <> "$L$1" Or Target.Count > 1 Then GoTo 1 'Application.EnableEvents = False 'filter_for_ME '1: 'Application.EnableEvents = True 'End Sub 2-ضع المؤشر داخل الكود filter_for_ME 3-بواسطة المفتاح F8 نفذ الكود خطوة خطوة و لا حظ ماذا يجري على الصفحة و ستفهم الكود يسرعة 4- بعد دراسة الكود ازل الفواصل العليا ليعود كل شيء الى طبيعته

الدرس العاشر: دوال تجميع المجال هذا الدرس مخصص لشرح دوال تجميع المجال: DAvg: تستخدم هذه الدالة من أجل استخراج القيمة المتوسطة لمجموعة سجلات بحقل معين في جدول. DAvg(field, table, condition) field: اسم الحقل المراد حساب قيمته المتوسطة table: اسم الجدول الذي به الحقل condition: الشروط أو المعايير و هي اختيارية و ليست ضرورية DCount: تستخدم هذه الدالة لحساب عدد الجلات في جدول معين. DCount(field, table, condition) DFirst: تستخدم هذه الدالة لاستخراج السجل الأول في جدول معين. DFirst(field, table, condition) DLast: تستخدم هذه الدالة لاستخراج السجل الأخير في جدول معين. DLast(field, table, condition) DLookUp: تستخدم هذه الدالة لاستخراج قيمة حقل معين من جدول ما. DLookUp(field, table, condition) DMax: تستخدم هذه الدالة لاستخراج القيمة القصوى لحقل معين في جدول ما. DMax(field, table, condition) DMin: تستخدم هذه الدالة لاستخراج القيمة الدنيا لحقل معين في جدول ما. DMin(field, table, condition) DStDev: تستخدم هذه الدالة لاستخراج الانحراف المعياري لمجموعة سجلات بحقل معين في جدول ما. DStDev(field, table, condition) DSum: تستخدم هذه الدالة لحساب مجموع قيم مجموعة سجلات بحقل معين في جدول ما. DSum(field, table, condition)

ابدأ ب form1 اليوز admin الباسورد 1982 ستاذ الفاضل لو محتاج اي استفثار عن البرنامج ممكن تتواصل معاي صوت عن طريق الفايبر او الوتس. او الايمو ت 0096567749195

استاذنا @ابوخليل @محمد ايمن @omarahmed1424 @abosherif1 @wael_rafat في هذا الرابط راح تجدون ما طلبتم الكود مع شرح بالفيديو https://whatsmate.github.io/2017-02-04-send-whatsapp-message-vba/ و استاذنا @Elsayed Bn Gemy انت مطلوب هنا للمشاركة في هذا الموضوع اذا عندك معلومة عنه

فكرة رائعة و مهمة و اضم صوتي لصوت معلمنا الجليل ابو خليل

اضم صوتي الى استاذنا ومعلمنا القدير ابو خليل خاصية هامة جدااااا ، وخصوصا هذه الايام ومع التطور الحالي باللاتصالات ....

طلب مهم جدا ونسأل الله التوفيق والسداد.

أضم صوتي لأستاذي في هذا الطلب فهل من مجيب؟

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

الله الله الله ، والله لو تعرف شقدر اثلجت صدري ، اثلج الله صدرك بالايمان ان شاء الله عندي لك كم سؤال لوسمحت: أ. ما مدى صعوبة توصيل الهاتف بالكمبيوتر وجعلهم يتعرفوا على بعض ، ب. ما مدى صعوبة تجهيز مجلدات البرنامج ، وتشغيل البرنامج ، ج. هل صادفتك اي مشكلة في رقم 1 و 2 ، وهل هناك شيء يجب ان اذكره في الشرح ليسهل الموضوع ، د. هل اخذت اكثر من صورة للموظف الواحد؟ 2. رجاء لا تعتمد على عدم الغاء الصور القديمة ، لأن برنامجي يطلب منه الغاء جميع صور مجلد الكاميرا /sdcard/DCIM/Camera/ جعفر

هذا تجميع لأهم الدروس والمواضيع المميزة بالمنتدى ضم روابط المواضيع المثبتة من أعمال معلمينا الفضلاء ومبدعينا في صفحة واحدة .. وذلك من باب التجديد والتغيير وإعطاء مساحة اكبر للمواضيع المتجددة .. *********************************************************************** أولا : توجيهات للأعضاء الجدد في المنتدى ثانيا : طلب من جميع الخبراء وجميع الاعضاء النشطاء الذين يتصدون للحلول وإجابة السائلين *********************************************************************** القسم الأول : الجداول والاستعلامات: الاستعلام الجدولي والمعايير القسم الثاني : النماذج: شرح أداة WebBrowser 1 2 شاشة انتظر من فضلك !! | سلسلة مهارات في أكسس | 06 | توسيط النماذج داخل النافذة أو الإطار طريقة إبداعية لتغيير خلفيات جميع النماذج إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) ⭐ كيف تغير اللغة في برامجك ⭐ ✨💻 صفحة رئيسية متطورة بقائمة جانبية وأزرار فرعية ⭐ التحكم الكامل فى واجهة اكسس ( تصغير بجوار الساعة - توسيط - اخفاء - تغيير أيقونة شعار أكسس ) القسم الثالث : التقارير: مسقط التقارير او صانع التقارير انشاء شريط طباعة للتقرير القسم الرابع : الماكرو والوحدات النمطية VBA: إنشاء دروس VBA أكسس كشكول VBA ترجمة النصوص وتحويلها إلى صوت في vba باستخدام جوجل ( تجارب وفوائد ) :: دالة لحساب أيام الحضور والغياب .. وفكرة عد القيم النصية في حقول السجل الواحد :: اجعل برنامجك يعمل على النواتين 32بت و 64بت اجعل برنامجك يعمل على النواتين 32بت و 64بت _ طريقة ثانية شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( FileDialog ) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( FileDialog ) شخابيط وافكار : اليوم اقدم اليكم منفعة لا غنى عنها (ImmediateWindowHelper) تفقيط عام متعدد : تحويل الارقام وقيمة ارقام العملة أو ( عملات متعددة ) الى نص مع التفقيط باللغة العربية ولغة اخرى منتقى التواريخ "Date pickers" القسم الخامس : قواعد البيانات SQL وما يتعلق بها: أكسس و اسكيوال سيرفر Access with Sql Server الأكسس و SQL جُمل SQL مشاركة قاعدة البيانات على الانترنت بواسطة SQL Server [تطبيق] تحويل قاعدة بيانات اكسس الى SQL Server (الجزء الاول _ الجزء الخامس) ربط الاكسيس ب php القسم السادس : البرامج والأدوات والإضافات: إدارة الجداول المرتبطة ، أداة وشروحات نظام مراسلة واشعارات شبيه بالفيس بوك معالج بحث وتصفح مسقط التصفح كارنيهات باستخدام باركود ماتركس - QR code محاكاة برنامج واتساب بالاكسس .. هدية لاوفيسنا القائمة المختصرة - Shortcut menu ارسال رسائل whatsapp (وتساب) بدون حفظ الرقم رسائل whatsapp (وتساب) في اكسس رسائل whatsapp (وتساب) بدون حفظ الرقم ( الكاتب الذكي لدوال المجال في أكسس Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg) ⭐⭐(( مكتبة الأكواد الخاصة )) :: الإصدار الثاني 2.0 ⭐⭐ ، /// ، مكتبة الأكواد الخاصة | سلسلة هدايا الأكسس | 04 | 🎁 - 📟 آلة حاسبة 📟 - هدية مميزة مفتوحة المصدر 🎁 🖌️✏️👨😉🧑‍💻 ... برنامج دردشة بين المستخدمين على الشبكة ... 👨‍💻🧑‍💻✍️😊✏️🖊️ 🎁 :: هديتي لكم :: 🌷📨 >> برنامج مرسال الواتسأب - مع المرفقات - << ✉️ 🙂🌷💌 🎁 :: مرسال الواتسأب :: 📨 :: الإصدار الثاني 2.0 :: مطور :: 🧬🏹 🎁 هدايا الأكسس ✨ | 03| زاد المثابر للحصول على أسماء العناصر في أكسس | أداة رائعة للمطورين 🧛🏻‍♂️ [الاصدار الثاني] ارسال رسائل جماعية لعدد x من المستخدمين على الواتس اب في الاكسس هدية: برنامج تصدير بيانات من جداول/استعلامات اكسس الى اكسل ، 32بت و 64بت هداء لكم برنامج بسيط للديون والسداد 🟢 واتساب ويب web.watsapp 🟢 هدية : تصدير كائنات دفعة واحدة الى قاعدة أخرى أو حسب إختيارك 🧮 الكاتب الذكي لدوال المجال |::| 📜 نسخة مطورة ومحدثة |::| 😊 الإصدار الثاني 2.0 ⭐ كيف تغير اللغة في برامجك ⭐ القسم السابع : الأفكار والنصائح والتوجيهات: مواضيع مهمة .. قراءة وتفكيك بيانات الحقل الى حقول تطبيقات وأفكار وتلميحات تخفيض امان windows وتسجيل المكتبات عند تنصيب البرامج هام لمطورى ومصممى قواعد البيانات إنتبهوا حتى لا تواجهوا مشاكل مع العملاء خلاصة الأقوال .. حول مسائل الحماية 🔒🔑💪🏻 القسم الثامن : مواضيع متنوعة: ملف للبحث عن المواضيع في هذا المنتدى بعض المواضيع المتميزة والمهمة ( 8 ) الحماية برقم القرص الصلب والمعالج واللوحة الأم شرح أكسس 2003 - 2007 - 2010 - 2013 ( صوت وصورة ومرفقات ) رفع نسخة احتياطية على السحابة (google drive) ::💡 أفكار وفوائد 💡:: أسهل طريقة لعمل مربعات صح ✔ أو خطأ ✘ بالحجم واللون الذي تريده ❌☑️✔️✅❎ ⭐⭐ طريقة إبداعية لتحديث نسخة الواجهات FE 🖥️ لدى المستخدمين بدون برامج أو أدوات خارجية 😊👌⭐⭐ رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: ------------------------------------------------------ 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ --------------------------------------------------------------------------------------------------------------------------------------------------------------- القسم التاسع : الدروس والشروحات والمشاريع : طريقة /اضافة صوت للاكسس مع التحكم فى (الايقاف/التشغيل) للصوت تصميم قاعدة بيانات احترافيه لإدارة يوميات وشئون العاملين

خطأ # ، Error# نتيجة مزعجة نحصل عليها في النماذج والتقارير السبب: في الحقول التي نقوم بها بأي عملية إحتساب ( sum , count) حين لا يكون هناك سجلات ومعلومات لاحتسابها تظهر هذه النتيجة المزعجة.. الحل في النماذج 2003: بدلا من استخدام =Sum([Amount]) نستخدم =IIf([Form].[Recordset].[RecordCount] > 0, Sum([Amount]), 0) الحل في التقارير 2007: =IIf([Report].[HasData], Sum([Amount]), 0)) أما في 2007 فالامر مختلف ، فهو لا يقبل هذا الكود ، ويلزم إنشاء وحدة نمطية ندرج فيها : Public Function FormHasData(frm As Form) As Boolean 'Purpose: Return True if the form has any records (other than new one). ' Return False for unbound forms, and forms with no records. 'Note: Avoids the bug in Access 2007 where text boxes cannot use: ' [Forms].[Form1].[Recordset].[RecordCount] On Error Resume Next 'To handle unbound forms. FormHasData = (frm.Recordset.RecordCount <> 0&) End Function وفي مصدر السجلات لمربع النص في النموذج نضع الكود: =IIf(FormHasData([Form]), Sum([Amount]), 0) وبذلك تنتهي المشكلة ونتخلص من نتائج الخطأ المزعجة ، """ وإذا عرف السبب سهل الحل وبطل العجب """ ...........

خلال التطبيق تم تفعيل وفتح أكثر من نموذج ، مثل عرض معلومات موظف في نموذج ومن خلاله تم فتح نموذج ثاني لمبيعات هذا الموظف ثم نموذج لطلبيات عميل من عملائه. في مرحلة معينة اريد اغلاق جميع النماذج مرة واحدة . دعونا نستخدم الكود التالي : do while forms.count>0 docmd.close acform,forms(0).name loop ,>>>>>>>>>>>>>>>

Date And Time At Forms Caption لإظهار تاريخ اليوم والوقت بدل اسم النموذج ، الكود التالي يفي بالغرض مع تثبيت الرقم 1000 في Timer Interval Private Sub Form_Timer() Me.Caption = " Today is " & "Date :" & " " & Format$(Now()), "dd mm yyyy " & " Time : " & "h:mm:ss AMPM" End Sub >>>>>>>>>>>>

Conditional Formatting, Alert, Statistics أريد ان انفذ التنسيق الشرطي عبر الكود ، بقيمة حقل او حقلين أو غيره ، بشرط معين او شروط اطبق نتيجة بصرية في النموذج ، من باب التنبيه أو الاحصاء. الكود التالي يؤدي الغرض Private Sub Form_Current() If Me.strDate < Date Then Me.ID.BackColor = vbRed End If End Sub وطبعا البساطة والتعقيد تبع للظروف ... والمتطلبات ، ولكن هذه أصل الفكرة .... القاموس

Doblecated recorde في النموذج نختار رقم الفرع أو المعرض ثم نثبت السنة ثم نختار رقم الطلبية ، بعدها يبدأ عمل الكود (قبل التحديث أو بعد التحديث) ، فانا لا أريد تكرار السجل لرقم الطلبية لهذا الفرع لهذه السنة ، ثلاثة متلازمة ، هذا الكود يمنع التكرار . Private Sub OrderID_AfterUpdate() Dim rst As Recordset Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst!strOrder = Me!OrderID And rst!strCenter = Me!Center And rst!strYear = Me!Year Then MsgBox " Doblecated recorde ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " Note;. " Me.Undo DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close End Sub

Record Source لتحديد مصدر السجلات للنموذج في أي مرحلة ، عند التحميل ، بعد إنهاء عملية فرز أو بحث أو ..... Form.RecordSource = "SELECT tbl1ref08.* FROM tbl1ref08;" أو يكون جملة Form.RecordSource = "SELECT tbl1ref08.* FROM tbl1ref08" _ & " WHERE (((tbl1ref08.[strCenter]) Like '" & MyStr & "' & '*'));" >>>>>>>>>>>>>

Form Size لتحديد حجم النموذج ، ارتفاع وعرض Private Sub Form_Load() Me.Form.InsideHeight = 6900 Me.Form.InsideWidth = 12700 End Sub ........

Capital letters للكتابة في الحقل باستخدام أحرف كبيرة Private Sub VinNo_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub