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()
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()
اللهم اني قد نذرت نفسي لمساعدت الاخرين فوفقني وكن لي معين
جاهز لمساعدة اي حد يحتاج لمساعدتي
طبيب اعشق البرمجة .
