طارق نادر

للرفع

للرفع..رفع الله مقامكم...

السلام عليكم ارفق ملف يوجد فيه مشكلة وحيده وهي في TextBox2 وهو مسؤول عن الرقم الوزاري للموظف. وذلك عند ادخال بيانات موظف جديده وحفظها في صفحة البيانات لا يتم حفظ الرقم الوزاري للموظف في خلايا العمود B ولكن يتم حفظ بدلا عنه الرقم المتسلسل في عامود A . ولكي يتوضح ما اريد ارجو منكم عمل تجربة على الملف المرفق وادخال بيانات في TextBox2 تحديدا ومن ثم الضغط على زر (حفظ الجديد ) . الرقم السري للملف المرفق tareq972708 ولكم مني التقدير والعرفان دائما 2017صيفية برمجية استعلام.rar

كل شكر وتقدير لك اهي العزيز لقد تم المطلوب

للرفع

للرفع

للرفع

اشكرك اخي الكريم يتم تنفيذ امر اللون على خلية واحدة وليس على الصف

للرفع

للرفع...رفع الله مقامكم

السلام عليكم لدي فورم يوجد عليه زر جديد اريد منكم مساعدتي في اضافة امر اخر لهذا الزر وهو (تلوين الصف ) الذي تم اضافته الى الشيت Private Sub CommandButton3_Click() Dim i As Integer, LastR As Long, ws As Worksheet Set ws = ThisWorkbook.Sheets("البيانات") LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1 TextBox2 = LastRow - 1 With ws For i = 2 To 17 .Cells(LastRow, i).Value = Me.Controls("TextBox" & i).Value Next i End With MsgBox "تم حفظ بيانات الموظف بنجاح", vbOKOnly + vbInformation, "تم الحفظ" For i = 2 To 17 Me.Controls("TextBox" & i).Value = "" Next CommandButton3.Enabled = False CommandButton4.Enabled = False Me.ComboBox1.Clear TextBox2.SetFocus End Sub الذي تم اضافته بحيث عند الاضافة ينفذ امرين في نفس الوقت

هذا كود اخر اريد ان اضيف اليه امر لكي يتم تلوين الصف الذي احفظه فيه اذا تكرمت اخي ابو البراء نفس المطلب الاول حاولت ان ان الصق الامر الذي اعطيتني اياه في اكثر من مكان في الكود ولكن لم يحدث شيء Private Sub CommandButton3_Click() Dim i As Integer, LastR As Long, ws As Worksheet Set ws = ThisWorkbook.Sheets("ÇáÈíÇäÇÊ") LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1 TextBox2 = LastRow - 1 With ws For i = 2 To 17 .Cells(LastRow, i).Value = Me.Controls("TextBox" & i).Value Next i End With MsgBox "Êã ÍÝÙ ÈíÇäÇÊ ÇáãæÙÝ ÈäÌÇÍ", vbOKOnly + vbInformation, "Êã ÇáÍÝÙ" For i = 2 To 17 Me.Controls("TextBox" & i).Value = "" Next CommandButton3.Enabled = False CommandButton4.Enabled = False Me.ComboBox1.Clear TextBox2.SetFocus End Sub

كل الشكر لك...جاري التجريب وسأعلمك بالنتيجة كل الشكر والتقدير ابو البراء حسب المطلوب بالضبط لك احترامي وتقديري

للرفع

السلام عليكم لدي فورم يوجد عليه زر حفظ وتعديل اريد منكم مساعدتي في اضافة امر اخر لهذا الزر وهو تلوين الصف الذي تم تعديله بحيث عند التعديل ينفذ امرين في نفس الوقت Dim ws As Worksheet, LastRow As Long Set ws = ThisWorkbook.Sheets("ÇáÈíÇäÇÊ") LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1 If Me.ComboBox1.Text <> "" Then For T = 2 To LastRow If Me.ComboBox1.Text = ws.Cells(T, 3) Then For i = 2 To 17 ws.Cells(T, i).Value = Me.Controls("TextBox" & i).Value Next MsgBox "Êã ÊÚÏíá ÈíÇäÇÊ ÇáãæÙÝ ÈäÌÇÍ", vbOKOnly + vbInformation, "Êã ÇáÊÚÏíá" GoTo 1 End If Next End If 1 For i = 2 To 17 Me.Controls("TextBox" & i).Value = "" Next CommandButton3.Enabled = False CommandButton4.Enabled = False Me.ComboBox1.Clear TextBox2.SetFocus End Sub

السلام عليكم..زر البحث في المرفق لايخرج النتائج في الأماكن المخصصة في الفورم علما ان عملية البحث اما بالاسم او رقم الوزاري للموظف حاولت كثير ولكني عجزت...شكرا لتعاونكم 2017صيفية برمجية استعلام.rar

للرفع لطفا....

للرفع

السلام عليكم.. زر البحث في البرمجية المرفقة لا يعمل علما ان عملية البحث تكون اما بالرقم الوزاري او عن طريق الاسم للموظف ولكن عند البحث لاتظهر نتائج في الاماكن المخصصة في الفورم... الرقم السري tareq972708 2017صيفية برمجية استعلام.rar

للرفع

للرفع للرفع

ارفق برمجية يوجد فيها مشكلة في عملية البحث حيث عندما ابحث عن طريق الاسم او الرقم الوزاري للمعلم لا تظهر النتائج المطلوبة في اماكنها المخصصة في الفورم ارجو منك مساعدتي في ذلك لطفا مع شرح المشكله اذا امكن لكي اتعلم من الخطأ الذي حصل...مع الاعتذار اذا خالفت شروط المنتدى في طرح الموضوع ....وشكرا الرقم السري tareq972708 2017صيفية برمجية استعلام.rar

للرفع

للرفع

للرفع