قواعد المشاركة في المنتدى

(قسم الاعلانات) الموضوع:مميزات شركة تخزين عفش بالرياض بواسطة: (شركة الصالحية) :: (قسم الاعلانات) الموضوع:افضل شركة رش مبيدات بالرياض بواسطة: (شركة الصالحية) :: (قسم الاعلانات) الموضوع:شركة مكافحة الفئران بالرياض بواسطة: (شركة الصالحية) :: (قسم الاعلانات) الموضوع:خطوات شركة الصالحية لتسليك المجاري بالرياض بواسطة: (شركة الصالحية) :: (قسم الاعلانات) الموضوع:شركة الصالحية لخدمات تنظيف الخزانات بالرياض بواسطة: (شركة الصالحية) :: (قسم الاعلانات) الموضوع:أفضل مواد العزل المائي شركة الصالحية بواسطة: (شركة الصالحية) :: (قسم الاعلانات) الموضوع:اسعار شركة الصالحية لعزل الاسطح بالرياض بواسطة: (شركة الصالحية) :: (أخبار التكنولوجيا) الموضوع:راقي شرعي.. الشيخ طلال القحطاني بواسطة: (ذياد الزين) :: (قسم الاعلانات) الموضوع:خدمات شركة الصالحية لكشف تسربات المياه شمال الرياض بواسطة: (شركة الصالحية) :: (قسم الاعلانات) الموضوع:بشرى شاكر كوتش تجميل ومصففة شعر- دورات للمبتدئات والمحترفات بواسطة: (ضياء روحي) :: (منتدى الأكسس) الموضوع:شرح عمل تقرير يظهر وايام الغياب تلقائي تواريخ لم يتم تسجيل حضور فيها بواسطة: (hanymajdy) :: (قسم التطوير والاقتراحات) الموضوع:نقل عفش بالدمام نقل اثاث بالدمام بواسطة: (fareskingdom) :: (قسم الاعلانات) الموضوع:المجلة العربية للعلوم و نشر الأبحاث بواسطة: (bensamy) :: (منتدى الوورد والباور بوينت) الموضوع:راقي شرعي الشيخ طلال القحطاني بواسطة: (منهل المعرفه) :: (قسم الاعلانات) الموضوع:شركه تسليك مجاري بالكويت بواسطة: (اسماء عومر) :: (قسم الاعلانات) الموضوع:نصائح شركة تنظيف مكيفات الهواء الاسبليت بواسطة: (فارس اسلام) :: (منتدى برمجة الشبكات في بيئة الدوت نت) الموضوع:تعليم الشبكات مع دبلومة الشبكات Network Diploma على 5 اسطوانات بواسطة: (Vahid99) :: (منتدى الدعم الفني للماسنجر المحيط العربي) الموضوع:Sons Of Anarchy DVD بواسطة: (Vahid99) :: (منتدى Borland Delphi) الموضوع:تعرف على قواعد بيانات FireBird بواسطة: (Vahid99) :: (منتدى نظام تشغيل Linux) الموضوع:برنامج بلغة السي في اللينكس بواسطة: (Vahid99)

