هيثم أحمد

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 

بمعني لو عندي ٣ صفحات 

 كيف يمكن تعبئة كومبوبوكس باسماء الصفحات

On 4/29/2017 at 10:04 PM, حسين العربى said:

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

ويجع الفضل في هذا البرنامج للمولي عز وجل / ثم   لا ستاذي الفاضل  sandanet الذ ي بذل مجهود كبير جدا  حتي وصلت به الي هذه الدرجه 

والشكر ايضا لاستاذي الفاضل  محمد سلامه  / واستاذي الفاضل  ابا جودي / ولاستاذنا الكبير   ومعلمنا الفاضل jjafferr  الذي شرفنا بلمساته الفنيه  الجميله 

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

https://drive.google.com/open?id=0B5oTVOnhU-rrTnJQRDFyNElNSDg

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

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 في  فورم