اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

 

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

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

 

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

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

 

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

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

رابط هذا التعليق
شارك

  • 2 weeks later...
الصـقـر, 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
رابط هذا التعليق
شارك

اخى الحبيب

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

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

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

تقبل تحياتى

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

 

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

تم تعديل بواسطه لؤي الخزرجي
رابط هذا التعليق
شارك

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

 

السلام عليكم

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

المطلوب هو

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

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

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

 

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

 

تحياتي لك

post-137692-0-52378700-1424787030_thumb.

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

رابط هذا التعليق
شارك

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

 

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

 

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

لؤي

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

تم تعديل بواسطه لؤي الخزرجي
رابط هذا التعليق
شارك

  • 3 months later...

اخى الحبيب

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

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

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

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

رابط هذا التعليق
شارك

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

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

 

السلام عليكم

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

المطلوب هو

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

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

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

 

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

 

تحياتي لك

post-137692-0-52378700-1424787030_thumb.

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

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

 

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

رابط هذا التعليق
شارك

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

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information