طريقة عمل فورم فاتورة ووضع اكوادها وترحيلها واستدعائها وطباعتها !! خطوة خطوة

[حمادة عمر]

السلام عليكم

الأخ العزيز / عبد الرحمن شفيق

بارك الله فيك

وان شاء الله معك دائما بإذن الله

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

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

[نادر سليم]

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

الأستاذ القدير حمادة

شهادة امام الله اننى تعلمت منك الكثير ومن كل الأساتذة فى المنتدى

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

جعلها الله فى ميزان حسناتكم

[نادر سليم]

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

اخواننا الكرام

المطلوب عمل يوزر فورم فى النموذج المرفق

مرة بأستخدام   comboboxواخرى  بالlistbox

قائمة منسدلة.rar

[حمادة عمر]

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

الأستاذ القدير حمادة

شهادة امام الله اننى تعلمت منك الكثير ومن كل الأساتذة فى المنتدى

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

جعلها الله فى ميزان حسناتكم

 

السلام عليكم

الاخ الكريم / ابو السوالم

بارك الله فيك

وجزيل شكري علي كلماتك الطيبة

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

وتسهيلا لمن يبحث عن مثل موضوعك وان شاء الله سأقدم لك ما في وسعي

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

[نادر سليم]

أستاذ حمادة

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

لك كل الشكر والتقدير

وأعتذر ان كنت وضعت الموضوع هنا

ولكن اعذرنى لآنى جديد فى المنتدى

وقمت فعلا برفع الموضوع تحت أسم قائمة منسدلة ولكن لايوجد أجابة

اعتذر مرة اخرى

[حمادة عمر]

السلام عليكم

الاخ الكريم / ابو السوالم

بارك الله فيك

قم بوضع رابط موضوعك الجديد الذي تقصده

وان شاء الله موضوعك سهل ونقوم بتنفيذه سويا

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

فكلنا معك باذن الله

[نادر سليم]

استاذنا القدير حمادة اشكرك على سعة صدرك

واتمنى ان اكون واحداً من تلاميذك

 

http://www.officena.net/ib/index.php?showtopic=50119#entry306582

[خالد الرشيدى]

السلام وعليكم ورحمة الله
الاستاذ القدير: حماده عمر
جزاك الله عنا خيرا وزادك علما
استاذى ارجو منك اضافه زر تعديل وزر حذف إلى هذا العمل الرائع إن امكن

 

[قنديل الصياد]

استاذى الحبيب الاستاذ / حماده عمر

قم للمعلم قُــمْ لـلمعلّمِ وَفِّـهِ الـتبجيلا * كـادَ الـمعلّمُ أن يـكونَ رسولا

كلمة شكر من القلب ابعثها...
الى صاحب التميز والأفكار النيرة ..أزكى التحيات وأجملها..وأنداها
وأطيبها..أرسلها لك بكل ود وحب وإخلاص..
تعجز الحروف أن تكتب ما يحمل قلبي من تقدير واحترام..وأن تصف ما اختلج بملء فؤادي من ثناء واعجاب..فما أجمل
أن يكون الإنسان شمعة تُنير دروب الحائرين..

[جلال الجمال_ابو أدهم]

بارك الله فيك

[حمادة عمر]

السلام عليكم

الاخ الحبيب / قنديل الصياد

بارك الله فيك

وجزيل شكري علي كلماتك التي تفوق الوصف وكل الكلمات

لقد زادني الشرف بمرورك علي الموضوع

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

[حمادة عمر]

الاخ الكريم / galal elgammal

بارك الله فيك

مرور طيب وكريم

 

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

     " منتدى اوفيسنا ايقونة كسرت حواجز الزمن و المكان "

 

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

[طلعت محمد حسن]

السلام عليكم 

استاذ حماده 

ممكن اضافة زر حذف الى الموضوع

وشكرا جزيلا لكم

[حمادة عمر]

السلام عليكم 

استاذ حماده 

ممكن اضافة زر حذف الى الموضوع

وشكرا جزيلا لكم

 

بالنسبة لطلبك اخي الكريم

شاهد اولا الرابط التالي .. المشاركة رقم 24   والخاصة بتنفيذ طلبك في موضوع بعنوان ( خطأ فى استدعاء بيانات فاتوره )

واخبرني ان كان هذا ما تريد حيث ان تنفيذ لطلبك ان شاء الله

http://www.officena.net/ib/index.php?showtopic=49712&page=2

[طلعت محمد حسن]

