عبد الله قدور

وفي حال أردت التنقل بين السجلات بضغط المستمر على زر الماوس ضع الحدث الذي تريده ضع أي كود اتصال الذي تريده في حدث عند التركيز

السلام عليكم ضع هذه الاكواد في وحدة نمطية Function FirstRcd(Frm) If Frm.Dirty = False Then On Error GoTo err: DoCmd.GoToRecord , "", acFirst Exit Function err: If err.Number = 2105 Then MsgBox "لا يمكن الذهاب إلى السجل المطلوب", vbCritical + vbMsgBoxRight, "خطأ" End If Else MsgBox "تم تغيير محتويات النافذة يرجى الحفظ التغييرات", vbCritical End If End Function Function NextRcd(Frm) If Frm.Dirty = False Then On Error GoTo err: DoCmd.GoToRecord , "", acNext Exit Function err: If err.Number = 2105 Then MsgBox "لا يمكن الذهاب إلى السجل المطلوب", vbCritical + vbMsgBoxRight, "خطأ" End If Else MsgBox "تم تغيير محتويات النافذة يرجى الحفظ التغييرات", vbCritical End If End Function Function prevRcd(Frm) If Frm.Dirty = False Then On Error GoTo err: DoCmd.GoToRecord , "", acPrevious Exit Function err: If err.Number = 2105 Then MsgBox "لا يمكن الذهاب إلى السجل المطلوب", vbCritical + vbMsgBoxRight, "خطأ" End If Else MsgBox "تم تغيير محتويات النافذة يرجى الحفظ التغييرات", vbCritical End If End Function Function LastRcd(Frm) If Frm.Dirty = False Then On Error GoTo err: DoCmd.GoToRecord , "", acLast Exit Function err: If err.Number = 2105 Then MsgBox "لا يمكن الذهاب إلى السجل المطلوب", vbCritical + vbMsgBoxRight, "خطأ" End If Else MsgBox "تم تغيير محتويات النافذة يرجى الحفظ التغييرات", vbCritical End If End Function ثم في أي نموذج اكسس يمكنك التنقل بين السجلات باستخدام الاكواد التالية الانتقال الى السجل الاول Call FirstRcd(Me) الانتقال الى السجل السابق Call prevRcd(Me) الانتقال الى السجل التالي Call NextRcd(Me) الانتقال الى السجل الاخير Call LastRcd(Me)

السلام عليكم اخي العزيز @ابو خليل تشرفت بمرورك على مشاركتي طبعا اكيد اطلعت على الرابط لكن المشكلة ليست ان ملف الاكسس لا يعمل بل نافذة اختيار الالوان لا تظهر التي في الصورة كانت في 32 تظهر لاختيار اللون ولكن لما نقلت الى 64 وحليت مشكلة التي اشرت لها في الرابط اصبحت هذه النافذة لا تظهر

السلام عليكم لم يفلح الامر اخي الكريم

السلام عليكم اخواني الكرام عندي هذا الكود استخدمه لاستعراض مربع الألوان لاختار منه لون ويتم حفظ اللون في الجدول لكن بعد تعديل نسخة الاوفيس الى 64 بت لم يعد يظهر مربع اختيار اللون ويصبح اللون اسود مباشرة فهل هناك من حل لهذه المشكلة Public Function aDialogColor(ByVal hwnd As Long) As Long Dim x As Long, CS As COLORSTRUC, CustColor(16) As Long CS.lStructSize = Len(CS) If hwnd <> 0 Then CS.hwnd = hwnd Else CS.hwnd = Application.hWndAccessApp End If CS.Flags = CC_SOLIDCOLOR CS.lpCustColors = String$(16 * 4, 1) x = ChooseColor(CS) If x = 0 Then ' ERROR - use Default White 'prop = RGB(255, 255, 255) ' White aDialogColor = "112112125" 'False Exit Function Else ' Normal processing aDialogColor = CS.rgbResult End If End Function

السلام عليكم يمكنك تحويل قاعدة البيانات الى sql ورفعها على AZURE ثم يتم الاتصال بها طبعا هذه الخدمة مأجورة من ماكرو سوفت هاد واحد راي ثاني يمكنك من خلال برنامج هماشي تابع الفيديو في الرابط التالي

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

للرفع

