عمل واجهة لملف نظام اداره مخزن ( عنوان معدل )

[لؤي الخزرجي]

عاشت يداك اخي الصقر

 

اسف على كثره طلباتي لكن صدقني احتج لها وانا اكرر اسفي مره ثانيه

تبقى لي ان ازيد من كرمك بمطلبين فقط

 

1. اكمال موضوع الاجمالي

2. انشاء فورم بسيطه للدخول للشيتات من خلاله

 

تحياتي لك وللعائله الكريمه

وانا اشكرك لكل ماقدمته لي من مساعدة

[سيف الدين حسام]

الصـقـر, on 09 Feb 2015 - 11:23 AM, said:

اخى الكريم 

انظر المرفق هل هو المطلوب

علما بان هذا كان مطلبك الاول وتم تنفيذه وانت من طلب تعديله بعد ذالك حيرتنى معاك

تقبل تحياتى

 

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

مرحب بـ الاخ الحبيب حســـــام عيسى

ممكن تشرح لنا الكود ده 

Private Sub TextBox1_Change()

On Error GoTo 0
If ActiveCell.Offset(0, -1) = "اسم الصنف" Then
Dim SS As Range
Set SS = Range("الصنف")
m = TextBox1.Text
ListBox1.Clear
If m = "" Then GoTo 1
w = ListBox1.ListCount
   With SS
      Of_1 = .Rows.Count
      Of_2 = .Columns.Count
         Set A = Range(.Cells(1, 1), .Cells(.Rows.Count, .Columns.Count)).Find(m)
         If Not A Is Nothing Then
         f = A.Address
         Do
            ListBox1.AddItem
            ListBox1.List(w, 0) = Sheet18.Cells(A.Row, 3).Value
            ListBox1.List(w, 1) = Sheet18.Cells(A.Row, 2).Value
            ListBox1.List(w, 2) = Sheet18.Cells(A.Row, 1).Value

            w = w + 1
         Set A = Range(.Cells(1, 1), .Cells(Of_1, Of_2)).FindNext(A)
         Loop While Not A Is Nothing And A.Address <> f
         End If
  End With
Set A = Nothing
1
End If
If ActiveCell.Offset(0, -1) = "اسم الشاصى" Then
Dim mm As Range
Set mm = Range("الشاصى")
m = TextBox1.Text
ListBox1.Clear
If m = "" Then GoTo 2
w = ListBox1.ListCount
   With mm
      Of_1 = .Rows.Count
      Of_2 = .Columns.Count
         Set A = Range(.Cells(1, 1), .Cells(.Rows.Count, .Columns.Count)).Find(m)
         If Not A Is Nothing Then
         f = A.Address
         Do
            ListBox1.AddItem
            ListBox1.List(w, 0) = Sheet3.Cells(A.Row, 16).Value

            ListBox1.List(w, 1) = Sheet3.Cells(A.Row, 17).Value

            w = w + 1
         Set A = Range(.Cells(1, 1), .Cells(Of_1, Of_2)).FindNext(A)
         Loop While Not A Is Nothing And A.Address <> f
         End If
  End With
Set A = Nothing
2
End If
If ActiveCell.Offset(0, -1) = "نوع ورقم المركبه" Then
Dim nn As Range
Set nn = Range("المركبة")
m = TextBox1.Text
ListBox1.Clear
If m = "" Then GoTo 3
w = ListBox1.ListCount
   With nn
      Of_1 = .Rows.Count
      Of_2 = .Columns.Count
         Set A = Range(.Cells(1, 1), .Cells(.Rows.Count, .Columns.Count)).Find(m)
         If Not A Is Nothing Then
         f = A.Address
         Do
            ListBox1.AddItem
            ListBox1.List(w, 1) = Sheet3.Cells(A.Row, 16).Value

            w = w + 1
         Set A = Range(.Cells(1, 1), .Cells(Of_1, Of_2)).FindNext(A)
         Loop While Not A Is Nothing And A.Address <> f
         End If
  End With
Set A = Nothing
3
End If

[الصـقر]

اخى الحبيب

سيف الدين حسام

ننتظر الشرح من القدير أ.ياسر خليل فهو اقدر منى على ايصال المعلومة 

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

تقبل تحياتى

[لؤي الخزرجي]

السلام عليكم

اخي العزيز الصقر

انا انتظر تفرغك على احر من الجمر لغرض اكمال باقي الملف اتمنى ان لاتنساني يااخي العزيز

1- اضافه واجهة فورم للدخول

اكمال موضوع الاجمالي

 

تحياتي لك وللعائله الكريمه

تم تعديل فبراير 24, 2015 بواسطه لؤي الخزرجي

[الصـقر]

اخى الكريم

ارفق ملفك على اخر تحديث حتى يتم العمل على شاشة واجهه للدخول

انت عايز شاشة بكم مستخدم؟

تقبل تحياتى

[لؤي الخزرجي]

اخي العزيز الصقر

 

السلام عليكم

ارفق لك نسخة من الملف باخر تحديث

المطلوب هو

1. لقد قمت بانشاء واجهة بسيطه للدخول بمستخدم واحد ( المطلوب التعديل عليها واضافه اكثر من مستخدم مع صلاحيات لكل مستخدم)

اسم المستخدم : لؤي // الباسورد : 1982

2. ارفق لك صورة عن فورم واجهة للبرنامج تربط مع الشيتات

 

ارجوا اكمال هذه الفقرتين لكي ننتقل بعد اذنك للفقرات الجديدة

 

تحياتي لك

اداره المخازن 2015.rar

[لؤي الخزرجي]

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

 

ارجو منك اضافتها يوجد تفاصيل داخل الملف في صفحة كشف المركبه

 

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

لؤي

ادارة المخزن تعديل.rar

تم تعديل مارس 2, 2015 بواسطه لؤي الخزرجي

[محمد الفلسطيني]

اخى الحبيب

تفضل الملف على اخرى تحديث له

الملف عندى يعمل تمام

لا يستغرق وقت طويل ولا شئ ويتم الحفظ فى قاعدة البيانات بعد اخر صف مكتوب

حضرتك بتشتغل على اوفيس كام؟؟

[ashraf_6770]

جزاكم الله خيرا

[عمر الزناتى]

في ٢٤‏/٢‏/٢٠١٥ at 16:18, لؤي الخزرجي said:

اخي العزيز الصقر

 

السلام عليكم

ارفق لك نسخة من الملف باخر تحديث

المطلوب هو

1. لقد قمت بانشاء واجهة بسيطه للدخول بمستخدم واحد ( المطلوب التعديل عليها واضافه اكثر من مستخدم مع صلاحيات لكل مستخدم)

اسم المستخدم : لؤي // الباسورد : 1982

2. ارفق لك صورة عن فورم واجهة للبرنامج تربط مع الشيتات

 

ارجوا اكمال هذه الفقرتين لكي ننتقل بعد اذنك للفقرات الجديدة

 

تحياتي لك

اداره المخازن 2015.rar

السلام عليكم اخى الحبيب وجزاك الله خير

 

كيف يمكن ان اضيف اسم مستخدم واسم الشركة على الواجهة