[عبد العزيز البسكري]

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

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

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

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

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

كود :

  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

تحياتي