اذهب الي المحتوي
أوفيسنا

مشكلة فى اكواد فورم بحث وتعديل واضافة


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

الاخوة اساتذة المنتدى

لدى مشكلة فى اكواد الفورم للبحث والتعديل واضافة البيانات

نرجوا المساعدة ولكم جزيل الشكر

 

TOTAL QUOTATION BLOCKS & KERBS 01-03-2017.rar

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

تفضل اخي و اي استفسار انا في الخدمه

يمكنك التحميل من المرفقات

تم التعديل علي الفورم 11 و تركت فورم 1 يمكنك نسخ الاكواد من فورم 11 الي مفاتيح الفورم 1

TOTAL QUOTATION BLOCKS & KERBS 01-03-2017.rar

تم تعديل بواسطه ahmedghandour
رابط هذا التعليق
شارك

الاخ :رشوان احمد

تحياتي

بعض الازرار لا اعلم مغذي عملها 

 مثلا مفتاح حذف نهائي تقصد حذف البيانات من التيكستات بوكس ولا من خلايا الاكسل

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

لاكن علي كل 

مفتاح خروج الفرم ضع فيه الامر التالي 

unload me

اما مفتاح الحفظ ضع فيه الكود التالي

thisworkbook.save

اما خروج الفورم و الاكسل (اقصد المصنف ) ضع فيه الكود التالي

thisworkbook.save
unload me
application.quite
application.displayalerts=false

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

مسح البيانات دا لو من التكستات بوكس بس يبقي هتعمل الامر دا

dim aa as integer
if msgbox(" هل تريد تفريغ الخلايا من علي الفورم ",vbyesno,"GHANDOUR")=vbyes then
for aa = 1 to 18
' الارقام 1 الي 18 تمثل التكست بوكس عندك
me.controls("TextBox" & aa).value=""
next
  exit sub
else 
exit sub
end if

بقي لديك مفتاح واحد 

 برجاء توضيح المطلوب مع خالص تحياتي

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

' لازم تعلن عن المتغير 
if me.textbox1.value="" _
and me.textbox2.value="" _
and me.textbox3.value="" _ ' و هكذا حتي تنتهي من ال 18 تكست بوكس 
and me.textbox .value="" then
msgbox " الخلايا فارغه بالفعل " ,vbokonly,"GHANDOUR"
else
' اف الموجوده بالاعلي
exit sub
end if












' بعد عمل الامر الخاص بال

 

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

الاخ احمد

جذاك الله خير ولك كل الشكر

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

وياريت لو حذف السطر يتم ترتيب التسلسل من جديد

بمعنى لو حذف سطر تسلسل 2

واللى بعدة 3 و 4 و 5 يتم تعديلهم ليصبحوا

2 و 3 و 4

باقى اكواد زر اضافة وزر تعديل الموجودين فى الصورة التالية

58e85a0b865b0_.jpg.d608a06686a8d5bf62091ac271da4eef.jpg

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

في ٨‏/٤‏/٢٠١٧ at 05:37, رشوان احمد said:

الاخ احمد

جذاك الله خير ولك كل الشكر

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

وياريت لو حذف السطر يتم ترتيب التسلسل من جديد

بمعنى لو حذف سطر تسلسل 2

واللى بعدة 3 و 4 و 5 يتم تعديلهم ليصبحوا

2 و 3 و 4

باقى اكواد زر اضافة وزر تعديل الموجودين فى الصورة التالية

58e85a0b865b0_.jpg.d608a06686a8d5bf62091ac271da4eef.jpg

الاخوة الزملاء

المساغدة فى تكملة باقى الازرار

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

الاخ محمد الخازمى

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

وضعت المعادلة فما اهميتها للتعلم

مرسل الملف بغد الاضافات باقى اكواد هذه الازرار لو سمحت

ولك شكرى

تعديل.jpg

TOTAL QUOTATION BLOCKS & KERBS 01-03-2017.rar

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

  • 2 weeks later...
في 4/13/2017 at 00:13, رشوان احمد said:

وضعت المعادلة فما اهميتها للتعلم

 

 

 

السلام عليكم

 

هذا موضوع   لشرح الدالة    

SUBTOTAL

 

 

  https://www.officena.net/ib/topic/66958-%D8%B4%D8%B1%D8%AD-%D8%AF%D8%A7%D9%84%D9%87-subtotal/

 

 

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

السلام عليكم

الاخ الكريم / رشوان احمد

بارك الله فيك

ضع اخي الكريم الكود التالي في زر ( تسجيل بيانات جديدة )

اما بخصوص زر التعديل فعلي اي اساس سيتم التعديل وباي الاعمدة او المعطيات سيتم البحث ليتم التعديل من خلاله

هل هو من العمود QUO. REF. NO.

اليك كود تسجيل البيانات

Private Sub CommandButton2_Click()
'كود زر تسجيل بيانات
Dim iRow As Long
Dim ws As Worksheet
Dim ii As Integer

Set ws = Worksheets("QUOTATION BLOCKS & KERBS")
iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

'ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value
ws.Cells(iRow, 4).Value = Me.TextBox4.Value
ws.Cells(iRow, 5).Value = Me.TextBox5.Value
ws.Cells(iRow, 6).Value = Me.TextBox6.Value
ws.Cells(iRow, 7).Value = Me.TextBox7.Value
ws.Cells(iRow, 8).Value = Me.TextBox8.Value
ws.Cells(iRow, 9).Value = Me.TextBox9.Value
ws.Cells(iRow, 10).Value = Me.TextBox10.Value
ws.Cells(iRow, 11).Value = Me.TextBox11.Value
ws.Cells(iRow, 12).Value = Me.TextBox12.Value
ws.Cells(iRow, 13).Value = Me.TextBox13.Value
ws.Cells(iRow, 14).Value = Me.TextBox14.Value
ws.Cells(iRow, 15).Value = Me.TextBox15.Value
ws.Cells(iRow, 16).Value = Me.TextBox16.Value
ws.Cells(iRow, 17).Value = Me.TextBox17.Value
ws.Cells(iRow, 18).Value = Me.TextBox18.Value

For ii = 1 To 18
Me.Controls("TextBox" & ii).Value = ""
Next
End Sub

تقبل خالص تحياتي

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

استاذى حمادة عمر

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

بالنسبة لسؤالك لزر التعديل هو نفس زر الاضافة للبيانات فو اردت اعدل فى اى مكان فى السطر اعدل من عن طريق الفورم

بالنسبة للبحث عن طريق العمود b

 

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

السلام عليكم

الاخ الكريم / رشوان احمد

بارك الله فيك

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

حيث انه اذا قمت بعمل ذلك فانه سوف يسجل في الصف 500 بعد آخر معادلة موجودة في العمود A

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

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

تقبل خالص تحياتي

 

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

الاح حمادة

شكرا لك لطول غياب الملف نسيت معادلة ترقيم

فى انتظار طلبى

زر التعديل هو نفس زر الاضافة للبيانات فو اردت اعدل فى اى مكان فى السطر اعدل من عن طريق الفورم

بالنسبة للبحث عن طريق العمود b

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

أخى الكريم 

وبعد إذن الأستاذ الفاضل // أحمد

والأستاذ القدير // حماده عمر

إليكم بالمرفقات محاولة منى 

تم العمل على الفورم رقم 11

أتمنى أن يكون به ما طلبت

 

TEST_1_MZM.rar

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information