المواضيع المثبته: (منتدى مبرمجي ASP.NET) الموضوع:Visual Web Developer 2010 Express بواسطة: (يوسف جميل جادالله) :: (قسم المواضيع المميزة) الموضوع:المحاسب المميز - الاصدار الثاني - محاسبة و مخازن بواسطة: (alalal) :: (منتدى البرامج) الموضوع:شروحات لبرامجك المفضلة بواسطة: (junkbki) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:يجب المرور هنا للأهمية بواسطة: (وليد القدسي) :: (منتدى مبرمجي ASP.NET) الموضوع:كيفية ربط الأوراكل مع asp.net بواسطة: (عبدالله جابر شقليه) :: (منتدى برمجة الألعاب) الموضوع:استراتيجية انتاج و تسويق الالعاب بواسطة: (مصطفي البارودي) :: (منتدى مبرمجي ASP) الموضوع:كتاب مكون من 16 جزاء يتكلم عن asp بواسطة: (amricost) :: (منتدى مبرمجي Microsoft Visual VB.NET) الموضوع:دورة في LINQ To DataSet بواسطة: (jbsa) :: (منتدى الوورد والباور بوينت) الموضوع:مكتبة الوورد بواسطة: (ramies) :: (منتدى Microsoft Visual Basic) الموضوع:برنامج الحسابات مع الكود بواسطة: (د.أنس عباس) :: (منتدى مبرمجي Microsoft Visual VB.NET) الموضوع:المخازن المتطور الاصدار الثانى بواسطة: (alaa gomaa) :: (منتدى البرامج) الموضوع:برنامج القرآن الكريم كاملاً مع التفسير بواسطة: (tarik-2007) :: (منتدى الأكسس) الموضوع:الوصل الي المساعده بشكل سريع وتحميل المرفقات الى المنتدي بواسطة: (startnet) :: (منتدى برمجة الشبكات في بيئة الدوت نت) الموضوع:عمل برنامج بسيط مع قاعدة بيانات اكسس على شبكة محلية بواسطة: (allnsh 3) :: (منتدى C و C) الموضوع:برنامج من سيربح المليون بواسطة: (مصطفي البارودي) :: (القسم المفتوح) الموضوع:قصص الأنبياء عليهم السلام .جميعا بواسطة: (غزاوية أصيلة) :: (منتدى أجاكس(Asynchronous JavaScript and XML)) الموضوع:تقسيم النتائج لعدة صفحات مع 3 لغات برمجة ويب بواسطة: (عبدالله جابر شقليه) :: (قسم الدروس و الدورات) الموضوع:برمجة بصمة الاصبع مع الدوت نت Microsoft FingerPrint Reader بواسطة: (FunctionSys) :: (منتدى مبرمجي ASP.NET) الموضوع:كيفية قرائة الصحف الإلكترونية والكتب والمجلات عبر الانترنت بواسطة: (عبدالله جابر شقليه) :: (قسم أوفيس 2007) الموضوع:هذا القسم ارشيف المشاركات في منتدي الاكسس بواسطة: (startnet)

إضافة رد إضافة موضوع جديد

> مشكلة في الانتقال الى رقم السجل الحالي حسب البحث
Bookmark and Share
تقييم الموضوع Label معدل التقيم:0
مشاركةالجمعة,03/ذو الحجة/1430 هـ,10:09 مساءً
المشاركة #1

الرتبة في المنتدى:ملازم

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 54
سجل في:الجمعة,03/ذو الحجة/1430 هـ,09:50 مساءً
الدولة:السعودية
رقم العضوية: 92914



السلام عليكم
عندي مشكلة في الانتقال الى رقم السجل الحالي حسب البحث
مثال عند بحيث عن سجل رقم 5 لا ينتقل الى الرقم (5 من 12)
حيث يبقا في السجل الاول (1 من 12)
في المرفق توضيح اكثر نرجو منكم المساعدة


الملفات المرفقة
 البحث عن رقم سجل.rar ( 75.61ك ) عدد مرات التنزيل: 318


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالأحد,05/ذو الحجة/1430 هـ,01:19 مساءً
المشاركة #2

خبيرتحليل نظم و دوت نت
الرتبة في المنتدى:عماد

أيقونة المجموعة

المجموعة: مشرفي الموقع
المشاركات: 3847
سجل في:الأحد,17/محرم/1428 هـ,05:57 صباحاً
الدولة:الأردن
رقم العضوية: 19244






اخي الكريم

نرجو في المرات القادمة ان تضع عنوان مناسب للموضوع حتى لا يتم اغلاقه.

تفضل هذا الحل

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If TextBox5.Text = "" Then
            MsgBox("الرجاء ادخال البيانات كاملة ")
            TextBox1.Focus()
        Else
            Try
                'Conn.Open()
                'Dim cmd As New OleDbCommand()
                'cmd.CommandText = "select * from tb where ID=" & TextBox5.Text & ""
                'cmd.Connection = Conn
                'Dim rd As OleDbDataReader = cmd.ExecuteReader
                'If rd.Read = True Then

                '    TextBox1.Text = rd.GetValue(0)
                '    TextBox2.Text = rd.GetValue(1)
                '    TextBox3.Text = rd.GetValue(2)

                'Else
                '    MsgBox("رقم القسم غير موجود")

                'End If
                'xpos()
                'rd.Close()
                'Conn.Close()
                Dim ind = pos()
                If pos() > -1 Then
                    Me.BindingContext(DataSet1, "tb").Position = ind
                Else
                    MsgBox("غير موجود")
                End If
            Catch exp As Exception
                MsgBox(exp.Message)
            End Try
        End If

    End Sub
    Function pos() As Integer
        Dim dv As DataView = DataSet1.Tables("tb").DefaultView
        dv.Sort = "id"
        Dim index As Integer = dv.Find(TextBox5.Text)
        Return index
    End Function


