عبد الله قدور

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

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

للرفع

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

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بالنسبة لي انا استخدم الطريقة التالية اضيف جدول باسم options اضع فيه اعدادات و القيم الافتراضية التي اريدها للكائنات في النموذج الاصلي استخدم الدالة dlookup لاحضار القيمة الافتراضية للكائنات بهذه الطريقة يستطيع المستخدم تحديد القيم الافتراضية كما يشاء وبسهولة

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

انا ايضا لا اجد شي يستحق الترقية ولا ادري لماذا ماكرو سوفت تهمل تطوير الاكسس ، من 2016 تقريبا لا يوجد شيء جديد

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

السلام عليكم سارسل لك رابط يعطيك اسماء ازرار الكيبورد في اكسس ويمكنك استخدامها في البرمجة بدلا من SENDKEYS الرابط وهذا مثال له If KeyCode = vbKeyF3 Then End If يمكنك وضع هذا لكود في حدث عند مفتاح للاسفل

حياك الله اخب ابو ابراهيم ما شاء الله نتيجة ممتازة اعطتني

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم اخواني الكرام عند استخدام الدالة Round في التقريب تقوم بتقريب 5 الى الاسفل وانا اريدها الى الاعلى فهل من حل لذلك ، علما ان نفس الدالة في الاكسل تقرب 5 الى الاعلى مثال الرقم : 15.5 يتم تقريبه او جبره الى 15 المطلوب جبره الى 16

السلام عليكم ورحمة الله وبركاته بالنسبة لي انا استخدم طريقة ثانية وهي اقوم بوضع اوامر sql في جدول واضيف عمود id مع عمود sql ثم استدعي الكود باستخدام الدالة dlookup ثم استدعيها بالكود التالي DoCmd.RunSQL DLookup("[sql]", "sql", "[id]=1")

السلام عليكم ورحمة الله وبركاته ماشاء الله مشاركة حلوة ومفيدة جزاكم الله كل خير جميعا

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم عندنا الدالة التالية تقوم باستخراج اسم اليوم ويظهر باللغة العربية كيف يمكنني اظهر اسم اليوم باللغة الانكليزية وكذلك اسم الشهر format(date(),"dddd")

السلام عليكم في النموذج bill المطلوب عند الضغط على زر نسخ الصورة يتم نسخ الصورة data.accdb

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

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

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

السلام عليكم ألف ألف مبارك أخي @ابو جودي بارك الله فيك وادامك ذخر للمنتدى

السلام عليكم ورحمة الله وبركاته اخي الكريم بحسب خبرتي في العمل المحاسبي التي وصلت الى 14 سنة تقريبا انصحك بعدم قفل العمليات وعدم السماح بتعديلها ، الاعمال التجارية تطلب منك في بعض الاحيان السماح بتعديل فاتورة قديمة او تعديل سند قديم ، اعرف ان هذا مخالف لقواعد المحاسبة لكن هذا هو الواقع وعندما يكون برنامج يقفل السنة ويمنعك من التعديل عليها لن تجد راغبين كثيرا في شراءه ، فالزبون يفضل ان يكون حرا في تحرير البيانات متى شاء أما بالنسبة لعملية الاقفال هي كالتالي : 1- تقوم بانشاء قاعدة بيانات جديدة 2- اتصل على القاعدة الجديدة 3- انقل شجرة الحسابات الى القاعدة الجديدة 4- انقل المستودعات الى القاعدة الجديدة 5- انقل المواد الى القاعدة الجديدة 6- انقل الحسابات الواجب تدويرها الى القاعدة الجديدة (بنود الميزانية) وضعها في سند القيد الافتتاحي 7- انقل بضاعة اخر المدة الى فاتورة بضاعة اول المدة هكذا بإذن الله تكون قد دورت الحسابات الى السنة الجديدة

هذا ما قصدت تماما اخي العزيز

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

اخي الكريم الطريقة المعروضة في الفيديو في الموقع هي افضل بكثير من هذه الطريقة يمكنك مراجعة الموقع والكود الرابط

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم اخواني الكريم بعد بحث مطول عن كود ارسال رسائل الواتس اب عن طريق الاكسس حصلت على هذا الكود لكني لم استطيع تحديد المتغيرات المطلوب اضافتها في الكود وهي INSTANCE_ID = "YOUR_INSTANCE_ID_HERE" CLIENT_ID = "YOUR_CLIENT_ID_HERE" CLIENT_SECRET = "YOUR_CLIENT_SECRET_HERE" Sub Main_Routine() ''' The first parameter is the recipient's number, including the country code. ''' The second paramter is the content of the message. WhatsAppMessage_Send "12025550108", "God Loves You" ''' TODO: Specify the recipient's number here. NOT the gateway number End Sub Sub WhatsAppMessage_Send(ByRef strNumber As String, ByRef strMessage As String) Dim INSTANCE_ID As String, CLIENT_ID As String, CLIENT_SECRET As String, API_URL As String Dim strJson As Variant Dim sHTML As String Dim oHttp As Object ''' TODO: Replace the following with your gateway instance ID, your Forever Green client ID and secret: INSTANCE_ID = "YOUR_INSTANCE_ID_HERE" CLIENT_ID = "YOUR_CLIENT_ID_HERE" CLIENT_SECRET = "YOUR_CLIENT_SECRET_HERE" API_URL = "http://api.whatsmate.net/v3/whatsapp/single/text/message/" & INSTANCE_ID strJson = "{""number"": """ & strNumber & """, ""message"": """ & strMessage & """}" Set oHttp = CreateObject("Msxml2.XMLHTTP") oHttp.Open "POST", API_URL, False oHttp.setRequestHeader "Content-type", "application/json" oHttp.setRequestHeader "X-WM-CLIENT-ID", CLIENT_ID oHttp.setRequestHeader "X-WM-CLIENT-SECRET", CLIENT_SECRET oHttp.Send strJson sHTML = oHttp.ResponseText MsgBox sHTML End Sub

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم عندي قصائد اريد تنسيقها في الوورد كما قصائد الشعر العربي العمودي بحثت كثير عن اداة تضاف على الوورد تقوم بالتنسيق فلم اجدها ممكن ، هل ممكن مساعدتي في ايجاد الاداة التي تضاف الى الوورد والتي تقوم بالتنسيق فكرة استخدام ثلاثة اعمدة وكتابة القصيدة داخلها لم ترق لي ارجوا مساعدتي في ايجاد الأداة التي تقوم بالتنسيق علما اني استخدم اوفيس 2019 64 بت