[اسامه الهرماوي]

(27-12-18, 03:39 PM)Emam emam كتب :

(27-12-18, 11:47 AM)اسامه الهرماوي كتب : اولا شكرا ليك اخي وعلي مجهودك...
وجعله الله في مزان حسناتك...

فانا اقصد بالطلب رقم ٣ تسجيل الحضور والانصراف يعني لو الموظف 
سجل اسمة حضور وجه يسجلة حضور مرة اخري يعطي رسالة بانة 
تم التسجيل اليوم...
وجزاء اللهكل خير...

تفضل اخي هذا الكود عندما يكون الموظف موجود او تم تحضيره في هذا اليوم لايتم التسجيل

اما ان لم يكن موجود او ان لم يكن مسجل في هذا اليوم فيقوم بتسجيل الموظف

كود :

 Public Sub Check_Presence_load(ByVal Presence_Date As DateTime, ByVal Emp_Name As String)

        DT.Clear()
        Dim cmd As New OleDbCommand("select * from Presence_Table where Presence_Date=@Presence_Date and Emp_Name=@Emp_Name", connAccess2007)
        cmd.Parameters.Add("Presence_Date", OleDbType.Date).Value = Presence_Date
        cmd.Parameters.Add("Emp_Name", OleDbType.VarChar).Value = Emp_Name
        connAccess2007.Open()
        DT.Load(cmd.ExecuteReader)
        connAccess2007.Close()
        cmd = Nothing
    End Sub

                Check_Presence_load(Label17.Text, Label5.Text)
 If Not DT.Rows.Count > 0 Then
                    'ضع كود الاضافه هنا
                End If

شكرا اخي وماذا عن موضعك..