محمد طاهر عرفه

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

موضوع مشابه به مثال http://www.officena.net/ib/index.php?showtopic=3856

أولا يرجي اتباع قواعد المشاركة من حيث عنوان الموضوع ( تم تعديل العنوان ) بالنسبة للسؤال راجع هذا الموضوع http://www.officena.net/ib/index.php?showtopic=3556 أيضا مرفق مثال علي ما تريد باستخدام جدول به قائمة بالموظفين و كود البلد لكل موظف مرتبط بجدول البلدان و عمل استعلام تجميع بالبلد يضم هذه المعلومات ، ثم اسنتنتاج النسبة فى النموذج المبني علي هذا الاستعلام عن طريق قسمة ما في مربع النص الخاص بالعدد من كل جنسية علي مجموع العدد فى تذييل النموذج تم تعديل المثال ، و اضافة طريقة أخري لحساب النسبة فى المشاركة التالية

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

للرفع

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

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

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

الكود باستخدام dao Sub DAOCopyFromRecordSet(DBFullName As String, TableName As String, _ FieldName As String, TargetRange As Range) ' Example: DAOCopyFromRecordSet "C:\FolderName\DataBaseName.mdb", _ "TableName", "FieldName", Range("C1") Dim db As Database, rs As Recordset Dim intColIndex As Integer Set TargetRange = TargetRange.Cells(1, 1) Set db = OpenDatabase(DBFullName) Set rs = db.OpenRecordset(TableName, dbOpenTable) ' all records 'Set rs = db.OpenRecordset("SELECT * FROM " & TableName & _ " WHERE " & FieldName & _ " = 'MyCriteria'", dbReadOnly) ' filter records ' write field names For intColIndex = 0 To rs.Fields.Count - 1 TargetRange.Offset(0, intColIndex).Value = rs.Fields(intColIndex).Name Next ' write recordset TargetRange.Offset(1, 0).CopyFromRecordset rs Set rs = Nothing db.Close Set db = Nothing End Sub

الكود باستخدام DAO Sub DAOFromExcelToAccess() ' exports data from the active worksheet to a table in an Access database ' this procedure must be edited before use Dim db As Database, rs As Recordset, r As Long Set db = OpenDatabase("C:\FolderName\DataBaseName.mdb") ' open the database Set rs = db.OpenRecordset("TableName", dbOpenTable) ' get all records in a table r = 3 ' the start row in the worksheet Do While Len(Range("A" & r).Formula) > 0 ' repeat until first empty cell in column A With rs .AddNew ' create a new record ' add values to each field in the record .Fields("FieldName1") = Range("A" & r).Value .Fields("FieldName2") = Range("B" & r).Value .Fields("FieldNameN") = Range("C" & r).Value ' add more fields if necessary... .Update ' stores the new record End With r = r + 1 ' next row Loop rs.Close Set rs = Nothing db.Close Set db = Nothing End Sub الموضوع الأصلي

لنفرض أن لدينا ملف قاعدة بيانات به جدول اسمه Table1 و به ثلاثة حقول m1,m2,m3 و أن ملف قاعدة البيانات اسمه و مساره كالتالي c:\1.mdb لتصدير البيانات الموجودة فى ورقة عمل اكسيل بدء من الصف الثالث الخلية A Sub ADOFromExcelToAccess() ' exports data from the active worksheet to a table in an Access database ' this procedure must be edited before use Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long ' connect to the Access database Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source=C:\1.mdb;" ' open a recordset Set rs = New ADODB.Recordset rs.Open "Table1", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' all records in a table r = 3 ' the start row in the worksheet Do While Len(Range("A" & r).Formula) > 0 ' repeat until first empty cell in column A With rs .AddNew ' create a new record ' add values to each field in the record .Fields("m1") = Range("A" & r).Value .Fields("m2") = Range("B" & r).Value .Fields("m3") = Range("C" & r).Value ' add more fields if necessary... .Update ' stores the new record End With r = r + 1 ' next row Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub الموضوع الأصلي

مشاركات ذات صلة فى خلاصة مشاركات الأكسيس - قسم ال VBA فكرة مسابقة مشكلة اختيار سجل عشوائي من حقل في جدول و فيه يتم الاختيار عشوائيا ثم تسجيل ما أختير فى حقل و هو نسخة مصغرة من المثال الاول اختيار رقم عشوائي و هذا هو المثال الذي تقصده و اذا أردت التعامل مع أكثر من جدول أو أكثر من حقل فيمكنك عمل استعلام توحيد بينها و بناء الاختيار عليه و ان كنت أظن أنه فى نسبة كبيرة من التصاميم ، اذا احتجت لذلك ، فأنه يكون هناك مشكلة فى التصميم و تحتاج مثلا لدمج هذه الجداول مع تفرقة بياناتها بكود اضافي مرفق نسخة أخري من المثال مع اضافة اظهار النتيجة فى مربع نص علي النموذج و قد تم فيها استبدال الاسماء العربية للجدول و الحقول و المتغيرات بأحرف انجليزية T,TT,TTTT علي التوالي منعا لمشاكل الكود ، و اضافة اغلاق مجموعة السجلات وقاعدة البيانات المعرفة فى نهاية الكود مع تحياتي ShowInForm.rar