السلام عليكم قمت بتجربة سريعة فوصلت الى هذا الكود ينتقل الى السجل السابق فقط Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) Count = 1 If Page = True Then DoCmd.GoToRecord , , acNext ElseIf Page = False Then DoCmd.GoToRecord , , acPrevious End If End Sub

للرفع

السلام عليكم اخي @أبو عيد في المثال المرفق جدول بسيط لتسجيل دفعات في عمود الحساب تم تقييد البيانات بقاعدة التحقق من صحة البيانات التي مصدرها في العمود E نلاحظ ان كلمة ايجار في العمود e مكتوبة بهمزة وكذلك أصول ولكن عند اضافة البيانات كتابتاً او احضارها نسخ لصق من اي مكان اخر يقبل عمود الحساب كلمة ايجار بدون همزة ولا يعطي اشارة خطأ ويقبل الكلمة بدون همزة وعند تفحص البيانات المخالفة لصحة البيانات لا تظهر كلمة ايجار انها مخالفة المشكلة التي نواجها مع الهمزة في مكان اخر انه عند عمل pivot table يتم فصل كلمة ايجار عن إيجار في عرض مجاميع الحسابات

السلام عليكم اخي الكريم انا مجبر على وضع البيانات -مصدر التحقق من صحة البيانات- في خلايا بسبب كثرة البيانات و السماح للمستخدم بادخال بيانات جديدة او التعديل على القديمة

السلام عليكم اخواني الكرام كيف يمكنني ان الزم المستخدم بكتابة الهمزة في حال استخدام ميزة التحقق من صحة البيانات المصنف1.xlsx

السلام عليكم اخي الكريم هناك طريقة اخرى يمكن من خلالها الحصول على كشف حساب عن طريق الاستعلامات وتحتاج الى التعديلات التالية 1- يفضل ان تكون التسديدات والفواتير في جدول 2- يجب اضافة اعمدة جديدة للجداول تحمل نفس اسماء اعمدة كشف الحساب 3- تقوم بانشاء الاستعلام يدمج الجداول كلها في جدول واحد وتحصل على النتيجة

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

جزاك الله كل خير لكن هذا الامر يحتاج الى outlook وفي حال عدم وجوده لن ترسل الرسالة وان ارسلت سيراها المستخدم في الاوت لوك في الصادر المطلوب عدم اطلاع المستخدم على هذه الرسالة ابدا

السلام عليكم اخواني الكرام استخدمت الدالة =CONCATENATE(A1;A2;B1) في جمع النصوص ولكن عندي مشكلة هي ان بعد النص الثاني اريد أن انزل سطر للاسفل يعني ابدأ من اول السطر بعد النص الثاني فما الحل

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

السلام عليكم اخي الكريم انا استخدم الكود التالي في خاصية القيمة الافتراضية لمربع النص وهو يقوم باحضار اخر تاريخ في الجدول وان لم يجد اي سجل في الجدول فيعطي تاريخ اليوم =Nz(DLast("[dadate]";"tbldaily");Date())

هل عندك طريقة يستطيع الكود من خلالها معرفة إذا كانت ي في آخر الكلمة هي صحيحة ولا يجب استبدالها أم هي خاطئة ويجب استبدالها للاسف أنا لا أملك هذه الكود

السلام عليكم اتمنى ان يكون هذا الحل يكفي بالغرضUpdate.mdb

السلام عليكم قم بتغيير هذه الخاصية إلى نعم

السلام عليكم انشاءت نموذج غير مرتبط بالجدول ووضعت العناصر اللازمة لاستعراض البيانات وقمت باستعاء البيانات من الجدول باستخدام openrecordset وربطها بمربعات النص وظهر عندي السجل الاول صحيح وعدد السجلات صحيح لكن ما كود التنقل بين السجلات لاستعراضها في النموذج اعتذر عن رفع المرفق عندي مشكلة في النت ولم يرفع المرفق بعد المحاولة مرارا وتكرارا

السلام عليكم @ebnjabalapp اخي الكريم بما أنك تنتظر ردي فوجب علي تجربة الكود رغم ضيق الوقت عندي ، لكن لما وضعت الكود في الوحدة النمطية ظهرت لي الرسالة التالية واظنها ناجمة عن أني استخدم نسخة اوفيس 64 فهل هناك حل برأيك

السلام عليكم هذا ملف مرفق للتعديل عليه واسف على التأخير @ebnjabalapp @أ / محمد صالح Database3.accdb