[علاء الكبابي]

(22-06-19, 04:47 PM)elgokr كتب : والملاحظة تم وضعها بناءاً على هذا الجزء..

(21-06-19, 06:03 AM)علاء الكبابي كتب : في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....

فاتمنى قبول منى النقاش والتنبيه على هذه الجزئية

تحياتى لك

وتمنياتى لك التوفيق

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

---

(22-06-19, 05:19 PM)alshandodi كتب :

(21-06-19, 06:03 AM)علاء الكبابي كتب : احبابي في الله السلام عليكم 
في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....
اريد كود اذا تم ادخال رقم لصنف غير مسجل على قاعدة البيانات تظهر رسالة تنبيه... الصنف غير مسجل
ولكم جزيل الشكر

إقتباس :

كود :

 Private Sub txtID_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtID.KeyDown
       If e.KeyCode = Keys.Enter Then
           'get product infos

           Try

               cmd = New OleDb.OleDbCommand("select Label , price from Table1 where id = " & Textbox1.Text, con)
               con.Open()
               Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
               dr.Read()
            If dr.HasRows Then
             textbox2.Text = dr(1)        
                   textbox3.Text = dr(2)
                   textbox4.Focus()
                   textbox4.Text = "1"
               Else
                   MsgBox("لايوجد معرف بهذا الرقم", MsgBoxStyle.Exclamation, "تنبيه")
                   clear()
               End If
               dr.Close()

           Catch ex As Exception
               Exit Sub
           Finally
               con.Close()
           End Try




       End If

   End Sub

 أتمنى ان يفيدك هذا الكود المتواضع 

للأسف لم استطع استخدامه