[Taha Okla]

(07-09-22, 11:32 AM)رضوان الجماعي كتب : تفضل
 Public Function Max_Table1()
       Dim Number As Integer
       Try
           Dim cmd As New OleDbCommand("Select Max(Emp_Code) From Table1 ", Con)
           If con.State = 1 Then con.Close()
           con.Open()
           Number = cmd.ExecuteScalar
           con.Close()
       Catch ex As Exception
           Number = 0
           con.Close()
       End Try
       Return Number
   End Function
ورح تستخدمه في   Call Clear_Text()

الله يعطيك العافية --

لكن :
السؤال الذي تجيب عليه آخر مشاركة فيه تعود لعام  2016