بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
2,155 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
78
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Foksh
-
تصدير البيانات من الاكسس الى ملف ورد معد مسبقا وحفظه
Foksh replied to MSI's topic in قسم الأكسيس Access
جرب هذا الكود ، مع تعديل مربع النص الذي به الرقم المتسلسل Dim W As Object Set W = CreateObject("Word.Application") W.Documents.Open "C:\Users\MH\Desktop\test.docx" W.Visible = True W.ActiveDocument.bookmarks("txtname").Select W.Selection.InsertAfter Me.nname.Value W.ActiveDocument.bookmarks("txtarea").Select W.Selection.InsertAfter Me.area.Value W.ActiveDocument.bookmarks("txttele").Select W.Selection.InsertAfter Me.tele.Value ' تم إضافة السطر التالي لحفظ ملف الورد برقم المسلسل W.ActiveDocument.SaveAs "C:\Users\MH\Desktop\" & Me.SerialNumber.Value & ".docx" -
كيفية جمع القيم الموجودة في مجموعة من الحقول في الأكسيس ؟
Foksh replied to أبو علياء عاطف's topic in قسم الأكسيس Access
اخي الكريم محرر أكواد VBA محمي بكلمة مرور -
أستاذنا الكبير @Moosak هو لم يكن تحديث بالمعنى الحرفي . أنا فقط اختلطت علي الأمور في التعبير أثناء كتابة الرد . وقمت بشرح نقطة كانت موجودة أساساً ولكني تطرقت إليها وفي حال وجود تحديثات جديدة ، لن أتأخر في طرحها وتحديث الروابط
-
كيفية جمع القيم الموجودة في مجموعة من الحقول في الأكسيس ؟
Foksh replied to أبو علياء عاطف's topic in قسم الأكسيس Access
اخي الكريم ارسل ملف للتعديل عليه 😊 -
تم تعديل العبارة بشكل تعبيري أفضل أستاذي الكبير @Moosak شكراً لك تنبيهي لإعادة صياغة العبارة السابقة
-
أخي @iyad mohamad هذه تجربتي المتواضعة 😅 قمت باعتماد فكرة الرسالة للمستلم لقراءة الرسالة أم لا ، وعند اختيار نعم يتم فتح النموذج لقرائتها ، وإذا لا فلا يتم فتح صندوق الرسائل وتبقى الرسالة معلقة ، وعند قرائتها سيضطر للخروج من صندوق الرسائل بالضغط على زر × ، وهنا سيتم الإشارة ✓ في Check Box لتأكيد الاستلام ، وسيأتي الرد للمرسل برسالة تم قراءة الرسالة . هذا اقتراح بسيط قمت بتطبيقه على نموذج الرسالة المستلمة ، ولك حرية التعديل طبعاً ، فهو برنامجك 🤪 قم بتجربة الملف على شبكة ، وأعطني رداً بأي نتيجة كانت ،، test.accdb
-
تفضل أخي الكريم @sm44ms ، اجعل مصدر مربع النص ASQ هذا السطر :- =DCount("*";"Table1";"[Status] = 'استقالة'") وسيعطيك عدد السجلات التي الحالة للموظف = استقالة . طبعاً قمت بتغيير تسمية حقل ( حالة البطاقة ) إلى Status ؛ لتلافي الأخطاء في الكود مع وجود مسميات باللغة العربية . يا أخي أنا اليوم حظي وافر وجميل لمصادفتي لك مرتين متتاليتين
-
أخي الكريم ، كنوع من ضبط الحل ، هل لك بإرسال ملف يحتوي على جدول وفيه جزء من البيانات ونموذج حتى نحقق لك مرادك
-
السلام عليكم ورحمة الله وبركاته في ملاحظة جانبية سأتطرق إليها للتوضيح في نقطة قد يتساءل البعض عنها في هذا الجزء For i = 0 To UBound(arLabels) UpdateLabel frm, "Label" & CStr(i + 1), arLabels(i), enLabels(i) UpdateLabel frm, "Command" & CStr(i + 1), arLabels(i), enLabels(i) Next i End Sub تمت إضافة هذا الجزء من الكود ليشمل الـ Lable كما في الجزء الأول ، والـ Command في الجزء الثاني. حيث أن المسميات ستكون متبوعة برقم وهو الذي سيحدد رقم السطر في ملفات اللغة ( Arabic , English ) ، فهنا نستطيع التوحيد في مسميات البرنامج ( كتوحيد المقامات في الرياضيات 😅 ) طبعاً هنا سنحتاج جزء واحد من السطر ، ولنفترض أن الكود سيصبح بهذا الشكل:- For i = 0 To UBound(arLabels) UpdateLabel frm, "Officna" & CStr(i + 1), arLabels(i), enLabels(i) Next i End Sub هنا قمت بتوحيد جميع العناصر والكائنات في المشروع ( مربعات نص ، ليبلات ، ازرار ..... إلخ ) تحت اسم Officna وهنا يسهل علينا - وكما ذكر معلمنا الفاضل @ابوخليل - حفظ المسميات وسهولة الوصول إليها وتحديدها .. ودمتم بخير 🤗
-
اعتذر أخي الكريم وأستاذنا @kanory على المداخلة ، قمت بالرد وتفاجأت بردك ومتابعتك بعد التحديث 😬
-
أخي الكريم قم بتجربة إضافة هذا الجزء قبل الجزء المسؤول عن الحفظ والتصدير .. ' تحديد نطاق الورقة بأكملها Dim rngSheet As Object Set rngSheet = objWorksheet.UsedRange ' يمكن تغيير هذا حسب احتياجاتك ' قم بتحديد خاصية NumberFormat لتنسيق الخانات التي تحتوي على الأرقام rngSheet.NumberFormat = "0"
-
أختي الكريمة ، لتجدي الإجابة المناسبة لطلبك ، ارفقي ملف يتم التطبيق العملي عليه ، وذلك لعدم معرفة تفاصيل الجدول وحقوله ، والحقول التي في النموذج .... إلخ من تفاصيل مجهولة. دمتي بخير 🤗
-
لا يوجد عندي فكرة محددة في الوقت الحالي اذا كانت الطريقة ممكن تكون برمجياً ، ولكن ان وجدت شيئاً ستجده هنا إن شاء الله .
-
استدعاء آخر تاريخ فى التقارير وفى نموذج طباعة مستمر
Foksh replied to gamal gamal's topic in قسم الأكسيس Access
ولا يهمك أخي الكريم ، قد يكون الأمر غاب عن بالي ولم التفت لهذه النقطة -
أخي الكريم ، اتبع ما يلي لتحقيق هدفك . ثم بالعودة إلى إكسل قم بتطبيق ما يلي لتبديل تنسيق الأرقام والتاريخ . وهذه النتيجة
-
جرب فكرة إنشاء قاعدة بيانات جديدة ، و قم بإستيراد المكونات والعناصر بشكل عام من القاعدة القديمة ، وإذا لم يتم إنجاز الحل ، فحاول ارسال قاعدة البيانات لإطلاع على السبب وتحديد المشكلة فيها.
-
استدعاء آخر تاريخ فى التقارير وفى نموذج طباعة مستمر
Foksh replied to gamal gamal's topic in قسم الأكسيس Access
تفضل اخي الكريم @gamal gamal ، هل هذا طلبك ؟ القضايا.accdb -
تفضل يا صديقي ، هذا طلبك ؟ basept.accdb
-
استدعاء آخر تاريخ فى التقارير وفى نموذج طباعة مستمر
Foksh replied to gamal gamal's topic in قسم الأكسيس Access
في اي تقرير سيكون عرض آخر جلسة للقضايا ؟؟ -
حدث يخرج نتيجة مئوية داخل حقل من خلال معطيات حقلين اخرين
Foksh replied to Abdelaziz Osman's topic in قسم الأكسيس Access
استخدم الدالة Round ، وهذا تعديل على مثالي في مشاركة سابقة Private Sub value2_AfterUpdate() ' التأكد من أن القيمة في الحقل الأول (value1) ليست صفر If Nz(Me.value1, 0) <> 0 Then ' حساب النسبة المئوية Dim percentageValue As Double percentageValue = (Me.value2 / Me.value1) * 100 ' تقريب النتيجة لأقرب عدد كسري مع حد أقصى من خانتين عشريتين Me.percentage = Round(percentageValue, 2) & " %" End If End Sub -
مشكله فى كود الخاص بإخفاء عناصر قاعدة البيانات
Foksh replied to tharwt's topic in قسم الأكسيس Access
تأكد من المكتبات اخي الكريم أولاً . -
طلب مساعده في نقل باليانات من النموذج الرئيسي الى جدول فرعي
Foksh replied to imad2024's topic in قسم الأكسيس Access
أعتقد أن هذا يعتمد على مشاركاتك ومساهماتك في المنتدى ، فكلما زادت يزداد التقييم والتصنيف الخاص بعضويتك ، وبالتالي ميزاتك ستكون أكبر 😊 نتمنى للجميع أعلى المراتب في دينهم وعلمهم . -
برنامج "Access Runtime" هو نسخة من Microsoft Access تم تصميمها لتشغيل تطبيقات قواعد البيانات التي تم إنشاؤها باستخدام Microsoft Access بدون الحاجة إلى وجود نسخة كاملة من Microsoft Office على الكمبيوتر الذي يقوم بتشغيل التطبيق. فهو يمكّنك من تشغيل مشاريع Access دون الحاجة إلى تثبيت نسخة كاملة من Microsoft Office على جهاز الكمبيوتر . ويعتبر هذا خياراً مفيداً إذا كنت ترغب في توزيع تطبيق Access لمستخدمين لا يحتاجون إلى تحرير التصميم أو الإنشاء. ومع ذلك، يجب أن تكون النسخة من "Access Runtime" متوافقة مع إصدار الـ Access الذي تم إنشاء التطبيق به. بمعنى آخر، إذا كانت قاعدة البيانات الخاصة بك تم إنشاؤها باستخدام Access 2016، عليك استخدام Access Runtime 2016 أو إصدار أحدث لتشغيل التطبيق. وبالطبع يُذكر أن "Access Runtime" تُستخدم فقط لتشغيل التطبيقات ولا توفر إمكانيات التصميم أو التحرير
-
وبارك بك أخي الكريم ،