الترقيم التلقائي

[moamen salem]

السلام عليكم اخوتي 

عايز اعمل ترقيم تلقائي لرقم الفاتورة ليكون S0001 بعدها S0002 لقد شاب شعري ولم أجد حل

[ابو ياسين المشولي]

راجع هذا 

 

[REDA.M.A]

سلام عليكم

ممكن فتح لجدول فى عرض التصميم وفى الخصائص لرقم التلقائي 

تحت قى  خانه القيم الجديده  - زيادة

                         التنسيق - "s "0000

و على البركه كل شئ بيكون تمام

                 

[ابو جودي]

3 ساعات مضت, moamen salem said:

السلام عليكم اخوتي 

عايز اعمل ترقيم تلقائي لرقم الفاتورة ليكون S0001 بعدها S0002 لقد شاب شعري ولم أجد حل

عندى سؤال ممكن قبل ما اجاوب

حضرتك عارف انه البداية حتكون S0001 

والنهاية حتكون  S9999 

 

[ابو جودي]

السؤال الثانى حضرتك محتاج انه يبدأ من الاول كل عام جديد 

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

S180001 وقتها تكون النهاية للترقيم هى S189999  للعام 2018  على ان يكون الرقم 18 الذى يلى حرف الــ  S  هو عام  2018 

ثم من تلقاء نفسة دون الحاجة الى تدخل برمجى او ادنى تدخل من المستخدم حتى فى بداية العام 2019 يصبح كالاتى

S190001 وقتها تكون النهاية للترقيم هى S199999  للعام 2019  على ان يكون الرقم 19 الذى يلى حرف الــ  S  هو عام  2019 

ثم من تلقاء نفسة دون الحاجة الى تدخل برمجى او ادنى تدخل من المستخدم حتى فى بداية العام 2020 يصبح كالاتى

S200001 وقتها تكون النهاية للترقيم هى S209999  للعام 2020  على ان يكون الرقم 20 الذى يلى حرف الــ  S  هو عام  2020 

[ابو جودي]

انا قاعد منتظر ردك اهون علشان احدد بس انا هاشتغل على ايه 

انت اللى معطلنى كده خد بالك 

مع منتديات اوفيسنا دائما هناك متعة واثارة وتشويق

المتعه ان شاء الله انك تجد اجابة لطلبك 

الاثارة ... انك تجد افكار اشمل واوسع مما كان فى طلبك

التشويق ... انك بعد ما تعرف محتوى الاثارة تكون فى انتظار المثال الذى يحتوى على هذه الاثارة 

تم تحقيق الاولى والثانية اما الثالثة متوقفه عليك انت لحين ما ترد 

[moamen salem]

حبيبي تسلم والله ايوة الترقيم انا اللي احدده S0001 أو c0001 كل مستند هيبقى له تسلسل وبدون حد أعلى 

في ٢٦‏/٢‏/٢٠١٨ at 03:51, رضا محمد علي said:

سلام عليكم

ممكن فتح لجدول فى عرض التصميم وفى الخصائص لرقم التلقائي 

تحت قى  خانه القيم الجديده  - زيادة

                         التنسيق - "s "0000

و على البركه كل شئ بيكون تمام

                 

مش هينفع لأن الجدول بيضم اكتر من نوع يعني s_b_m.... الخ

في ٢٦‏/٢‏/٢٠١٨ at 01:40, ابو ياسين المشولي said:

راجع هذا 

 

اشكرك حبيبي ولكن هذا الطريقة أرقام فقط

[ابو ياسين المشولي]

19 دقائق مضت, moamen salem said:

حبيبي تسلم والله ايوة الترقيم انا اللي احدده S0001 أو c0001 كل مستند هيبقى له تسلسل وبدون حد أعلى 

مش هينفع لأن الجدول بيضم اكتر من نوع يعني s_b_m.... الخ

اشكرك حبيبي ولكن هذا الطريقة أرقام فقط

في هذة الحالة اعمل مدويل جديد

وانسخ فيه هذا

Public dayli As Date


Function Next_Seq(T As String) As String

