مشكل في التنقل بين السجلات

السلام عليكم أخي ...

عند الضغط على أزرار الأنتقال تقوم بتغيير الــ Position حسب الزر . هل هو الأول أم الأخير أو التالي أم السابق و تقوم باستدعاء الــ Function المسمى بــ ChangePosition و الذي المفروض أنه يظهر لنا أي سجل يظهر الآن ...

و لكن فيه عبارة ..

'Me.BindingContext(ds, "CahierJournal").Position = Me.BindingContext(ds, "CahierJournal").Count - 1

التي لا لزوم لها ..

و بالتالي الكود الصحيح هو ...

Public Sub ChangePosition()
        LabPosition.RightToLeft = Windows.Forms.RightToLeft.Yes
        LabPosition.Text = "اليوم " & Me.BindingContext(ds, "CahierJournal").Position + 1 & _
        " من " & Me.BindingContext(ds, "CahierJournal").Count

    End Sub

والله دائم الحضور اخي حسام نفع الله بك المسلمين و جزاك عنا خيرا

ساجيبك حسب ما فهمته من كلامك

وفهمي هو

ا ن امسج كود الازرار الاربعة وكتب فيها هذا كود

Public Sub ChangePosition()
        LabPosition.RightToLeft = Windows.Forms.RightToLeft.Yes
        LabPosition.Text = "اليوم " & Me.BindingContext(ds, "CahierJournal").Position + 1 & _
        " من " & Me.BindingContext(ds, "CahierJournal").Count
  End Sub

لكن

يالنسبة لكود

Public Sub ChangePosition()
        LabPosition.RightToLeft = Windows.Forms.RightToLeft.Yes
        LabPosition.Text = "اليوم " & Me.BindingContext(ds, "CahierJournal").Position + 1 & _
        " من " & Me.BindingContext(ds, "CahierJournal").Count

دوره هو تحديد السجل المفتوح و موقعه من بين السجلات المخزنة في فاعدة البيانات وكتابة ذلك في label

والكود الاول

Me.BindingContext(ds, "CahierJournal").Position = Me.BindingContext(ds, "CahierJournal").Count - 1</font></font><font

هو كود الانتقال بين السجلات ولا يمكن الغاؤه اخي حسام

الكود كان يعمل في بداية كتابته ولا اعرف ماذا حصل حتى اصبح لا يعمل

حفظك الله ورعاك

الان بعد مراجعة الكود وجدت الخطا عندها فهمت ردك الذي لم افهمه من ذ البداية

سبحان الذي لا يسهى ولا ينام

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

جزاك الله خيرا وجعلك من اصحاب النعيم في الفردوس الاعلى من الجنة

السلام عليكم أخي .... و أهلا و سهلا بك

اقتباس

ا ن امسج كود الازرار الاربعة وكتب فيها هذا كود

لا .. لا ...

فقط الــ Function المسمى بــ ChangePosition يجب أن يكون بالشكل :

Public Sub ChangePosition()
        LabPosition.RightToLeft = Windows.Forms.RightToLeft.Yes
        LabPosition.Text = "اليوم " & Me.BindingContext(ds, "CahierJournal").Position + 1 & _
        " من " & Me.BindingContext(ds, "CahierJournal").Count

    End Sub

بما أنه ليس لدي رصيد كاف من النقط فانا ساضع هذا السوال هنا

عندي tabcontrol

بها عدة صفحات

اريد معرف الحدث الذي اكتب فيه الكود عند الضعط على tabPages

لان الحدث click لا يعمل الى عند الضعط على الصفحة في الداخل

وانا اريد الحدث عند الضعط على عنوان الصفحة

جزاكم الله خيرا يا اخوة الاسلام

السلام عليكم ..

اقتباس

اريد معرف الحدث الذي اكتب فيه الكود عند الضعط على tabPages

الحدث هو :

SelectedIndexChanged

هذا الكود خاص ب tabcontrol

وليس tabpages

انا اريد تحميل بيانات من القاعدة الى الداتا قريد لكن في كل صفحة من tabcontrol يوجد داتا قريد تعبأ من بيانات القاعدة عند الضغط على عنوان الصفحة

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

وهو نفس الذي سيحدث إن تعاملت مع tabcontrol

و اظن ان الأفضل هو tabpages

هل من حل آخر جزاك الله خيرا؟؟؟

السلام عليكم ...

المكون اسمه TabControl و داخله عدة صفحات .. كل واحدة اسمها TabPage و أنت عندما تضفط على عنوان الصفحة (للذهاب إليها) .. يتحقق الحدث Event المسمى SelectedIndexChanged للــ TabControl لأنه الحاوية التي تضم (تحوي الصفحات)

اقتباس

و اظن ان الأفضل هو tabpages

لا يمكن إنشاء TabPage إلا داخل الــ TabControl

اقتباس

هل من حل آخر جزاك الله خيرا؟؟؟

لا حل آخر ..

جزاك الله خيرا

كل ماقلته اخي حسام لاخلاف عليه

لكن التعامل مع الصفحات امر ضروري لتحقيق فكرة البرنامج

لكن عموما عدلت على الفكرة وانا الان اكافح من اجل الكود

جزاك الله خيرا

هذه الصورة توضع التعديل على الفورم

الان لن احتاج الى صفحات

السلام عليكم ...

اقتباس

وانا الان اكافح من اجل الكود

وفقك الله

اقتباس

الان لن احتاج الى صفحات

جيد ..

السلام عليكم

كود التعرف على أي تاب تم الضغط عليها وتنفيذ كود معين وذلك بناءً على أسم التاب

Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.Click
    	MsgBox(TabControl1.SelectedIndex)
    	If TabControl1.SelectedTab.Text = "تسجيل مورد" Then
    	'Code
    	End If
        	'======================================================
    	ElseIf TabControl1.SelectedTab.Text = "تسجيل صنف" Then
    	'Code
        End If
        	'======================================================
    	ElseIf TabControl1.SelectedTab.Text = "تسجيل نوع" Then
    	'Code
    	End If
        	'======================================================
    	ElseIf TabControl1.SelectedTab.Text = "تسجيل عميل" Then
    	'Code
    	End If
End Sub