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

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

بالنسبة للأول نعم يجب نقل ملفات ال 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

بالفعل كما قال أخونا أبو هادي فان عمل ذلك بالتنسيق غير ممكن و لكن هذا تحايل بسيط بالكود نقوم بتحويل الارفام الي نصوص ، , و نضيف اشارة ال + الي الموجب منها ثم نلونها و طبعا هذا غير عملي لان الارقام من المطلوب أن تبقي أرقاما انقل هذا الكود الي موديول جديد ، ثم اختار الخلايا و شغل الماكرو Sub colorpositivevalues() Dim m As Integer, n As String m = Selection.Cells.Count For i = 1 To m If IsNumeric(Selection.Cells(i).Value) And Selection.Cells(i).Value > 0 Then n = "'+" & Str(Selection.Cells(i).Value) Selection.Cells(i).Value = n Selection.Cells(i).Characters(Start:=1, Length:=1).Font.ColorIndex = 3 End If Next i End Sub

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

اذا تقصد رسالة بمعني رسالة msg box فأعتقد أن هذا غير ممكن ، حيث يصعب ربط الكود بالكتابة العادية و التي لا تمثل كائن فى الوورد و لكن أقترح اقتراح بصورة مؤقتة الي أن تجد ما تريد و هو استخدام خاصية ال screen tip فى الارتباط التشعبي hyperlink من الزر العلوي الذى سيظهر عند اختيار ادراج ارتباط تشعبي hyperlink فتكتب بها النص التوضيحي الذي تريد و هو سيظهر باللون الاصفر عند الوقوف علي الكلمة و تختار وجهة الارتباك التشعبي address اما الي مكان فى الملف bookmark أو تجعله يفتح ملف جديد به التوضيح