تحياتي للجميع
ابو سامر
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالاثنين,06/ذو الحجة/1430 هـ,10:06 مساءً
المشاركة #3

الرتبة في المنتدى:ملازم

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 54
سجل في:الجمعة,03/ذو الحجة/1430 هـ,09:50 مساءً
الدولة:السعودية
رقم العضوية: 92914



ابو سامر
الف شكر على المساعدة
واسف على العنوان


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالخميس,21/جمادى الثانية/1431 هـ,11:33 صباحاً
المشاركة #4

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 9
سجل في:الخميس,03/جمادى الأولى/1429 هـ,01:49 صباحاً
الدولة:السعودية
رقم العضوية: 53908



 اقتباس (نور داري,03/06/2010 09

22 ص)
صباح الخير ..

[ALIGN=RIGHT]أستاذ عندي برنامج يسجل حضور موظفين بشكل يومي الفكره : اذا سجل موظف حضورة و ضغط بالخطأ مره أخرى تظهر رساله تم تسجيل حضورك و اذا لم يكن رقم الموظف موجود يظهر غير موجود .. أما اذا لم يسجل حضورة فبعد اختيار اسمه من الكومبوبوكس يتم تسجيل الحضور

شاشة التصميم : كومبوبوكس تظهر فيها الأسماء من حقل في جدول للقاعدة ..تمام
بعد الاختيار اسم الموظف يظهر رقمة ID في مربع نص و بعدها يتم تسجيل الدخول بناء ع التاريخ و الوقت
لكن مشكلة الشيفرة أنه في كل مره يبدأ القراءة من أول سجل يعني بالرغم من ظهور رقم ID التابع للموظف في مربع النص صحيح لكن حين يختبر تعود القيمة للـ 1 و يختبر نفس الشخص الأول متجاهلاً بقية Id
هذا هو الكود المستعمل

[/ALIGN]:


 Dim SavInto As New OleDb.OleDbCommand
        If Trim(ComboBox1.Text) = "" Then
            MsgBox("الرجاء اختيار موظف", MsgBoxStyle.Critical)
            ComboBox1.Focus()
        Else
            Try
                Conn.Open()
                Dim cmd As New OleDbCommand()
                cmd.CommandText = "select * from Emp_Com where ID=" & TextBox1.Text
                cmd.CommandText = "select * from Emp_Com where a='" & TextBox3.Text & "'"
                cmd.Connection = Conn
                Dim rd As OleDbDataReader = cmd.ExecuteReader
                If rd.Read = True Then
                    'الخطأ هنا في كل مره يتم اختيار عنصر من الكومبوبوكس يقيم فقط العنصر الذي رقم الفهرسه 1 و يتجاهل بقية الفهارس
                    TextBox1.Text = rd.GetValue(0)
                    TextBox3.Text = rd.GetValue(2)
                    MsgBox("رقم الموظف موجود")
                    MsgBox("لقد تم تسجيل حضور الموظف في وقت سابق من هذا اليوم")
                Else
                    MsgBox("رقم الموظف غير موجود", , "Try")
                    SavInto.Connection = Conn
                    SavInto.CommandType = CommandType.Text
                    SavInto.CommandText = "insert INTO Emp_Com(ID,a,b)" & _
                     "values (" & TextBox1.Text & ",'" & TextBox3.Text & "','" & TextBox2.Text & "')"
                    If Conn.State = ConnectionState.Open Then Conn.Close()
                    Conn.Open()
                    SavInto.ExecuteNonQuery()
                    Conn.Close()
                    MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")
                    TextBox1.Clear()
                End If
                Conn.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
للذهاب للمشاركة الأصلية اضغط هنا


