عبد الله قدور

جربت الكود واشتغل بالتصدير الى اكسل لكن ليس هذا المطلوب اريد التصدير الى xml وهذا المرفق الذي اعمل عليه الان Database1.accdb

السلام عليكم اخي الكريم انا اريد تصدير كل الجداول الى xml وليس اكسل

السلام عليكم اخي الكريم @Khalf حياك الله وبياك لم استطع حل المشكلة هل يمكن التطبيق على قاعدة البيانات المرفقة اخي الكريم @أبو إبراهيم الغامدي حياك الله وبياك لم استطع تطبيق الكود الذي ارسلته لي هل يمكن التطبيق على قاعدة البيانات المرفقة وجزاكم الله كل خير Database1.accdb

السلام عليكم اخي الكريم @Khalf تظهر هذه الرسالة ولا يتم التصدير

السلام عليكم اخواني الكرام عندي عدة جداول اريد ان اصدر هذه الجداول كلها الى ملف xml واحد لانه عند تحديد اكثر من جدول يتم يتم الغاء تفعيل زر تصدير الى xml فحل من حل؟

وعليكم السلام ورحمة الله وبركاته ممكن تضع مرفق للتعديل عليه

أهلا وسهلا بك اخي الكريم لا شكر على واجب هذه الطريقة التي ذكرتها لك سابقا هي المعتمدة في برامج المحاسبة الكبيرة مثل الامين والميزان و . .و . . لذلك اعتمد عليها وتوكل على الله وبهذه الطريقة ان تحصل على القيمة التاريخية لكل الفواتير بالعملة الحقيقية والعملة الرئيسية (الوظيفية) وبوجود جدول العملات تستطيع منه تقييم كل الفواتير بالقيمة الحقيقية لها حاليا وتحسب فروقات اسعار الصرف لا تنسى ايضا ان بعد الفواتير يجب ان يكون هناك ميزان مراجعة ومتاجرة وارباح وخسائر وميزانية وكل هؤلاء يجب ان يكونوا بالعملة الرئيسية (الوظيفية) وهذه هي الطريقة المثلى للحصول عليها وحساب فروقات اسعار الصرف

السلام عليكم في تنسيق مربع النص ضع اصفار بعدد الخانات المطلوبة

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

اهلا بك استاذي الكريم ابو ابراهيم الغامدي حياك الله وبياك قمت بالاتصال بقاعدة بيانات sql من الاكسس فكانت كل المفاتيح الرئيسية فيها تعتمد على هذا النوع من البيانات قد يكون ذلك لحماية البيانات او هناك سبب أخر يعني بعبارة سورية (مجبرٌ صاحبك لا بطل)

للرفع

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

السلام عليكم حياك الله اخي الكريم اليك رابط التحميل رابط درايف

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

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

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

السلام عليكم من بعد اذن استاذنا ابو جودى نفس المرفق بعد تعديله ليعمل على نسخة 64 OfficenaKeyboardUtility {V. 2.0.0}.mdb

السلام عليكم جزاك الله كل خير اخي الكريم فكرة جيدة وكنت افكر بشي مماثل لفكرتك لكن لم يسعفني الحظ في تجربته لاني استخدم نسخة 64 والمرفق لم يعمل عليه فان امكن نسخة ل 64

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

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

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