كيف يكون الترقيم هكذا(0010)(0011)

أخي الكريم ..

استخدم الدالة Format() هكذا :

Me.txt2 = Format(Me.txt1, "0000")

dim i as integer=??

me!

=format(i,"00000")اي خدمه

الاخ الفاضل احمد الحربي السلام عليكم ورحمة الله

لم تضبط معي الطريقة لو امكن مثال اكون شاكر لك

الاخ الفاضل كريموسوفت

اشكرك جزيل الشكر ولو امكن مثال اكون شاكر لك

الاخ العزيز

انظر الصورة

انا جاوبت على Access

لان هذا المنتدى منتدي Access

اما اذا كان سؤالك بالVB

اكتب الموضوع هناك

السلام عليكم ورحمة الله

الاخ الكريم blackeyes

الحل الذى اقترحته حضرتك (واعتقد باقى الحلول المقترحه كذلك) يعتمد على ان الحقل من النوع (رقم Integer) ولكن اخى الكريم المشكله ان الحقل من النوع (نص Text)

اقتباس

لدي جدول

لو ان لدى حقل رقم العميل وهو من النوع نص

ولهذا لن تضبط هذه الطريقة مع الاخ ابو عمرو1 .

ونصيحة شخصية للاخ ابو عمرو1 بتحويل الحقل الى نوع رقم Integer, طالما انك فعلا تقوم بحفظ ارقام بداخله , وذلك حتى يتسنى لك الاستفادة بكل المميزات الحسابية المتوفرة للحقل رقم Integer.

وهذا رأيي والله الموفق,,,

السلام عليكم ورحمة الله

الاخ الفاضل blackeyes اشكرك على هذا الرد زادك الله من العلم

اما الاخ الفاضل عماد فلك الشكر الجزيل على الايضاح هذا. وفقك الله وزادك من العلم وانار لك الطريق ونريد ان تكون من مشرفي هذا المنتدى مع الاخ الفاضل احمد والاخت زهرة والاخ فهد

وشكرا

الأخوة الكرام ..

فيما أعلم لا فرق أن يكون نوع بيانات الحقل نصاً أم غير ذلك فدالة Format تقوم بالمطلوب على أكمل وجه .

الآن أخي الكريم إذا كان الجدول قد تم إدخال البيانات ، وتريد أن تقوم بتحديث الجدول بالكامل على

التنسيق الذي طلبت ، فهذا الكود يقوم بالمطلوب ، فقط غير أسم الجدول والحقل في الكود بما هو لديك .

TableName= اسم الجدول

FieldName= اسم الحقل

Dim strSql As String
Dim lngCountRecord As Long
Dim i As Integer
Dim RecADO As New ADODB.Recordset
lngCountRecord = DCount("[FieldName]", "TableName")
strSql = "Select FieldName From TableName"
RecADO.Open strSql, CurrentProject.Connection, adOpenKeyset, adLockPessimistic, adCmdText
For i = 1 To lngCountRecord
    RecADO!FieldName= Format(RecADO!FieldName, "0000")
    RecADO.MoveNext
Next i
RecADO.Close
Set RecADO = Nothing

ثم فيما بعد ، افعل ما أرشدك إليه الأخ blackeyes عند الإدخالات القادمة

الاخ الفاضل احمد الحربي شكرا جزيلا لك

السلام عليكم ورحمة الله

الاخ الفاضل ابو عمرو1 بارك الله فيك على مجاملاتك الرقيقه . وموضوع الاشراف ده مسئولية كبيرة جدا وكان الله فى عون اهلها , ولا اعتقد اننى ممن يستطيعون اعطاءها حقها.

واستاذنا الفاضل الاخ احمد الحربى ,زادك الله من علمه ونفع بك المسلمين ان شاء الله.

ولكن لو تفضلت اخى الكريم بالنظر الى الصورة المرفقه فى مشاركة اخونا الكريم blackeyes , ستجد ان نوع الحقل فى الصورة هو (رقم Long Integer) , ولو فعلنا ما فعله الاخ الكريم blackeyes على حقل نص , فلن تضبط ولن تعطينا الفورمات المطلوبه. ويمكنك اخى الكريم التجربة بنفسك للتاكد.

وارجوا ان تلتمس لى العذر لو اننى فهمت وطبقت خطأ,,,

أستاذنا الكريم .. عماد

الإلتباس مني لا منك وعدم الفهم مني لا منك

وفي الواقع أنني لم أنتبه إلى أن التنسيق الذي وضعه الأخ blackeyes كان في خصائص الحقل في الجدول ، لأن الذي قمت به أنا وجعلني أجيب بالجواب السابق ، هو أنني جعلت التنسيق (0000) لقناع الإدخال ، فتشابه البقر علي

يبقى الخيار الوحيد فيما أعلم للبقاء على نوع البيانات والتنسيق المطلوب من الأخ أبو عمر، هو استخدام قناع الإدخال كما أسلفت (0000) ليضمن إدخال الأصفار عند الإدخال اليدوي

أو بطريقة آلية يضع كود Format في حدث (عند فقدان التركيز)

Private Sub name1_LostFocus()
On Error Resume Next
Me.name1 = Format(Me.name1, "0000")
End Sub

بورك فيك أستاذنا الكريم ودمت بخير ورضا

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

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

التى لها نصيب خير في الدنيا والاخرة انت وذريتك تقبل التحية ولك جزيل الشكر

والسلام عليكم ورحمة الله وبركاتة

السلام عليكم ورحمة الله

أخى الكريم واستاذنا الفاضل احمد الحربى

بارك الله فيك على تواضعك , وزادك الله من العلم وحسن الخلق.

اخى الكريم ابو عمرو1 بارك الله فيك , وثقتك هذه غاليه جدا على , وربنا يوفقنا ويفقكم لما فيه الخير ان شاء الله.

اسمحوا لي استاذ احمد الحربي & استاذ عماد أن اتقدم لكم بالشكر والتحية والتقدير على هذه الروحة الطيبة العطرة المتبادلة من كلاكما

التي يتسارع بها كلاكما في انكار الذات

وتفضل اخي ابو عمرو بتقبل تحياتي لإثارتك مثل هذه النقطة المهمة

تحياتي للجميع .................

نفس الطريقة ولكن ترقيم السجلات ولكن يكون بالطريقة التالية(Ms:0001-06) حيث ان (Ms) نوع التقرير و(0001) و(06) السنة التى كتب فيها هذا السجل. ويكون في اعلى التقرير ويعد من البداية كل بداية سنة

ولكم جزيل الشكر

الاستاذ احمد الحربي ماا يعني امر me. والكود الذي كتبته فمعظمها لم افهمها وخصوصا الاختصارات والاوامر وانا احاول تعلم اكسس واريد توجيهاتك جزاك الله خيرا