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

تم اضافة الموضوع الي أرشيف الأكسيل - قسم ال 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

تم تعديل الملف مع تحياتي من هنا أيضا راجع هذا الموضوع كائنات الوصول الي البيانات

تعديل للكود ليعمل علي أوفيس 2003 Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = CurrentProject.AccessConnection Set rs = New ADODB.Recordset With rs Set .ActiveConnection = cn .Source = "SELECT * FROM Table1" .LockType = adLockOptimistic .CursorType = adOpenKeyset .Open End With rs.AddNew rs!Name = [Forms]![UnboundForm]![Name] rs!Salary = [Forms]![UnboundForm]![Salary] rs!Birthday = [Forms]![UnboundForm]![Birthday] rs.Update rs.Close Set rs = Nothing Set cn = Nothing مرجع فى الموضوع http://support.microsoft.com/default.aspx?...product=acc2002 مع تحياتي

استكمالا لكلام الأخ سيد مرفق مثال واحد يوضح كيفية استنتاج القيمة القصوي و مرجع الخلية التي بها القيمة القصوي بالاسماء ، و بأرقام الأعمدة و الصفوف ، و ذلك لمجالين أفقي و رأسي و ذلك بالمعادلات بدون أكواد. كما يوجد كود لاستنتاج الخلية التي لها القيمة القصوي من ضمن المجال المختار مع اختبار هل الخلية بها رقم أو نص و اختيار أول خلية بها أقصي قيمة ضمن المجال المختار ، و لتجربته يتم اختيار مجال البحث ثم تشغيل الماكرو. Sub GotoMax() Dim MaxValue As Single, MaxRef As String, Ccell As Range With Selection.Cells(1) MaxValue = .Value MaxRef = .AddressLocal End With For Each Ccell In Selection If IsNumeric(Ccell.Value) And Ccell.Value > MaxValue Then MaxValue = Ccell.Value MaxRef = Ccell.AddressLocal End If Next Range(MaxRef).Select MsgBox "The Max No. is " & MaxValue & " at Cell " & MaxRef End Sub MatchAddress2.rar

و استكمالا لكلام الأخ سيد للذهاب الي الخلية التي بها القيمة القصوي ضمن المجال شغل الماكرو الاتي Sub goforit() m = Range("E10").Value Application.Goto Reference:=m End Sub حيث E10 الخلية التي تم بها اظهار مرجع الخلية التي تحوي القيمة القصوي ضمن المجال ، و لكن بطريقة الحروف و الأعمدة مرفق ملف المثال الملف المرفق ( عدد مرات التنزيل: 17 ) MatchAddress.rar تم حذف الملف لاستبداله بآخر أشمل فى مشاركة لاحقة

المعادلة تعمل معي بشكل ممتاز ، ربما المشكلة فى نوع الفاصل فاصلة ، م فاصلة منقوطة ; و هذا يختلف بحسب الاعدادات الاقليمية لديك جرب المعادلة فى الملف المرفق فى مشاركة تالية مع تحياتي

الموضوع الأصلي http://www.officena.net/ib/index.php?showtopic=132

بالنسبة لكون الصفحة الثانية تأتي بها ترحيل يوجد هنا أربعة حلول و المناسب للحالة هو الحل الثاني حيث أنك تريد الاتجاه بالعربي http://www.officena.net/ib/index.php?showtopic=132

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

هذا مثال مصغر لتسجيل الفواتير و تفاصيلها فى الاكسيل و الصفحة بها 3 مناطق الخضراء لبيانات الفاتورة الرئيسية و الزرقاء بيانات تفاصيل الفاتورة و الصفراء لاستدعاء بيانات الفاتورة بالرقم و المثال علي استخدامات كل من التنسيق الشرطي بحيث لا يظهر فى الفاتورة المطبوعة ( المنطقة الصفراء ) الا البنود التي لها بيان فى الداتابيز اختبار البيانات validation بحيث يرفض ادخال رقم فاتورة فى منطقة التفاصيل ( زرقاء) اذا كان غير موجود فى منطقة بيانات الفاتورة لااساسية ( الخضراء ) و استخدامات لاستدعاء البيانات الي نموذج الفاتورة ( الصفراء ) من كل من بيانات الفاةورة الاساسية و التفاصيل بناء علي رقم الفاتورة للتجربة اكتب رقم الفاتورة فى الخلية الحمراء invoice.rar

السلام عليم الانسب هو التعامل بدوال تجميع المجال بشرط مركب راجع هذا الموضوع http://www.officena.net/ib/index.php?showtopic=994 مع استخدام الدالة Dcount بنفس الطريقة ( فى الجزء الخاص بالحقل الرقمي أو النصي بحسب الحالة لديك ) مع استبدال or ب and اذا كنت تريد تحقق الشرطان معا مع تحياتي

قم بحذف الجزء التالي Else Dim bb As String bb = Str(aa + 1) MsgBox "This File was used " & bb & " Times "

اما اذا اردت استنتاج اليوم الاخير من الشهر التالي ، كما أوضحت فى طلبك فيمكنك الاستفادة من هذا الموضوع كود معرفة اول وآخر يوم في, بداية ونهاية الشهر الحالي و اضافة شهر باستخدام الدالة dateadd مثال DateAdd("m";1;[PAYMENT-DATE])