بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
كل الانشطه
- الساعة الأخيرة
-
قلة تركيز DLookup_01.accdb
- Today
-
ابوخليل started following ما الخطأ هنا في دالة DlookUp مع التاريخ و دمج مربع نص في تقرير
-
اعتقد يريد شبيه هذا تطبيق على مثال من عمل اخونا @jjafferr مثال2.rar
-
السلام عليكم احبتي .. احاول جلب تاريخ من جدول tbl2 بما يماثله من جدول tbl1 داخل الاستعلام ولكنه لا يستجيب ايضا حاولت جلبه من خلال رسالة في النموذج ولكنه لا يستجيب حاولت مرارا وتكرارا .. عجيب جدا .. شروط الدالة صحيحة ، وايضا المكتبات صحيحة قد تكون المشكلة عندي فقط .. لذا اعرضه عليكم d8.rar
-
جزاك الله خيرا وبارك فيك ابا احمد سوف اعمل عليه .. واطوع الاستعلامات لاستخراج ما اريد
-
تم تتقيح الأكواد. تم حذف الاستعلام qryAddMissingEmps لعدم الحاجة له بعد تنقيح الأكواد. تم حذف الفهرس من حقل UserId للجدول tblAttendanceAll. Attendance_11.rar
-
السلام عليكم أخي @منتصر الانسي بعد التجربة شغال بامتياز ويؤدي المطلوب على أكمل وجه وبدون مشاكل فكرة ممتازة جزاك الله كل خير وجعلها في ميزان حساناتك. كما أتوجه كذلك بخالص الشكر والامتنان لأخي @Foksh
- Yesterday
-
معرفة ترتيب كل طالب في نموذج منفرد عن طريق القيام بعملية الفلترة
moho58 replied to moho58's topic in قسم الأكسيس Access
تحية طيبة أستاذنا الفاضل @ابوخليل معذرة على التأخر في الرد بعد التجربة ظهر الخطأ كما في الصورة 1 أستاذنا فيما يخص الفلترة: عند القيام بعملية الفلترة يعطينا ترتيب كل طالب وكذا مجموع الطالب حسب ما اخترناه من النموذج السابق عند استعمال العملية count (*) عند القيام بالفلترة يعطيني مجموع الطلاب دائما 1 وفي المثال الموضح في الصورة 1 مجموع الطلاب هو 8 أستاذنا يرجى التأكد كذلك من صحة العلاقة الموجودة في نموذج frm_modul بين الجدولين info_stagiere و modul بين الحقلين ID و id وبارك الله فيك -
تم تصحيح مرفقك واضافة دالة منع اغلاق اكسس وعند Taskbar win @منتصر الانسي جرب المرفق تحميل المرفق https://www.mediafire.com/file/w4ro360p6l47rhp/SetFormBackColors_v1.2.rar/file وما اقدر ارفع في الموقع ============================================================( تجربة لمشروعك ) انسخ الدالة ونموذج start اضافة الى نموذج الاقلاع فتح نموذج ومخفي DoCmd.OpenForm "start", , , , , acHidden
-
اريد زيادة حجم الخط في مربع النص في التقرير اكبر من 127
منتصر الانسي replied to عبد الله قدور's topic in قسم الأكسيس Access
يوجد حل غير مباشر ستجده في المرفق مع تحياتي تكبير حجم الخط.rar -
استاذى الفاضل ومعلمى منتصر اشكرك علي اهتمامك بمساعدتى فى تعديل الكود لكن قمت بإضافة كود فتح التفرير Docmd.openreport"youssef",acViewPreview وعند الضغط علي الزر يفتح التقرير ثم يختفى عند ظهور الرسالة التى تسأل هل تريد الطباعة ام لا ارجو من حضرتك جعل التقرير يكون مفتوح امامى وتظهر الرسالة فى وجود التقرير لكى اختار yes للطباعة اوno للغلق للك خالص الشكر والتقدير والاحترام
-
عليكم السلام اخي المحترم (منتصر الانسي) شكرا على المحاوله ولكن ليس هذا المطلوب اذ ارفقت مثال في الصورة حيث ان الاسم مكرر والمطلوب ان لايتكرر الاسم مع الشكر والتقدير
-
تعديل على كود حفظ وثائق بجانب قاعدة البيانات
منتصر الانسي replied to moho58's topic in قسم الأكسيس Access
أتفق مع الأستاذ فادي فلا توجد أي طريقة إلا بتمييز إسم الملف بقيمة فريدة لا تتكرر ومن خلال المثال الخاص بك فهذه القيمة هي قيمة الحقل ID عموما قمت بالتعديل على الكود الخاص بمثالك ووضحت ما قمت بتعديله من خلال التعليقات أرجو أن يكون الحل مناسبا لك مع تحياتي baseA.rar -
تمت المهمة، ويمكنكم تحسينه إذا احتاج لذلك. مشكلة الحضور لأني غفلت عن وجود وقت مع التاريخ ويفترض أن أتخلص من الوقت باستخدام دالة Fix تجنبت عمليات الحذف والإضافة للسجلات حتى لا تتضخم قاعدة البيانات مع الوقت وكل التحديثات باستخدام التعديل. اختبار جميع الموظفين ليوم واحد عن طريق إجراء Test بتمرير تاريخ معين. ويمكن استخدام دالة موظف واحد لشهر كامل باستدعاء منفصل بإضافتكم لإجراء آخر.
-
وعليكم السلام ورحمة الله وبركاته ,, فيما يخص الإيميل ، فهذه فكرة بسيطة من خلال النقر على مربع نص الإيميل على سبيل المثال :- Private Sub EMAIL_Click() Dim EmailAdd As String Dim GmailURL As String EmailAdd = Me.EMAIL.Value If Not IsValidEmails(EmailAdd) Then MsgBox "عنوان البريد الإلكتروني غير صالح", vbExclamation + vbMsgBoxRight, "" Exit Sub End If GmailURL = "https://mail.google.com/mail/?view=cm&fs=1&to=" & EmailAdd Application.FollowHyperlink GmailURL End Sub Function IsValidEmails(EMAIL As String) As Boolean Dim regex As Object Set regex = CreateObject("VBScript.RegExp") regex.Pattern = "^[\w-\.]+@([\w-]+\.)+[\w-]{2,4}$" regex.IgnoreCase = True IsValidEmails = regex.Test(EMAIL) End Function والطلب الثاني ، وهو فتح واتس أب ويب على دردشة محددة للرقم الذي تم النقر عليه ، حذح محاولتي البسيطة ( مشتقة من أحد ملفاتي سابقاً ) .. Private Sub MOB_Click() Dim WhatsURL As String Dim PhoneNum As String PhoneNum = Me.MOB.Value PhoneNum = CleanPhoneNum(PhoneNum) If PhoneNum = "" Then MsgBox "رقم الهاتف غير صالح", vbExclamation + vbMsgBoxRight, "" Exit Sub End If WhatsURL = "https://wa.me/" & PhoneNum Application.FollowHyperlink WhatsURL End Sub Function CleanPhoneNum(phone As String) As String Dim i As Integer Dim result As String result = "" For i = 1 To Len(phone) If IsNumeric(Mid(phone, i, 1)) Then result = result & Mid(phone, i, 1) End If Next i If Left(result, 2) = "00" Then result = Right(result, Len(result) - 2) ElseIf Left(phone, 1) = "+" Then result = Right(result, Len(result) - 1) End If CleanPhoneNum = result End Function
-
مطلوب تغيير لون خلفية مقطع تفاصيل النماذج والعناصر دفعة واحدة
منتصر الانسي replied to ابوخليل's topic in قسم الأكسيس Access
صراحة معنا بالمنتدى ثلاثة آباء مبهرين @ابوخليل و @ابو جودي و @ابو البشر ما شاء الله الأفكار رائعة والتنفيذ أروع نتعلم منه الكثير ألف شكر لكم وبالتوفيق إن شاء الله مع تحياتي -
لا أدري إذا كنت قد فهمت ماتقصده بالضبط ولكن قمت بتعديل ملفك وشاهد إذا كان هو المطلوب او لا مجلد جديد (3).rar
-
برامج تطبيقات الموبايل
0d59eacf59 replied to mohamadhaje's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
شكرا لك 192.168.100.1 192.168.1.1 -
آمين، وبارك الله فيكم، ونفعنا الله بما علمنا
-
جزاك الله خيرا ونفع الله بك
-
السلام عليكم احبتي الغوالي برنامج بسيط جدا الفكرة كالتالي اقوم بتسجيل اسماء العملاء وارقام الواتس اب والايميل بحيث عندما افتح التقرير اختار عميل وبجرد ان اكبس على رقم هاتفه يحولني البرنامج تلقائيا الى واتس اب ويب على جهازي الكمبيوتر ويفتح لي دردشة مع نفس الرقم الذي اخترته والايميل نفس الفكرة بمجرد ان اكبس على الايميل ينقلني الى جي ميل واراسل البريد الذي اخترته جزاكم الله خيرا مرفق قاعدة البيانات للتطبيق عليها CONTACT 2025.accdb