تم اضافة الموضوع الي أرشيف الأكسيل - قسم ال VBA http://www.officena.net/ib/index.php?showt...view=getnewpost

Tips http://www.exceltip.com/exceltips.html Forum المنتدي http://www.excelforum.com/

هذا المثال لاستدعاء بيانات جدول معين من الاكسيس باستخدام ال ADO تأكد من وجود مرجع ADO معرف مرفق مثال و مضاف به الوصلة للصفحة الأصلية بموقع ExcelTips و يتم تحديد مسار القاعدة و اسم الجدول و مكان اللصق فى ورقة العمل Sub Getit() ADOImportFromAccessTable "E:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Northwind.mdb", _ "Products", Range("A1") End Sub Sub ADOImportFromAccessTable(DBFullName As String, _ TableName As String, TargetRange As Range) ' Example: ADOImportFromAccessTable "C:\FolderName\DataBaseName.mdb", _ "TableName", Range("C1") Dim cn As ADODB.Connection, rs As ADODB.Recordset, intColIndex As Integer Set TargetRange = TargetRange.Cells(1, 1) ' open the database Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ DBFullName & ";" Set rs = New ADODB.Recordset With rs ' open the recordset .Open TableName, cn, adOpenStatic, adLockOptimistic, adCmdTable ' all records '.Open "SELECT * FROM " & TableName & _ " WHERE [FieldName] = 'MyCriteria'", cn, , , adCmdText ' filter records 'RS2WS rs, TargetRange ' write data from the recordset to the worksheet ' optional approach for Excel 2000 or later (RS2WS is not necessary) For intColIndex = 0 To rs.Fields.Count - 1 ' the field names TargetRange.Offset(0, intColIndex).Value = rs.Fields(intColIndex).Name Next TargetRange.Offset(1, 0).CopyFromRecordset rs ' the recordset data End With rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub ADO-getFromAccess.rar

أخي الكريم أنت حتي لم تنزل المثال الموجود فى الموضوع ( الصفحة الثانية ) http://www.officena.net/ib/index.php?act=A...pe=post&id=4381

اذا راجعي هذا الموضوع شرح الأخ انترنت ماستر السابق نشره فى الفريق العربي و له وصلة هنا فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=2714

أيضا راجع هذه المواضيع فى قسم خلاصة المشاركات تجاهل الهمزة1 تجاهل الهمزة2 فكرة بحث ذكية (Search) الحروف ( ة ه ا إ آ أ ي ى )

هل جربت فتح ملف جديد ، و استيراد جميع الكائنات اليه سواء بالاستيراد المباشر أو بهذا التطبيق

بالنسبة للأول نعم يجب نقل ملفات ال dll اذا استدعيتها فى تطبيقك ثانيا بالنسبة للتنسيق جرب MM/YYYY او YYYY/MM بحسب الاتجاه لديك و يرجي عدم طرح سؤالين فى موضوع واحد تحقيقا لقواعد المشاركة بالمنتدي

أعتقد أنك اذا أردت ذلك فسيكون عليك عمل نموذج بديل لمربع ال input box لتستطيع التحكم به

بالنسبة للسؤال الأول اجعل المصدر جدول/استعلام و سجل فيه القيم كما تريد بدل من قائمة القيم Table/Query بدل Value List بالنسبة للسؤال الثاني يرجي طرحه فى مشاركة منفصلة تحقيقا لقواعد المشاركة ، مع تحياتي

راجع هذا الموضوع

السلام عليكم أولا ، نشكر لك طرحك للتطبيق الجميل فى المنتدي اذا كان الهدف هو اجراء عملية التنسيق كما أوضحت مشكورا فأقترح التالي : 1- أن تكون الاقسام خيارية يمكن تعديلهاو الاضافة عليها 2- فى شاشة الاستعلامات ، تكون المحددات متاحة للخيار ( أكبر من ، أصغر او يساوي ، .... ) 3- أن يكون اختيار القسم من مربع تحرير و سرد حيث ان العدد يمكن أن يزيد عن ثلاثة ، و كما فى النقطة الاولي سيتاح تغييرها 4-تطبيق نفس خيارات الاختيار بين الاقسام فى شاشة التقارير 5-اضافة قواعد التنسيق مع امكانية تغييرها 6- اجراء عملية التتنسيق نفسها بالكود كما فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=685&hl=ترحيل و أخيرا رجاء اذا كان فيه استفسار طرحه فى موضوع منفصل بصورة عامة مع الاشارة الي هذا الموضوع اذا شئت ، لكي تعم الفائدة منه ، و أن نترك هذا الموضوع للنقاش حول التطبيق نفسه و جزاك الله خيرا مع شكري و تقديري

موضوع ذو صلة Data Access Objects كائنات الوصول الي البيانات من هنا مع ملاحظة أن الأكواد فيه تلائم الأكسيس 2000