حررت من قبل: jbsa في الخميس,21/جمادى الثانية/1431 هـ,12:52 مساءً



المصغرات المرفقة
صورة مرفقة صورة مرفقة صورة مرفقة

لضغط جميع المرفقات اضغط هنا

للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالخميس,21/جمادى الثانية/1431 هـ,01:29 مساءً
المشاركة #5

خبيرتحليل نظم و دوت نت
الرتبة في المنتدى:عماد

أيقونة المجموعة

المجموعة: مشرفي الموقع
المشاركات: 3847
سجل في:الأحد,17/محرم/1428 هـ,05:57 صباحاً
الدولة:الأردن
رقم العضوية: 19244






اخي الكريم نور

يرجى وضع مشاركاتك في موضوع مستقل عند السؤال عن موضوع يختلف عن المشاركة الاصلية.

cmd.CommandText = "select * from Emp_Com where ID=" & TextBox1.Text
cmd.CommandText = "select * from Emp_Com where a='" & TextBox3.Text & "'"


لا يوجد اي قيمة او اعتبار للجملة الاولى لانك غيرتها في الجملة الثانية.

الحل يجب تحديد قيمة textbox1 عند اختيار الاسم من الكمبو وقبل عملية البحث .

وكذلك الغاء هذه الجمل

 TextBox1.Text = rd.GetValue(0)
 TextBox3.Text = rd.GetValue(2)



وهنا ارفاق البرنامج افضل من ارفاق الصور .

تحياتي للجميع
ابو سامر
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالجمعة,02/فر/1440 هـ,02:15 مساءً
المشاركة #6

الرتبة في المنتدى:ملازم

أيقونة المجموعة

المجموعة: أعضاء فعالين
المشاركات: 103
سجل في:الجمعة,02/فر/1440 هـ,11:54 صباحاً
الدولة:أثيوبيا
رقم العضوية: 112156



burberry outlet canada
coach outlet online
canada goose jackets
nike air max 1
nike air presto
coach outlet
ugg outlet
uggs outlet store
coach factorty outlet
longchamp handbags
new balance outlet
red bottoms shoes
kate spade outlet
birkenstock sandals
gucci outlet
baltimore orioles jerseys
supreme new york
coach factory outlet
jordans
coach outlet
fendi handbags
seattle mariners jerseys
kansas city royals jerseys
new york mets jerseys
mont blanc pens
nike react shoes
jimmy choo outlet
vans shoes
uggs canada
fitflops
cheap jordans
canada goose sale
kate spade handbag
fred perry polo
coach outlet
uggs outlet
pandora charms sale clearance
toms outlet
cheap jordans free shipping
michael kors outlet
swarovski outlet
coach factory outlet
canada goose outlet
arizona diamondbacks jerseys
coach outlet store
louboutin shoes
longchamp outlet
air jordans
pg 2
adidas superstar
pandora jewelry official site
polo outlet
lacoste polo shirts
nfl jerseys wholesale
salomon shoes
supreme clothing
adidas yeezy boost
salvatore ferragamo shoes
pandora jewelry
north face outlet
ecco shoes for men
kevin durant shoes
nike outlet store
dansko shoes
nike zoom
louis vuitton outlet
kobe shoes
tampa bay devil rays jerseys
kate spade outlet
air max 2019
nike outlet
nike air max 95
pandora store
timberland outlet
nmd adidas
coach factory outlet
nike basketball shoes
coach outlet store online clearances
uggs
michael kors outlet
coach outlet store
coach outlet
adidas superstar
coach canada
nike air max
jordan retro 11
nike store
oakley sunglasses outlet
pandora
kate spade bags
coach outlet
philipp plein outlet
canada goose jackets
ugg outlet
nike zoom
oakley sunglasses
michael kors outlet
polo ralph lauren outlet online
vans store
michael kors outlet
181012yueqin


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
bjt
مشاركةالخميس,06/شعبان/1440 هـ,06:39 صباحاً
المشاركة #7

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 14
سجل في:الخميس,06/شعبان/1440 هـ,06:30 صباحاً
الدولة:أثيوبيا
رقم العضوية: 113821





--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالخميس,24/شوال/1440 هـ,08:28 صباحاً
المشاركة #8

