المطلوب النظر في موضوعي

[أبن المدينة]

الاخوة الاعزاء

السلام عليكم ورحمة الله وبركاته

اناعضو جديد في هذا المنتدى والموقع الرائد بماتحملة الكلمة من معنى و جزاء

الله القائمين والمشاركين عليةخير جزاء.

سوف اطرح موضوعي مباشرة....

يوجد لدي 7 نماذج على برنامج الاكسل ويوجد لدي قاعدة بيانات على برنامج الاكسس.

المطلوب تعبيئة الحقول في النماذج من القاعدة لكل بيانات اسم لوحدة تلقائي مع امكانية طباعتها وحفظها.

وجزاكم الله خير

[ابو اسامة العينبوسي]

السلام عليكم

ارفق الملفين وفقك الله

[أبن المدينة]

السلام عليكم ارفق الملفين وفقك الله

وعليكم السلام ورحمة الله وبركاته

تفضل الملفين ( كانموذج)

وفقك الله

أبن المدينة.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

إليك الملف المرفق... إن شاء الله يكون هو المطلوب....

أخوك بن علية

البيانات.rar

[أبن المدينة]

السلام عليكم ورحمة اللهإليك الملف المرفق... إن شاء الله يكون هو المطلوب....أخوك بن علية

السلام عليكم ورحمة الله أهلا أخوي بن علية جزاك الله خير

نعم هذا المطلوب بس انا اريد انا اعمل برنامج كامل لتعبية النماذج كاملة بنفس الطريقة من القاعدة علماً بأن القاعدة على برنامج

الاكسس فاتمنى مساعدتي ودمت بود

[بن علية حاجي]

وعليكم السلام ورحمة الله

السلام عليكم ورحمة الله أهلا أخوي بن علية جزاك الله خير

نعم هذا المطلوب بس انا اريد انا اعمل برنامج كامل لتعبية النماذج كاملة بنفس الطريقة من القاعدة علماً بأن القاعدة على برنامج الاكسس فاتمنى مساعدتي ودمت بود...

أعتقد أنه لا يمكن ربط هذه الدوال بقاعدة بيانات من أكسس مباشرة، يجب استدعاء قاعدة بيانات خارجية في ملفك "النماذج" وتختار هذه القاعدة من ملف تم إنجازها في أكسس (ولكن يضعها في ملفك على شكل ورقة إكسل) ومنها يتم استدعاء البيانات المطلوبة لملء النماذج كلها انطلاقا من هذه القاعدة...

ملاحظة: يتم استدعاء قاعدة أكسس في إكسل انطلاقا من الأمر "بيانات" DATA ثم "بيانات خارجية" ثم "استيراد بيانات" Import Data وتختار الملف الذي يحوي القاعدة ثم تختار القاعدة التي بها البيانات (ويتم وضع هذه البيانات في ورقة جديدة) ثم بوساطة الدوال المناسبة تقوم باستدعاء هذه البيانات لملء النماذج الخاصة بك حسب المطلوب... وقاعدة البيانات (في إكسل) يتم تحديثها دائما باستدعاء البيانات الخارجية في الورقة نفسها...

والله أعلم

تم تعديل مارس 26, 2010 بواسطه hben

[بن علية حاجي]

السلام عليكم ورحمة الله

بالنسبة لتحديث القاعدة يمكن جعلها آلية بمجرد فتح الملف "نماذج" يقوم البرنامج بالتحديث وذلك بواسطة كود يتم تسجيل وربطه بفتح الملف... مثل الكود التالي (قمت بتسجيله من خلال مثال):

Private Sub Workbook_Open()

    Sheets("Feuil2").Select   'اسم الورقة التي نضع فيها القاعدة

    With ActiveSheet.QueryTables.Add(Connection:=Array( _

        "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Documents and Settings\Utilisateur\Mes documents\bd1.m" _

        , _

        "db;Mode=Share Deny Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Passw" _

        , _

        "ord="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Trans" _

        , _

        "actions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:D" _

        , _

        "on't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" _

        ), Destination:=Range("A1"))

        .CommandType = xlCmdTable

        .CommandText = Array("Table1")

        .Name = "bd1_1"

        .FieldNames = True

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = False

        .BackgroundQuery = True

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = False

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .PreserveColumnInfo = True

        .SourceDataFile = _

        "C:\Documents and Settings\Utilisateur\Mes documents\bd1.mdb"  'الاسم bd1.mdb هو قاعدة أكسس التي تحوي البيانات التي تم استدعاؤها ووضعها بداية من الخلية A1 في الورقة feuil1

        .Refresh BackgroundQuery:=False

    End With

    Sheets("نمادج").Select

End Sub

بن علية

[بن علية حاجي]

السلام عليكم ورحمة الله

يمكن أيضا القيام بتحديث قاعدة البينات في ملف إكسل بوساطة الكود التالي (وهو أفضل وأسهل من السابق) ولكن يجب أن يكون قد تم استدعاء القاعدة أولا كما شرحت سابقا ثم وضع الكود التالي في Workbook

Private Sub Workbook_Open()

    Sheets("Feuil1").Select ' Feuil1 هي الورقة التي تحوي قاعدة البيانات المستدعاة من قاعدة بيانات ملف أكسس

    Selection.QueryTable.Refresh BackgroundQuery:=False

    Sheets("نماذج").Select

    Range("A1").Select

End Sub

بن علية

[أبن المدينة]

السلام عليكم ورحمة اللهيمكن أيضا القيام بتحديث قاعدة البينات في ملف إكسل بوساطة الكود التالي (وهو أفضل وأسهل من السابق) ولكن يجب أن يكون قد تم استدعاء القاعدة أولا كما شرحت سابقا ثم وضع الكود التالي في Workbook

Private Sub Workbook_Open()    Sheets("Feuil1").Select ' Feuil1 هي الورقة التي تحوي قاعدة البيانات المستدعاة من قاعدة بيانات ملف أكسس    Selection.QueryTable.Refresh BackgroundQuery:=False    Sheets("نماذج").Select    Range("A1").SelectEnd Sub

بن علية

جزاك الله خير ( بن علية)

اتعبتك معاي شكرا لك