مساعده فى عمل برنامج

[جوزيف55]

Private Sub ComboBox1_Change()
TextBox1.Value = ComboBox1.Value
End Sub

انا بعمل برنامج شئون عاملين تكاليف وفيه خانة مهنة العامل والتاريخ واسم العامل ومركز التكلفه وساعاتالعمل والاضافى وعايز لما اكتب اسم العامل يظهر فى خانة المهنه مهنة العامل سواء كان مبيض او نحات او غيره وجربت الكود ده لكن منفعش الرجاء المساعده

ياريت تدخل على الفيجول بيسك الاول وهترقى التصميم

برنامج تكاليف.rar

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

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

أخي الكريم .. أن تعمل عشرين أو ثلاثين كومبوبوكس .. عمل شاق فعلاً

هل أنتَ ملزم بعمل مثلما قمت بتصميمه .. أم مجرّد عمل يمكن التغيير عليه

ذكرت بموضوعك ..أنّك عايز لما تكتب .....حدّد لو سمحت .. أنّك عايز تكتب اسم العامل أم تستعرض اسم العامل بواسطة الكومبوبوكس

لابدّ من الرجوع لقاعدة البيانات لتغذية الكومبوبوكسات .. بينما الكود الذي كتبته ليس به أي أثر لمصدر البيانات

مجرّد ملاحظات أخي الكريم .. لتسهيل المهمة لمن يريد المساعدة من الأساتذة الأكارم بارك الله فيهم مقدّمًا

فائق إحتراماتي

 

 

[ياسر خليل أبو البراء]

أخي الكريم

يرجى تغيير اسم الظهور للغة العربية

أولاً حدد الـ ComboBox1 وغير الخاصية BoundColumn من 2 إلى 1 ..

ثانياً : قم بحذف هذا الجزء من الكود

Private Sub TextBox16_Change()
TextBox16.Value = ComboBox1.Value
End Sub

ثالثاً ضع الكود التالي في حدث الفورم بالطبع

Private Sub ComboBox1_Change()
    On Error Resume Next
    TextBox16.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row), 2, 0)
End Sub

تقبل تحياتي

 

[جوزيف55]

23 دقائق مضت, عبد العزيز البسكري said:

 

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

أخي الكريم .. أن تعمل عشرين أو ثلاثين كومبوبوكس .. عمل شاق فعلاً

هل أنتَ ملزم بعمل مثلما قمت بتصميمه .. أم مجرّد عمل يمكن التغيير عليه

فعلا ملتزم لانه عباره عن برنامج وان مضطر ادخل الاسماء كل يوم موزعه على مراكز التكاليف

ذكرت بموضوعك ..أنّك عايز لما تكتب .....حدّد لو سمحت .. أنّك عايز تكتب اسم العامل أم تستعرض اسم العامل بواسطة الكومبوبوكس

بمجرد مااكتب اول حرف يظهر باقى الاسم

لابدّ من الرجوع لقاعدة البيانات لتغذية الكومبوبوكسات .. بينما الكود الذي كتبته ليس به أي أثر لمصدر البيانات

ياريت تساعدنى لانى مبتدىء فى الموضوع

مجرّد ملاحظات أخي الكريم .. لتسهيل المهمة لمن يريد المساعدة من الأساتذة الأكارم بارك الله فيهم مقدّمًا

فائق إحتراماتي

شكرا لاهتمام حضرتك اوى

 

 

 

25 دقائق مضت, ياسر خليل أبو البراء said:

أخي الكريم

يرجى تغيير اسم الظهور للغة العربية

أولاً حدد الـ ComboBox1 وغير الخاصية BoundColumn من 2 إلى 1 ..

ثانياً : قم بحذف هذا الجزء من الكود

Private Sub TextBox16_Change()
TextBox16.Value = ComboBox1.Value
End Sub

ثالثاً ضع الكود التالي في حدث الفورم بالطبع

Private Sub ComboBox1_Change()
    On Error Resume Next
    TextBox16.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row), 2, 0)
End Sub

تقبل تحياتي

 

شكرا لرد حضرتك انا جربت الكود لاكن لما بكتب الاسم وانزل على اللى بعده مش بيكتب المهنه بتاعته

الرجاء التوضيح

7 دقائق مضت, joseph55 said:

 

شكرا لرد حضرتك انا جربت الكود لاكن لما بكتب الاسم وانزل على اللى بعده مش بيكتب المهنه بتاعته

الرجاء التوضيح

انا اسف هو الكود كويس بس هو انا لازم اعمل الكود ده فى كل تكست بوكس علشان ينفع فى كل واحده