طريقة جديدة للاضافة والتعديل

[سامر الانباري]

الى اعضاء هذا المنتددى ومشرفية والقائمين علية

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

[سامر الانباري]

اين الحل يا اساتذة ارجو الرد

[الـعيدروس]

اين المرفق ؟؟؟

[سامر الانباري]

ارجو المعذرة هذا هو المرفق

aehab.rar

[سامر الانباري]

يا اخوان ارجو الرد في اسرع وقت ممكن

[basem said]

اتمنى ان يؤدى الغرض

الباسورد 123

العاملين.rar

[هاني بدر]

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

بارك الله فيك اخي الكريم ولكن لدى مشكلة في الملف بسبب السطر المكتوب باللون المختلف ارجو افادتي حيث انني اعمل على اوفيس 2007

Private Sub UserForm_Initialize()

On Error Resume Next

Dim mycol As Collection

Dim myrng As Range

Set mycol = New Collection

For Each myrng In Range("ÇáÇÓãÇá3")

mycol.Add myrng.Value, myrng.Text

Next myrng

For 1 = 1 To mycol.Count

If mycol.Item(I) = "" Then mycol.Remove I

Me.ComboBox2.AddItem mycol(I)

Next I

End Sub

[الـعيدروس]

امسح الكود واستبدله بهذا

ربما يعمل معاك عند إثبات متغير

Private Sub UserForm_Initialize()

On Error Resume Next

Dim mycol As Collection

Dim myrng As Range

Dim I%

Set mycol = New Collection

For Each myrng In Range("الاسماء3")

mycol.Add myrng.Value, myrng.Text

Next myrng

For I = 1 To mycol.Count

If mycol.Item(I) = "" Then mycol.Remove I

Me.ComboBox2.AddItem mycol(I)

Next I

End Sub

[هاني بدر]

السلام عليكم ورحمة الله وبركاته اخي الكريم اشكر لك تفاعلك وبالفعل جاءت بالنتيجة المطلوبة وارجو منك ان سمح لك الوقت في توضيح الفروق الجوهرية في الاكواد داخل اوفيس 2003 و 2007 والتي تتسبب في اظهار رسالة الخطأ

ولو تفضلت بالمشاركة مع الاستاذ الفاضل ابوعبدالله في موضوع محاسبة فنادق ومطاعم ضمن مشروعات 4 فسيكون من دواعي سروري واشكرك مرة اخرى على المشاركة

[سامر الانباري]

يا اخوان جزاكم الله خير الجزاء على هذا الجهد ولكن ممكن العمل مثل ما طلبت اذا امكن

يعني تظهر الــ Listbox ثم عند اختيار اي موظف تظهر بياناته الشخصية وبعد ذلك الاضافة ارجو الرد