الرتبة في المنتدى:ملازم

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 74
سجل في:الخميس,04/جمادى الأولى/1440 هـ,03:34 صباحاً
الدولة:مصر
رقم العضوية: 113498



هذا مجنون: شركة نقل الاثاث
إنه يتحسن / أسوأ:
ولكن ها هو الراكل:
هل تريد معرفة أفضل جزء؟

قد تتساءل ...

... لماذا تجذب ألوية الجرافة انتباه القارئ؟ لماذا يجعلون القراء فضوليين بما يكفي لمواصلة القراءة؟

إنها تخلق الفضول لنفس السبب الذي يجعلنا نتساءل عن الأفلام "ماذا سيحدث؟" الروايات الغامضة تسبب لنا أن نسأل ، "من فعل ذلك؟" ؛ والمسابقات الرياضية تجعلنا نسأل ، "من سيفوز؟"

كما قال الاقتصادي السلوكي من جامعة كارنيجي ميلون ، جورج لوفينشتاين: "يحدث الفضول عندما نشعر بوجود فجوة في معرفتنا".

ها هي كيكر:

عندما تعطي للقارئ كل الحقائق ، فإنك تتركها راضية - ومثلما لا ترغب في الاستمرار في تناول الطعام على معدة كاملة ، فإن قرائك ليس لديهم الرغبة في الاستمرار في القراءة عندما يتم إرضاء فضولهم.

القراء حقا يريدون العمل لمكافأتهم. فقط فكر في عدد الأشخاص الذين يحبون الضغط على الكلمة الأخيرة في لغز الكلمات المتقاطعة. عندما تصبح الإجابات سهلة ، تكون مملة. صعب للغاية ، ونعم ، قد نستسلم. ولكن عندما يكون التحدي صعبًا ، وعندما يجعلنا نتساءل ، فإننا نلفت انتباه القراء.

أتريد أن تعرف الجزء الأفضل؟

ونش رفع عفش

لجعل القراء فضوليين ، لا نحتاج إلى الخروج والعثور على قصص آسرة جديدة أو رؤى مضادة للحدس (على الرغم من أنها تساعد). يمكننا استخدام المعلومات التي لدينا ، ولكن تغيير هيكل كتابتنا لإنشاء والحفاظ على اهتمام القراء.

نحتاج ببساطة إلى تقديم مشكلة أو سؤال ووقف الإجابة. يجب علينا خلق فجوات المعرفة من خلال مقالتنا بأكملها. وفي كل مرة نملأ فيها فجوة في المعرفة ، ولكل إجابة نقدمها ، يجب أن نطرح سؤالًا آخر أو نكشف عن معلومات جديدة تخلق فجوة في المعرفة.

إنشاء فجوة في المعرفة يشبه طلب عنصر من قائمة مطعمك المفضل. أنت ستستمر لأن لديك وجبة لذيذة قادمة. تقوم فجوات المعرفة بالشيء نفسه ، وتواصل القراءة لأنك تعلم أن المقالة سترضي فضولك.

تمامًا كما يجب علينا الاستمرار في إضافة سجلات للحفاظ على الحرائق ، يجب أن نواصل إضافة فجوات المعرفة واستخدام ألوية الجردل لقراء القراء.


--------------------
عوامل النجاح في الحصول على أفضل شركات نقل الأثاث بالقاهرة لاننا متخصصون ومتميزون شركات نقل اثاث بالقاهرة مهماك انت الصعوبه انت فى حاجه شركة نقل أثاث بالقاهرة
صحتك تهمنا
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالسبت,24/رمضان/1441 هـ,09:04 صباحاً
المشاركة #9

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 11
سجل في:الجمعة,09/رمضان/1441 هـ,01:47 صباحاً
الدولة:أثيوبيا
رقم العضوية: 115812





--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة

    

عدد المتصفحين لهذا المنتدى «1»: (الضيوف «1» - المتخفون «0»)
الأعضاء «0»: .

إضافة رد جديد إضافة موضوع جديد



 
الوقت الأن:اليوم,04:40 صباحاً بتوقيت القدس المحتلة

Powered By arabmoheet v3.1

منتديات المحيط العربي  -  راسلنا  -   أعلى
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)