[Osama_NY]

(12-12-20, 01:02 AM)عبد العزيز البسكري كتب :

إضافة لما قدّمه أستاذنا الكريم

سعود .. الخير و الخيرات

بارك الله فيه و له و جزاه خير الجزاء

و من باب زيادة الخير .. خيرين

كود أستعمله دوما عند الحاجة .. و يشتغل تمام التمام

كود :

  Function Retrieve_Numorotation_Speciale() As String
       Try
         
           Cnn.Open()
           Cmd = New SqlCommand("SELECT * From TBL_INVOICE Where INVOICE_Code Like '" & Date & "%' Order By  INVOICE_Id", Cnn)
           Dr = Cmd.ExecuteReader
           Dr.Read()
         
             Retrieve_Numorotation_Speciale = CLng(Dr.Item("INVOICE_Code").ToString)
           Else
               Retrieve_Numorotation_Speciale = "0001"
           End If
           Dr.Close()
           Cnn.Close()
           Return GetTransNo
       Catch ex As Exception
           Cnn.Close()
           MsgBox(ex.Message, vbCritical)
       End Try
       Return Nothing
   End Function

تحياتي

في حالة اريد ترقيم فقط لا اريد ان اعرض التاريخ متلا 0001, 0002  و في اليوم التالي يبدا من 0001

توجد else و endif   اين if

[سعود]

إقتباس :في حالة اريد ترقيم فقط لا اريد ان اعرض التاريخ متلا 0001, 0002  و في اليوم التالي يبدا من 0001

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


حسب فكرتك ليس ترقيم بالمعنى لان الترقيم لا يتكرر وانما يحفظ على انه نص.
ارجو ايضاح الهدف من الفكرة لعل توجد حلول انسب.

[Osama_NY]

(14-12-20, 01:00 AM)سعود كتب :

إقتباس :في حالة اريد ترقيم فقط لا اريد ان اعرض التاريخ متلا 0001, 0002  و في اليوم التالي يبدا من 0001

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


حسب فكرتك ليس ترقيم بالمعنى لان الترقيم لا يتكرر وانما يحفظ على انه نص.
ارجو ايضاح الهدف من الفكرة لعل توجد حلول انسب.

مثلا منظومة مقهى اريد ان يكون الترقيم على عدد الزبائين و يبدا من 00001 في اليوم التالي