ROOF2000

هذا الكود للتديل العناصر الموجودة على نموذج الاكسس بما يناسب دقة العرض الموجودة ارجو من الاخوة المتمكنين من ذلك شرحه وكيفية استخدامه حدد النص التالى ثم جرب ذلك لتعم الفائدة Option Compare Database Option Explicit '**********************************************…

Public Property Get okm2(MYFIELD As String, MYtABEL As String, MYFORMAT As String) As String MYFIELD تحمل اسم الحقل الذي به الترقيم المطلوب MYtABEL تحمل اسم الجدول الذي به الحقل المطلوب ترقيمه MYFORMAT تحمل الفورمات للرقم اي اذا كان طول الرقم 5 ارقام تكون قيمة…

إن وضعها كخاصية ليس له اي علاقة بعمل الدالة ويمكن ان تغيرها من خاصية الى Function عادية ويمكن استدعائها كالتالي تضع نص الدالة في وحدة نمطية وتستدعيها كالتالي من مربع النص ومن خاصية بعد التحديث Private Sub hname3_AfterUpdate() Me.hname3 = rooftools53(hname3) En…

الأخ ابو حمود المحترم تحية وبعد إذا كانت كتابة ارقام جميع الصفحات في المستقبل ستكون مربكة وغير مجدية اقترح وضع مربع نص يقوم الزائر بإدخال رقم الصفحة المطلوبة وشكراً (f) (g)

هناك كود اضن انه ينفع في مثل هذه الحالة http://www.arabteam2000.com/vb/showthread....t&threadid=7437

عذراً يا أخ أشرف خليل على الخطأ غير المقصود في الترجمة المقصود منه التالي Private Sub Form_BeforeInsert(Cancel As Integer) End Sub :mad:

'دالة للترقيم التلقائي في الجدول تنادى في حدث قبل الادخال من النموذج 'MYFORMAT="00000" Public Property Get okm2(MYFIELD As String, MYtABEL As String, MYFORMAT As String) As String 'لاعطاء رقم للسجل تلقائيا Dim x2 As String x2 = DCount(MYFIELD, MYtABEL) If x2 =…

Public Property Get rooftools53(mycontrol As Control) As String 'دالة متطورة تحذف الفراغات المتجاورة وتستبدل بعض الحروف _ المتشابهة بحروف بديلة لتسهيل البحث وعدم الالتباس في طريقة _ كتابة تلك الحروف بالعربية Dim x As Integer, x2 As String, x3 As String, x4 As …

اخوتي في الله السلام عليكم اتشرف بالإنضمام لمنتداكم الجميل و المفيد اخوكم ROOF2000

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

(f) الاخوة القائمين على تصميم هذا المنتدى الرائع... اقتراح بسيط لتسهيل وصول المتصفح لهذا المنتدى اى من الضروري ان تكون هناك وصلة لكل صفحة في المنتدى برقم الصفحة وذلك في اسفل الصفحة الرئيسية وذلك لتوفير الوقت للانتقال للصفحة المطلوبة تمنياتي لكم بالتقدم