مساعدة في ترحيل لجدولين في نفس الشيت

[الجموعي]

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

وجهتني مشكله في زر حذف وزر حفظ التعديل زرالترحيل من الفورم للجدول الثاتي

علما أن عملية البحث تكون تمام  لكن عند الحذف او التعديل او ترحيل جديد كل البيانات ترحل للجدول الاول

فورم بحث (تم الحفظ تلقائياً).rar

 

[الجموعي]

للرفع

[ibn_egypt]

اخى الفاضل الجموعي

 

ايه كمية الأكواد دي كلها .. وليه تكرار الأكواد بالشكل ده ... توهتنى  

 

مرفق الملف لربما به طلبك

 

تحياتي  

فورم بحث (تم الحفظ تلقائياً).rar

[الجموعي]

أستاذي القدير بارك الله فيك

أنا تاني تهت بهذه الاكواد عندما كانت كلها موضوعة داخل الفورم لهذا إلتجأت لتقسيمها لتسهيل عليا وعليكم العملية

إذن ما المطلوب مني؟

إذا فيه أكواد بسيطة لعمل مثل ذلك أفدني بها.

لأن العمل مزال متواصل أنا حاليا قطعت 90%  الشيت الأول

والشيت الثاني والثالث مزال نفس العملية كل شيت فيه جدولين

مشكله بسيطه راح تواجهني فيما بعد:

عندالضغط على زر BASE DE DONNEES يفعل الشيت 2

عندالضغط على زر RESEAUX يفعل الشيت 3

=============

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

عند إختيار الفوج الثاني:

 عند الحذف يتم الحذف بنجاح لكن يتم حذف الرقم في الصف نفسه من الجدول الأول

مثال لوحذفنا إسم عادل 2 يتم الحذف بنجاح لكن يحذف معه الرقم فقط في الخلية A4 من الجدول الاول

[ibn_egypt]

أستاذي القدير بارك الله فيك

أنا تاني تهت بهذه الاكواد عندما كانت كلها موضوعة داخل الفورم لهذا إلتجأت لتقسيمها لتسهيل عليا وعليكم العملية

إذن ما المطلوب مني؟

إذا فيه أكواد بسيطة لعمل مثل ذلك أفدني بها.

لأن العمل مزال متواصل أنا حاليا قطعت 90%  الشيت الأول

والشيت الثاني والثالث مزال نفس العملية كل شيت فيه جدولين

مشكله بسيطه راح تواجهني فيما بعد:

عندالضغط على زر BASE DE DONNEES يفعل الشيت 2

عندالضغط على زر RESEAUX يفعل الشيت 3

=============

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

عند إختيار الفوج الثاني:

 عند الحذف يتم الحذف بنجاح لكن يتم حذف الرقم في الصف نفسه من الجدول الأول

مثال لوحذفنا إسم عادل 2 يتم الحذف بنجاح لكن يحذف معه الرقم فقط في الخلية A4 من الجدول الاول

أخى الفاضل الجموعي

 

جرب الملف المرفق لربما به طلبك ... اما بخصوص  BASE DE DONNEES و RESEAUX  فتأكد تماما انى مش فاهم اى حاجة     .. كلمنا عربي   

 

تحياتي  

فورم بحث (تم الحفظ تلقائياً).rar

[الجموعي]

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

تم العمل بنجاح

في الفورم يوجد ثلاث أزرار للتنقل بها في الفورم المتعدد الصفحات

أريد كود عند الضعط على زر معين من الأزرار الثلاث  للصفحة المراد البحث والتعديل فيها

الصورة في المرفق توضح ذلك

[ibn_egypt]

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

تم العمل بنجاح

في الفورم يوجد ثلاث أزرار للتنقل بها في الفورم المتعدد الصفحات

أريد كود عند الضعط على زر معين من الأزرار الثلاث  للصفحة المراد البحث والتعديل فيها

الصورة في المرفق توضح ذلك

8888.png

 

اخى الفاضل الجموعي

 

راجع الملف المرفق .. لربما به طلبك

 

