هيثم أحمد

Up

انا وصلت للكود ده بس الناتج هو ا Tabcontrol index Private Sub SetPartNumbers(ByVal n As Long) Dim i As Long Dim s As String s = "1" For i = 2 To n s = s & ";" & i Next i Me!Combo1.RowSource = s End Sub حيث n= tabcontrol.pages.count بس انا محتاج استبدل الاندكس باسم التاب

السلام عليكم ورحمة الله وبركاته هل في امكانية لجلب اسماء صفحات ال tabcontrol ووضعهم في Combobox بمعني لو عندي ٣ صفحات كيف يمكن تعبئة كومبوبوكس باسماء الصفحات

الاخ حسين اكرمك الله ممكن نسخه البرنامج لان اللينك لا يعمل

Up

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

اخي الكريم الموضوع الذي احلتني عليه ممتاز ولكن يشترط ان تكون ورقات العمل متسلسله فماذا اذا اردت انتقاء ورقات عمل متفرقه بمعني الورقة رقم 1 ثم 5 ثم 7 ثم 8و9 ثم 10 فما اردته هو ان يقوم الاكسيس بجلب اسماء الشيتات في combo box مع امكانية اختيار اسماء الشيتات المطلوب استيرادها فهل لها من سبيل لتنفيذ المطلوب بارك الله فيك وبذلك نكون قد جمعنا كل اختيارات الاستيراد في نموذج واحد 1- استيراد ملف الاكسيل بالكامل 2- استيراد مجموعة شيتات او ورقات عمل متسلسله 3- اختيار ورقات عمل متفرقة برجاء المساعدة مع خالص الشكر والامتنان

الاخوة الكرام السلام عليكم ورحمة الله وبركاته برجاء المساعدة اذا اردنا ان نستورد اكثر من ورقة عمل من نفس ملف الاكسيل بمعني انه فرضا عندي 10 ورقات عمل واريد استيراد 6 ورقات عمل فقط فما هي الطريقة لعمل ذلك انا قمت بعمل COMBO-BOX يظهر اسماء ورقات العمل ويكون من النوع MULTI-VALUE لكي نتمكن من اختيار اكثر من ورقة عمل في نفس الوقت واستيرادهم كيف يمكن كتابة كود لهذا الامر الملف المرفق يمكن استيراد ملف اكسيل كامل ولكن انا اريد امكانية استيراد مجموعة ورقات عمل او شيتات او استيراد الملف بالكامل مرفق الملف excel to access.rar

بعد اذن الاخ صاحب الموضوع اذا اردنا ان نستورد اكثر من ورقة عمل من نفس ملف الاكسيل بمعني انه فرضا عندي 10 ورقات عمل واريد استيراد 6 ورقات عمل فقط فما هي الطريقة لعمل ذلك هل يمكن عمل COMBO-BOX يظهر اسماء ورقات العمل ويكون من النوع MULTI-VALUE لكي نتمكن من اختيار اكثر من ورقة عمل في نفس الوقت واستيرادهم كيف يمكن كتابة كود لهذا الامر انا لم اجد جوابا عن هذا الموضوع في اي منتدي لا اجنبي ولا عربي او لعلي لم اوفق في الحصول علي اجابة

جزاك الله خير الجزاء

up

السلام عليكم ورحمة الله وبركاته الاخوة الافاضل كيف يمكن استيراد ملف اكسيل مع اتاحة الفرصة للمستخدم انه يقوم بتحديد الصف الذي يبدأ من عنده استيراد البيانات بمعني اذا كانت البيانات المطلوب استيرادها تبدأ من الصف الخامس كيف يمكن ادراج مربع نص لادخال نموذج الاستيراد لادخال رقم الصف انا بحثت كثير جدا عن استيراد الاكسيل بمدي متغير ولم اجد Import excel file with dynamic range

الاخوه الافاضل هل من طريقة لاضافة مكان موثوق trusted location للاكسيس 2010 . 2013 . 2016 برمجيا عندي برنامج وعند نقله عي جهاز اخر يخرج رسالة تمكين المحتوي . فهل من الممكن شرح طريقة لاضافة مكان موثوق للبرنامج . مع خالص الشكر

