[adel27]

السلام عليكم 

عندي جدول ( Name-Emp , Code-Emp ,Casm-Emp)
الجدول الثاني ( , name-Emp code-Emp, tamestart, tamefansh)

الجدول بيانات اساسيه يسجلهم مره وحده فقط 
الجدول الثاني عليه العمل بمجرد ما يدخل الكودالموظف يحفظ وقت الدخول 
طبعا راح يحفظ الوقت والكود كيف اجعل البرنامج يبحث عن اسم صاحب الكود من الجدول الاول ويضيفه تلقائيا في الجدول الثاني
  

ايضا هناك حقل من نوع بايت احتاج اذا كانت قيمة الحقل = فولس يكتب لي غايب 
كيف الطريقه الله يعطيكم العافيه

[أبو عمر]

سؤال مهم يا عادل
بداية اجعل كود الموظف سجله المدني حتى تضمن شغلات كثير
ثاني شيء في جدول الحضور والانصراف ما انت بحاجة لتسجيل اللي غاب
لانه اذا ماله بيانات في اليوم كذا يبقى غايب من غير كلام واللي مسجلين هم اللي حضروا
يعني
الجدول الاساسي فيه السجل المدني اسم الموظف الخ
الجدول الثاني
اليوم -- التاريخ -- السجل المدني الوقت1 --- الوقت2
يعني حضور وانصراف فقط
من غير اي غلبة
ولما احب الاستعلام عن حضور وغياب يوم
select Inner hoin
ولمعرفة اللي غاب
SELECT t.*
FROM TABLE_LIST t
LEFT JOIN TABLE_LOG tl ON tl.jid = t.jid
WHERE tl.jid IS NULL
لانك لو حطيت True False

[adel27]

شــكرا يابو عمر 


والله ما قدرت لكن صـاحب العمل بيغا كود طبعاَ هذا الكود مراح يتكرر أنتهيت من بنـاء جملته 

ياليت يابو عمر تحط الأستعلام في مربع نص ترا لك علي في فهم الكود 

الجدولين (البحث في جدول الموظفين عن صاحب الكود المسجل في تكست بكس1وأظهر لي أسمه في تكست بكس2 )

أيضاً هل أستطع التعامل مع الفيوز مثل ما أتعامل مع الجدول ..؟
يعني قلت أسوي فيوز وأشكل الجدول اللي أبيه

[ابو ليلى]

و عليكم السلام و رحمة الله و بركاته

PHP كود :

   Public Function GetFiled(ByVal ReturnFiled As String, ByVal Tbl As String, ByVal CondFiled As String, ByVal Id As String) As String
        Dim serch As String = ""
        serch = "Select " & ReturnFiled & " From " & Tbl & " Where " & CondFiled & " Like '" & Id & "' "

        Dim Cmd As New OleDbCommand(serch, Con)
        Dim ReturnResult As String = ""
        OpenConnect()
        Dim red As OleDbDataReader = Cmd.ExecuteReader
        While red.Read
            If red.HasRows Then
                If Not (red(ReturnFiled) Is Nothing) Or red(ReturnFiled).ToString.Length > 0 Then
                    ReturnResult = red(ReturnFiled).ToString
                Else
                    ReturnResult = Nothing
                End If
            End If
        End While
        red.Close()
        Cmd.Dispose()
        CloseConnect()
        Return ReturnResult
    End Function 


هذه الدالة تعيد لك الحقل الذي تريد من الجدول الذي تريد

البارمترات
ReturnFiled =الحقل الذي تريد قيمته
Tbl = اسم الجدول الذي تريد البحث فيه
CondFiled =الحقل الشرطي
Id =قيمة الحقل الشرطي



مثال 

PHP كود :

       TextBox2.Text = GetFiled("name-Emp", "Emps", "code-Emp", TextBox1.Text) 


شكل جملة الاستعلام الناتجة من الدالة السابقة

PHP كود :

Select name-Emp From Emps Where code-Emp Like '" & TextBox1.TextT & "' 


[adel27]

أســال الله أن يوفقك ويسهل أمــرك ألف ألف شـكر  ولجميع الأخوه المتفاعلين   أعظم فائده لي في التعامل مع جدولين 
ششششششرح رائع