'T = Type نوع السند
'A = بيع
'M = بيع اجل
'S = شراء نقدي
'G = شراء اجل
'K = مرتجع بيع
'B = مرتجع بيع اجل
'Y = مرتجع شراء نقدي
'P = مرتجع شراء اجل
'R = سند قبض
'U = سند صرف
 'L = عرض سعر
  
     
    myGroup = "A = بيع" & vbCrLf & _
              "M = بيع" & vbCrLf & _
              "L = شراء" & vbCrLf & _
              "S = شراء" & vbCrLf & _
              "G = شراء" & vbCrLf & _
              "B = مرتجع بيع" & vbCrLf & _
              "K =  مرتجع بيع اجل" & vbCrLf & _
              "Y = مرتجع شراء نقدي" & vbCrLf & _
              "P = مرتجع شراء اجل" & vbCrLf & _
              "R = سند قبض" & vbCrLf & _
              "U = سند صرف"
         
         If Len(T & "") = 0 Then
       MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G او K او B او Y او P او R او U اوL" & vbCrLf & vbCrLf & myGroup
        Exit Function
    
    ElseIf T <> "A" And T <> "M" And T <> "S" And T <> "G" And T <> "K" And T <> "B" And T <> "Y" And T <> "P" And T <> "R" And T <> "U" And T <> "L" Then
        MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G او K او Bاو Y او P او R او U اوL" & vbCrLf & vbCrLf & myGroup
        Exit Function
        
    Else
        Next_Seq = Nz(DMax("Mid([Rjmfatwra], 2)", "AfwtIar", "Mid([Rjmfatwra], 1, 1) = '" & T & "'"), 0)
        Next_Seq = T & Format(Next_Seq + 1, "00000")
        
    End If
    
End Function

وعند الاضافه استدعيه هكذا

Me.[Rjmfatwra] = Next_Seq("A")

 

[moamen salem]

1 ساعه مضت, ابو ياسين المشولي said:

في هذة الحالة اعمل مدويل جديد

وانسخ فيه هذا

Public dayli As Date


Function Next_Seq(T As String) As String

'T = Type نوع السند
'A = بيع
'M = بيع اجل
'S = شراء نقدي
'G = شراء اجل
'K = مرتجع بيع
'B = مرتجع بيع اجل
'Y = مرتجع شراء نقدي
'P = مرتجع شراء اجل
'R = سند قبض
'U = سند صرف
 'L = عرض سعر
  
     
    myGroup = "A = بيع" & vbCrLf & _
              "M = بيع" & vbCrLf & _
              "L = شراء" & vbCrLf & _
              "S = شراء" & vbCrLf & _
              "G = شراء" & vbCrLf & _
              "B = مرتجع بيع" & vbCrLf & _
              "K =  مرتجع بيع اجل" & vbCrLf & _
              "Y = مرتجع شراء نقدي" & vbCrLf & _
              "P = مرتجع شراء اجل" & vbCrLf & _
              "R = سند قبض" & vbCrLf & _
              "U = سند صرف"
         
         If Len(T & "") = 0 Then
       MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G او K او B او Y او P او R او U اوL" & vbCrLf & vbCrLf & myGroup
        Exit Function
    
    ElseIf T <> "A" And T <> "M" And T <> "S" And T <> "G" And T <> "K" And T <> "B" And T <> "Y" And T <> "P" And T <> "R" And T <> "U" And T <> "L" Then
        MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G او K او Bاو Y او P او R او U اوL" & vbCrLf & vbCrLf & myGroup
        Exit Function
        
    Else
        Next_Seq = Nz(DMax("Mid([Rjmfatwra], 2)", "AfwtIar", "Mid([Rjmfatwra], 1, 1) = '" & T & "'"), 0)
        Next_Seq = T & Format(Next_Seq + 1, "00000")
        
    End If
    
End Function

وعند الاضافه استدعيه هكذا

Me.[Rjmfatwra] = Next_Seq("A")

 

ولكن اخي كل رقم بيجيب من جدول تاني 

[moamen salem]

تم الحل وشكرا جزيلا لمجهوداتكم 

auto.7z