للرفع

السلام عليكم ورحمة الله وبركاته الاخوه الكرام هل يمكن عمل Speed meter بالاكسيس مثل الموضح بالصورة

السلام عليكم ورحمة الله وبركاته قمت بعمل دالة بمساعدة من موضوع علي المنتدي لتصدير التقارير الي PDF واريد ادخال اسم التقرير كمتغير في الدالة هل من طريقة لعمل Module به الFunction ونقوم باستدعاء الدالة ومن ثم اسم التقرير بدلا من كتابة الدالة كل مرة نقوم فيها بالتصدير الي PDF Function getFilName(PDFName As String, RepName As String) As String Dim fDialog As Object Set fDialog = Application.FileDialog(msoFileDialogSaveAs) Dim varFiles As Variant With fDialog .AllowMultiSelect = False .Title = "Select File Location to Export PDF :" .InitialFileName = PDFName If .Show = True Then For Each varFiles In .SelectedItems getFileNames = varFiles DoCmd.OutputTo acOutputReport, "RepName", "pdf", "varfiles" & ".pdf", True Beep MsgBox "PDF has been created", vbInformation, "Export PDF" Next End If End With End Function

مرفق نسخه MDB بس طبعا هيكون فيه اختلاف بسيط Test1MDB.rar

السلام عليكم ورحمة الله وبركاته من الله علي بطريقة لعمل Tool bar او Ribbon Bar مثل البرامج الاحترافية وهي كالتالي وأسأل الله ان تفيد الجميع عمل Tab control في رأس انموذج ثم اضافة التبويبات حسب التصنيف الذي ترغب فيه مثلا تبويب للعملاء وتضيف اليه جميع الازرار الخاصة بالنماذج والتقارير ثم تبويب اخر للموردين وتضيف اليه كذلك ما تريد من ازرار ثم بعد الانتهاء من اضافة التبويبات المطلوبة تذهب الي خصائص الTab Control وتذهب الي خاصية Back style وتجعلها Transparent وبدلا من الازرار التقليدية يمكنك اضافة صورة واضافة امر لها عند النقر ولاضافة خاصية اخري يمكنك جعل المؤشر عند المرور علي الصورة ان يظهر شكل اليد لتكون افضل شكلا مرفق مثال ومدرج به موديول خاص بتغيير شكل المؤشر لشكل اليد عند المرور علي الصورة اي استفسار انا تحت امر الجميع مع خالص الشكر لاعضاء المنتدي المحترمين واسال الله ان ينفع بهذا العمل وان يجعله خالص لوجهه الكريم مرفق المثال Test.rar

يا اخوان هل الموضوع لا يصلح عمله بالاكسيس

اخونا سيد رجاءا كيف حسبت حقل الكمية السابقه

لان من الممكن تنسي بعض البنود عند الادخال خصوصا اذا كان عدد البنود كتير يتجاوز 300 بند .

اخونا الفاضل / رضوان جزاك الله خيرا ممكن اقوم بشرح ألية عمل البرنامج لحين وجود اخونا سيد عند فتح البرنامج لابد من ادخال اسم المشروع ثم ضغط مستخلص تنفيذ جديد يقوم نموذج المستخلصات تلقائيا بجلب بيانات المشروع ثم نقوم بادخال رقم المستخلص الخاص برقم البند combobox ثم اختيار البنود من بند تلو الاخر وبحسب المعادلات التي قام بادخالها اخونا سيد يقوم البنموذج الفرعي للبنود بجلب قيمة اجمالي الكمية بالمستخلص السابق لتكون هنا هي قيمة الكمية السابقة في المستخلص الجديد وهذا هو ما كنت طلبته من حضرتك سابقا والمطلوب الان هو كيفية جلب جميع البنود مرة واحدة عند عمل مستخلص جديد بدلا من اختيارهم بند - بند

للرفع

للرفع

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