بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
2,034 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
51
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Moosak
-
مساعدة في كود تكرار الكود في الوتساب
Moosak replied to Mohameddd200300's topic in قسم الأكسيس Access
وعليكم السلام ورحمة الله الله وبركاته 🙂 باستخدام دالة Sleep نفسها المستخدمة للإنتظار في كود الواتسأب ضع هذه الأسطر من ضمن كود الإرسال لديك ( يفضل أن يكون تحت جملة For مباشرة ) : Dim W As Long ' المتغير يعد الأشخاص الذين تم الإرسال لهم If W = 10 Then ' حدد عدد الذين تريد الإنتظار بعدهم Sleep 15000 ' مدة الإنتظار (كل ألف يساوي ثانية) W = 1 Else W = W + 1 End If وهذا مثال للتجربة : Sub SendToWhatsApp() Dim x As Integer For x = 1 To 50 Dim W As Long ' المتغير يعد الأشخاص الذين تم الإرسال لهم If W = 10 Then ' حدد عدد الذين تريد الإنتظار بعدهم Debug.Print "================================(إنتظار)" Sleep 15000 ' مدة الإنتظار (كل ألف يساوي ثانية) W = 1 Else W = W + 1 End If ' هنا كود إرسال الواتسأب Debug.Print "جار الإرسال للمستخدم رقم: ", x Sleep 500 DoEvents Next x End Sub والنتيجة :- 1 reply
-
- 1
-
تسجيل وقت الدخول والخروج واسم المستخدم
Moosak replied to عبد اللطيف سلوم's topic in قسم الأكسيس Access
شكر لك أخي @عبد اللطيف سلوم 🙂 -
تثبيت سجل افتراضي بها بيانات افتراضية
Moosak replied to Ahmed Fahmy 2022's topic in قسم الأكسيس Access
والثالثة : أن تضيف حقل من نوع (نعم/لا) وتجعل هذا السجل (نعم) وتستثنيه من الحذف عند التفريغ .. 🙂 -
شكر لك أخي @kanory بالفعل هناك تحديث قادم بإذن الله 🙂 .. وهذه صورة تشويقية .. وسأذكر المميزات الجديدة في حينها إن شاء الله ..😊 وربما يصعب إدراج النماذج الفرعية هنا لأن المكان صاير زحمة 😅🖐🏼️
-
وعليكم السلام ورحة الله وبركاته 🙂 1- أكمل الدالة .. لأنك حاط اسم العميل في النموذج الفرعي ستظهر لك أسماء النماذج الفرعية فقط .. اختر اسم النموذج الفرعي 2 - يجب إضافة هذا السطر يدويا لكي يتم الوصول لحقل رقم العميل . 3- إضغط على زر فحص التعديلات ( يجب أن يكون النموذج مفتوح لترى النتيجة مباشرة ) 4- هنا ستظهر النتيجة الدالة كاملة حسب المعطيات (نفس اللتي في الصورة) : DSum("[المتحصل من العميل]","[customer account sub dollar]","[اسم العميل] ='"& [Forms]![customer_account_$22]![customer_account_main $].FORM![Customer_Name] &"'")
-
الذكاء الإصطناعي chatGPT في انشاء اكواد VBA
Moosak replied to دروب مبرمج's topic in قسم الأكسيس Access
أخي عمر جرب تنزيل هذا التطبيق في هاتفك الأندرويد .. يقوم بنفس العمل 🙂 https://play.google.com/store/apps/details?id=com.poe.android&pli=1 -
تصميم واجهة مستخدم ، وواجهة تغيير كلمة المرور
Moosak replied to بسام المبروك القيلوشي's topic in قسم الأكسيس Access
لا .. للأسف .. -
يعمل بكفاءة 👍🏼🙂
-
تصميم واجهة مستخدم ، وواجهة تغيير كلمة المرور
Moosak replied to بسام المبروك القيلوشي's topic in قسم الأكسيس Access
افتح البرنامج بالضغط على زر الشفت shift هذا وظيفته تكون بعدما يتم تقسيم البرنامج .. 🙂 -
تصميم واجهة مستخدم ، وواجهة تغيير كلمة المرور
Moosak replied to بسام المبروك القيلوشي's topic in قسم الأكسيس Access
هذا الملف قالب جاهز لنموذج صفحة دخول وتغيير بيانات المستخدم والتحكم بالمستخدمين 🙂 كلمة المرور لجميع المستخدمين : 123 للتحميل : 🙂 قالب جاهز لنموذج تسجيل الدخول وتغيير كلمة المرور.accdb -
كود لعمل ترقيم متسلسل للسجلات في النموذج المستمر أو المفرد في حقل غير منظم شرح الكود: يوضع في موديول منفصل .. ثم في حقل المسلسل في النموذج ويكون حقل غير منظم يكتب في مصدر بياناته هكذ : =RowNum([Form]) الكود: Public Function RowNum(frm As Form) As Variant On Error GoTo Err_RowNum 'Purpose: Numbering the rows on a form. 'Usage: Text box with ControlSource of: =RowNum([Form]) With frm.RecordsetClone .Bookmark = frm.Bookmark RowNum = .AbsolutePosition + 1 End With Exit_RowNum: Exit Function Err_RowNum: If Err.Number <> 3021& Then 'Ignore "No bookmark" at new row. Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description End If RowNum = Null Resume Exit_RowNum End Function طريقة الاستدعاء (الاستخدام): =RowNum([Form])
-
أستاذنا العزيز 🙂 كأن الدالة تبدأ بحساب الأيام اعتبارا من اليوم التالي لليوم المختار .. أم أن هناك فكرة لم أستوعبها ؟
-
بارك الله فيك أبا أحمد @AbuuAhmed جهد مبارك وعمل مشكور 🙂 جربتها قبل التعديل .. فوجدتها تحسب يوم الجمعة كيوم عمل .. هل لها ضبط آخر لتحديد أيام العمل من الأحد إلى الخميس ؟
-
هذا الكود لفتح ملف أو صورة وطباعتها مباشرة يوضع في موديول وينادى كما هو واضح بالاسفل الكود: Option Compare Database Option Explicit Private Const SW_HIDE = 0 Private Const SW_MINIMIZE = 6 Private Const SW_RESTORE = 9 Private Const SW_SHOW = 5 Private Const SW_SHOWMAXIMIZED = 3 Private Const SW_SHOWMINIMIZED = 2 Private Const SW_SHOWMINNOACTIVE = 7 Private Const SW_SHOWNA = 8 Private Const SW_SHOWNOACTIVATE = 4 Private Const SW_SHOWNORMAL = 1 #If Win64 Then Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long _ ) As Long #Else Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long _ ) As Long #End If Public Function PrintFile(ByVal strPathAndFilename As String) Call ShellExecute(Application.hWndAccessApp, "print", strPathAndFilename, vbNullString, vbNullString, 0) End Function طريقة الاستدعاء (الاستخدام): PrintFile ( "d:\Folder1\Folder2\File.jpeg")
-
هدية (نموذج رسائل sms احترافي) + مساعدة
Moosak replied to Mohameddd200300's topic in قسم الأكسيس Access
تم حذف المرفقات .. -
شريط تقدم للوقت الفعلي المستغرق لاستعلام اكسيس
Moosak replied to mohamedmas's topic in قسم الأكسيس Access
يمكن مزامنة الشريط مع الاستعلام عندما تكون هناك حلقة تكرارية في الأغلب .. ضع مثالك ليطبق عليه الإخوان 🙂 -
هل من الممكن عمل تقرير اكسس بالمؤشرات المتواجده بتقرير الاكسل المرفق
Moosak replied to أمير ادم's topic in قسم الأكسيس Access
أستاذنا البرناوي .. عمل جميل ومميز ماشاء الله .. 😊 ياليتك تشرح لنا فكرة الكود؟ .... وهل لوضعية معاينة قبل الطباعة خاصية خاصة لتطبيق الكود؟ 🙂 -
درس كيفية عمل قوائم ديناميكية متحركة :: طريقة مبتكرة بأقل كمية أكواد vba 🙂
Moosak replied to Moosak's topic in قسم الأكسيس Access
شكرا لكم جميعا 🙂🌷 الحمدلله أن الاهتزاز غير ملاحظ .. -
السلام عليكم ورحمة الله وبركاته 🌹 درسنا اليوم عن طريقة عمل قوائم ديناميكية متحركة بأقل عدد من الأكواد وطريقة مبتكرة . 🙂 النتيجة النهائية : الشرح : تحميل الملف : Dynamic Menus.accdb
- 14 replies
-
- 12
-
المساعدة فى جعل مجموعة حقول تعرض قائمة باسماء النماذج
Moosak replied to elghoultk's topic in قسم الأكسيس Access
-
شوقتنا نعرف تفاصيل أكثر عن البرنامج ؟ 😊
-
طريقة الفرز بحروف الأبجدية في الجدول وفي النموذج الفرعي
Moosak replied to سامي سامي الجزائر's topic in قسم الأكسيس Access
وعليكم السلام ورحمة الله وبركاته .. 🙂 في خصائص النموذج .. والنتيجة : وفي خصائص التقرير كذلك .. والنتيجة : ترتيب حسب اللقب.accdb -
هل من الممكن ان اضع نموذج مستمر داخل نموذج مستمر
Moosak replied to Elsayed A Eldiasty's topic in قسم الأكسيس Access
حسب تجربتي خلي النموذج المستمر الفرعي في الفوتر Footer للنموذج المستمر الأب .. واربط بينهم بحقل ال ID مثلا .. وبتلقى أنه النموذج المستمر الفرعي تتغير بياناته كلما انتقلت من سجل لآخر في النموذج المستمر الأب .. 🙂 -
الحل الأسهل ممكن تمد حقل العنوان على عرض التقرير وتنسق النص على (توسيط) .. بيجي معاك في النص دائما 🙂
-
يمكنك التحايل على هذه المشكلة بزرع ملف نصي في الجهاز يكتب فيه تاريخ التنصيب مثلا .. وتكتب أكواد لقراءته والبحث عنه 🙂