تعديل كود

[jamal2080]

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

انا عند رقم تكون من رمز + رقم فاتورة + شهر + سنة

RD 131129 02 23

ارجوا تعديل الكود 

Sub UpdateRDnum()
  Dim db As DAO.Database
  Dim rs As DAO.Recordset

  Set db = CurrentDb
  Set rs = db.OpenRecordset("receiptRD", dbOpenDynaset)

  With rs
    Do Until .EOF
      If IsNull(!RDnum) Or !RDnum = "" Then
      .Edit
         !RDnum = "RD" & !report_No & Month(Date) & year(Date)
        .Update
      End If
      .MoveNext
    Loop
  End With

  rs.Close
  Set rs = Nothing
  Set db = Nothing

End Sub

 

[ابوخليل]

السطر هذا سليم ولكن السنة ستكون اربعة ارقام

 !RDnum = "RD" & !report_No & Month(Date) & year(Date)

ومن اجل تكون السنة رقمين جرب

 !RDnum = "RD" & !report_No & Month(Date) & format(year(Date),"yy")

 

[jamal2080]

اخى ابوخليل 

وضع الكود  نفس طريقة مانفع

 

 

[AbuuAhmed]

6 ساعات مضت, ابوخليل said:

format(year(Date),"yy")

أبو خليل غفل أن يحذف دالة Year

[Eng.Qassim]

19 ساعات مضت, AbuuAhmed said:

بو خليل غفل أن يحذف دالة Year

الله يكون بعون استاذنا الحبيب @ابوخليل

من الصبح وهو شغال لحل مشاكل اسئلة الاخوة  ...ربي يجعلها في ميزان حسناته وحسناتكم

[ابوخليل]

هههه على قولتهم الفاضي يعمل قاضي

ولكنك اكثر مني تواجدا ونشاطا في خدمة الأعضاء ..  لا مقارنة .. ولا يهونو كافة الاخوة الخبراء

كتب الله اجرك واحسن اليك