تحياتي  

فورم بحث (تم الحفظ تلقائياً).rar

[الجموعي]

 

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

تم العمل بنجاح

في الفورم يوجد ثلاث أزرار للتنقل بها في الفورم المتعدد الصفحات

أريد كود عند الضعط على زر معين من الأزرار الثلاث  للصفحة المراد البحث والتعديل فيها

الصورة في المرفق توضح ذلك

8888.png

 

اخى الفاضل الجموعي

 

راجع الملف المرفق .. لربما به طلبك

 

تحياتي  

 

بارك الله فيك وفي والديك أستاذي الفاضل

مشكور على هذه التغطية للموضوع

أثابك الله الجنة

بالنسبة لكود التنقل بين الصفحات إستعملت هذا الكود في حدث كل زر ولم يفلح معي

ما المشكل إذن:

æÑÞÉ1.Select
æÑÞÉ2.Select
æÑÞÉ3.Select

[ibn_egypt]

 

بارك الله فيك وفي والديك أستاذي الفاضل

مشكور على هذه التغطية للموضوع

أثابك الله الجنة

بالنسبة لكود التنقل بين الصفحات إستعملت هذا الكود ولم يفلح معي

æÑÞÉ1.Select
æÑÞÉ2.Select
æÑÞÉ3.Select

 

أخى الفاضل الجموعي

 

استخدم الترقيم افضل اما رقم 1 او 2 .... أو من الممكن ان تستخدم اسماء الشيت نفسها

Set GRHS = ThisWorkbook.Sheets("GRH")

تحياتي  

[الجموعي]

 

 

بارك الله فيك وفي والديك أستاذي الفاضل

مشكور على هذه التغطية للموضوع

أثابك الله الجنة

بالنسبة لكود التنقل بين الصفحات إستعملت هذا الكود ولم يفلح معي

ورقة1.Select
ورقة2.Select
ورقة3.Select

 

أخى الفاضل الجموعي

 

استخدم الترقيم افضل اما رقم 1 او 2 .... أو من الممكن ان تستخدم اسماء الشيت نفسها

Set GRHS = ThisWorkbook.Sheets("GRH")

تحياتي  

 

 

بارك الله على المعلومة وزادك الله من علمه

أردت إستبدال هذا الكود الخاص بالكمبوبوكس

With ComboBox1
   .AddItem "الفوج1"
  .AddItem "الفوج2"
End With
With ComboBox2
 .AddItem "الفوج1"
  .AddItem "الفوج2"
End With

وأختصاره بالكود التالي

Dim j As Integer
For j = 1 To 2
     Me.Controls("ComboBox" & j).AddItem "الفوج2", "الفوج1"
Next j

لم يعمل معي

عمل معي عندما قمت بحذف الفوج الثاني

يا ترى ما المشكلة أستاذي

[الجموعي]

تم المطلوب بعد محاولات عدة

الكود المرفق

Dim j As Integer
For j = 1 To 2
     With Controls("ComboBox" & j)
     .AddItem "الفوج1"
     .AddItem "الفوج2"
   End With
   Next j

[ibn_egypt]

 

 

بارك الله على المعلومة وزادك الله من علمه

أردت إستبدال هذا الكود الخاص بالكمبوبوكس

With ComboBox1
   .AddItem "الفوج1"
  .AddItem "الفوج2"
End With
With ComboBox2
 .AddItem "الفوج1"
  .AddItem "الفوج2"
End With

وأختصاره بالكود التالي

Dim j As Integer
For j = 1 To 2
     Me.Controls("ComboBox" & j).AddItem "الفوج2", "الفوج1"
Next j

لم يعمل معي

عمل معي عندما قمت بحذف الفوج الثاني

يا ترى ما المشكلة أستاذي

 

 

اخى الفاضل

 

اجعلها بهذا الشكل

Dim j As Integer
For j = 1 To 2
     Me.Controls("ComboBox" & j).List = Array("الفوج1", "الفوج2")
Next j

تحياتي