استاذي العزيز الاخ حماده عمر المحترم

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

وكل الشكر والعرفان لك.

تصميم فاتورة.rar

[حمادة عمر]

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

بكود من سطر واحد في زر امر

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

ليكون هذا الامر بحذف الصف النشط كالتالي

Private Sub CommandButton1_Click()
 ActiveCell.EntireRow.Delete
End Sub

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

Sub show()
UserForm1.show 0
End Sub

وعذرا لا يمكنني ارفاق ملف الآن لبطء النت الشديد لدي الآن

جرب وابلغني بالنتائج

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

[طلعت محمد حسن]

السلام عليكم

استاذ حماده

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

[حمادة عمر]

اخي الكريم

هل يعمل معك الملف بشكل طبيعي من الاساس

ولايحدث فيه اي اخطاء مثل ما حدث قبل وضع الكود او مع استخدام اكواد اخري

 

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

وابلاغي ما اذ تم الحذف ام لحين امكانية ارفاق اي ملفات

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 2000
If Val(tt1.Value) = Cells(i, 1) Then
Cells(i, 1).Select
sama = MsgBox("سيتم حذف والغاء الفاتورة !! هل انت متأكد من تنفيذ ذلك الاجراء ؟", vbYesNo)
      If sama = vbYes Then
      ActiveCell.EntireRow.Delete
       Else
      MsgBox "!! تم حذف الفاتورة بنجاح"
       End If
End If
Next
End Sub

[طلعت محمد حسن]

اخي واستاذي حماده

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / طلعت محمد حسن

بارك الله فيك

بالنسبة لجميع الاكواد المرسلة تفي بالغرض المطلوب منها دون حدوث اي مشاكل بما فيها الكود الموجود اصلا بملفك في حدث الزر 18

Private Sub CommandButton18_Click()
ولكن هناك خطأ هو ما يجعل الفورم يتشنج والملف يخرج ... الخ

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

وبالتالي .. ( معدش فاهم يجيب منين البيانات )

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

وذلك باضافة السطر البسيط

ComboBox11 = ""

ليصبح الكود في ملفك كالتالي  مثلا

Private Sub CommandButton18_Click()
æÑÞÉ2.Activate
If ComboBox11 = "" Then
MsgBox "!íÌÈ ÅÏÎÇá / ÅÎÊíÇÑ ÑÞã ÇáÝÇÊæÑÉ ÃæáÇð", vbExclamation, "ÅÎÊíÇÑ ÎÇØÆ"
  Exit Sub
End If

Q = 0
    XXX = 4
    Do Until æÑÞÉ2.Cells(XXX, "A").Text = ""
    If Me.ComboBox11.Text = æÑÞÉ2.Cells(XXX, "A").Text Then
        Q = 1
        kk = MsgBox("åá ÊÑíÏ ÇáÛÇÁ åÐÇ ÇáÇÓã¿", vbYesNo)
        If kk = vbYes Then
    '==========================
        ComboBox11 = ""
    '==========================
        ActiveCell.EntireRow.Delete
        Else
            MsgBox "!! áã íÊã ÇáÛÇÁ ÇáÇÓã"
        End If
    End If
    XXX = XXX + 1
    Loop
End Sub

واليك الملف بالمرفقات بعد التعديل

ان شاء الله به طلبك

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

 

 

تصميم فاتورة11.rar

[طلعت محمد حسن]

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

كل الشكر والاحترام والعرفان لكم.

[حمادة عمر]

السلام عليكم

الاخ الكريم / طلعت محمد حسن

بارك الله فيك

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

والمهم انه تم التوصل لما تريد

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

[طلعت محمد حسن]

استاذي الحبيب حماده عمر

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

كنت قد طرحت هذا السؤال من قبل وهو عن كيفية المعاينة قبل الطباعة للفورم وكانت هناك اجابة للاستاذ ابو حنين حفظة اللة على الموضوع ولكن عند المعاينة كانت تظهر معلومات الفورم بصفحة المعاينة بشكل اقفي صف واحد سؤالي لك استاذي هل يمكن ان تعرض معلومات الفورم بصفحة المعاينة مرتبة كما هي بالفورم.

 

طباعة.rar

[طلعت محمد حسن]

هل ممكن ان تعرض بيانات الفورم كما هي نفس تنسيقات الفورم على صفحة المعاينة.

[حمادة عمر]

عذرا برغم انه ليس موضوعه

ولكن لا يمكنني ام اتأخر عنك

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