عبد الله قدور

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

السلام عليكم اخواني الكرام عندي هذا الكود استخدمه لاستعراض مربع الألوان لاختار منه لون ويتم حفظ اللون في الجدول لكن بعد تعديل نسخة الاوفيس الى 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

السلام عليكم كيف حالك استاذي الكريم والله معلومة مهمة جدا لكن اذا كان الكود يقوم بنقل عدة سجلات باستخدام do او for هل يقوم بالغاء كل السجلات المنقولة ام السجل الذي ظهر في الخطأ فقط

للرفع

السلام عليكم اخواني الكرام عندي جداول مرتبطة اقوم بنقل البيانات من جدولين إلى جدولين آخرين باستخدام استعلام الحاق ومن ثم وضعت كود الاس كيو ال في جدول مستقل واستخدمت الامر التالي في تنفيذه DoCmd.RunSQL DLookup("[sql]", "sql", "[id]=2") والان وضعت الكود التالي لنقل البيانات بين الجداول Set db = CurrentDb() Set Rcd = db.OpenRecordset("entryh") Dim a As Boolean a = False Rcd.MoveFirst Do Until Rcd.EOF If Rcd!Id = Me.DaId And Rcd!Ref = Me.DaType Then Rcd.Delete a = True End If If a = True Then Exit Do End If Rcd.MoveNext Loop Set Rcd = db.OpenRecordset("entryH") Rcd.AddNew Rcd!Id = Me.DaId Rcd!Ref = Me.DaType Rcd!EnDate = Me.DaDate Rcd!Note = Me.Note Rcd!CurId = Me.CurId Rcd!CurPrice = Me.CurPrice Rcd!CosId = Me.CosId Rcd.Update Rcd.Close Set db = Nothing End Function فأيهما اسرع في تنفيذ عملية النقل وجزاكم الله كل خير