[mawadaalmogrbi]

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

[khalid475]

وعليكم السلام 

أرجوا إرفاق مثال للمشروع ليتم التطبيق عليه

[عبد العزيز البسكري]

(04-04-18, 09:16 PM)mawadaalmogrbi كتب : السلام عليكم اخواتي عندي منظومة يوجد بها الرقم الوظيفي واسم الموظف  بنسال ع طريقة بمجرد ادخال الرقم الوظيقي يظهر اسمه الموظف تلقائيا في الكومبو يااريت تساعدوني ضرو ري وشكرا  مقدما

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

ماذا تقصد أخي الكريم بالإدخال .. هل تقصد به الحفظ ..؟؟

تحياتي

[emamtron2014]

وعليكم السلام ورحمة الله وبركاته
اولا :قم بعمل sub  مثلا باسم EmpName_Load
وحدد اسم الفيلد الذي يحتوي علي رقم الموظف وليكن EmpID
 كما يلي

كود :

Public Sub EmpName_Load(ByVal EmpID As String)
       Dim dtEmpName As New DataTable
       dtEmpName.Clear()
       Dim cmd As New OleDbCommand("select [EmpName] from EmpName_Table where EmpID=@EmpID", connAccess2007)
       cmd.Parameters.Add("EmpID", OleDbType.Integer).Value = EmpID
       connAccess2007.Open()
       dtEmpName.Load(cmd.ExecuteReader)
       connAccess2007.Close()
       cmd = Nothing
   End Sub

ثانيا : في حدث ال  TextChanged  للتكست بوكس الذي تريد ان تضع فيه رقم الموظف تقوم باستدعاء ال  Sub
وتكتب الكود التالي 

كود :

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       EmpName_Load(TextBox1.Text)
       comboBox1.Text = dtEmpName.Rows(0).Item(0)
   End Sub