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

أخي الكريم أنت حتي لم تنزل المثال الموجود فى الموضوع ( الصفحة الثانية ) 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])

أعتقد ان الافضل فى موضوع الاقسط و سدادها ، أن يكون هناك جدول يتم فيه تسجيل جميع الاقساط المستحقة علي كل عميل و يكون به كود العملية - رقم القسط - القيمة - التاريخ لكل قيمة - نوع الدفعة ( سداد/صرف) و تسجل فيه بداية جميع الاقساك المستحقة مع موعد استحقاقها و تسجل فى نفس الجدول تباعا الاقساط المسددة اذا كنت ستسمح بالدفع الجزئي اما اذا كان السداد لكامل قيمة القسط فقط و هي الحالة الاسهل ، فتسجل فيه الاقساط فقط ، و يضاف حقل من نوع نعم/لا ليبين هل تم الدفع أم لا و لاداعي ل نوع الدفعة و بالتالي فى الحالة الثانية سيكون الشرط فى الاستعلام أن تاريخ الاستحقاق أقل من تاريخ اليوم ( تضع فى المعيار لحقل التاريخ : <Now() و في معيار حقل السداد NO

ربما توفر بعض الطابعات المتقدمة طباعة المطويات بصورة الية او برامج الطباعة مثل فاين برنت - صراحة لا أدري و لكن مؤقتا يمكنك ترتيب الاعمدة يدويا فيكون فى كل صفحة عمودان و تضع فيها الاعمدة بترتيب خاص لكي تظهر مرتبة عند الطوي 16-1 14-3 12-5 10-7 ثم علي الظهر بنفس الترتيب 2-15 4-13 6-11 8-9 و طبعا يمكنك التجربة علي قصاصات ورق صغيرة و ترقيمها

السلام عليكم راجع هذا الموضوع فى أرشيف الاكسيل عمل قائمة منسدلة بدون كود, combo box