نموذج فاتورة مبيعات عربي انجليزي مع ايصال

[ضاحي الغريب]

 

الأخ الكريم ضاحي

الله يبارك جهودك الكبيره من خلال هذا الصرح الكبير

 

أخي الحبيب // احمد غانم

بارك الله فيك علي دعائك الطيب

وجزاك خيرا

تقبل تحياتي

[فراس البزاز]

 

 

 

 

 

 

هل ممكن كيفية ترحيل كل(( أيتم ))وملحقاته الى حقل المخصص له (كودات هذا الايعاز)

 

مع التحية

؟؟

 

معلش برجاء التوضيح مافهمت عليك

تحية طيبة اخي الكريم

ممكن فقط الترحيل كل صنف في مكانة بالجدول ...اي المبلغ ينتقل تلقائي الى مكانة في الجدول المخصص ماهي الطريقة.(الكود المستخدم للترحيل)......وعند التحويل على الايصال ..هل توجد زر الخروج ؟؟

لك مني اطيب تحية واحترام

 

أخي الكريم

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

عسي يكون هو المقصود بطلبك

Private Sub CommandButton1_Click()
' شيت الادخال رقم 1
Set Sh1 = sheet1
' شرط اذا كان رقم الفاتورة فارغ لايقم بالترحيل
If InvNo_A = "" Then
MsgBox "!يجب إدخال رقم الفاتورة اولا ً", vbExclamation, "إختيار خاطئ"
  Exit Sub
End If
' شرط اذا كانت الكمية رقم ا فارغة لايقم بالترحيل
If Me.C1 = "" Or Me.QuA1 = "" Then
MsgBox "أكمل بيانات الفاتورة أولا": Exit Sub
End If
' عدد الصفوف في ورقة الادخال لبداية الادخال
ff = 4
    Do Until Sh1.Cells(ff, "a").Value = ""
        ff = ff + 1
    Loop
    ' التسلسل
 Sh1.Cells(ff, 1).Value = SN_Ar.Text
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 ' التاريخ
 Sh1.Cells(ff, 2).Value = Date_A.Text
 ' رقم الفاتورة
 Sh1.Cells(ff, 3).Value = InvNo_A.Text
 'بيانات العميل
 Sh1.Cells(ff, 4).Value = Cus_A.Text
 Sh1.Cells(ff, 5).Value = Addr_A.Text
  Sh1.Cells(ff, 6).Value = City_A.Text
 Sh1.Cells(ff, 7).Value = Tel_A.Text
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 ' رقم العميل
Sh1.Cells(ff, 8).Value = CusNo_A.Text
' الرصيد
Sh1.Cells(ff, 9).Value = Balnce_A.Text
Me.PAY1.Text = ComboBox12.Value
' طريقة السداد
Sh1.Cells(ff, 10).Value = PAY1.Text
Sh1.Cells(ff, 11).Value = Ac_a.Text
Sh1.Cells(ff, 12).Value = PatDateA.Text
Sh1.Cells(ff, 13).Value = TermA.Text
' بيانات الفاتورة بالترتيب
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' كود الصنف
 Sh1.Cells(ff, 18).Value = C1.Text
 Sh1.Cells(ff, 23).Value = C2.Text
 Sh1.Cells(ff, 28).Value = C3.Text
 Sh1.Cells(ff, 33).Value = C4.Text
 Sh1.Cells(ff, 38).Value = C5.Text
 Sh1.Cells(ff, 43).Value = C6.Text
 Sh1.Cells(ff, 48).Value = C7.Text
 Sh1.Cells(ff, 53).Value = C8.Text
 Sh1.Cells(ff, 58).Value = C9.Text
 Sh1.Cells(ff, 63).Value = C10.Text
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' الكمية
 Sh1.Cells(ff, 19).Value = QuA1.Text
 Sh1.Cells(ff, 24).Value = QuA2.Text
 Sh1.Cells(ff, 29).Value = QuA3.Text
 Sh1.Cells(ff, 34).Value = QuA4.Text
 Sh1.Cells(ff, 39).Value = QuA5.Text
 Sh1.Cells(ff, 44).Value = QuA6.Text
 Sh1.Cells(ff, 49).Value = QuA7.Text
 Sh1.Cells(ff, 54).Value = QuA8.Text
 Sh1.Cells(ff, 59).Value = QuA9.Text
 Sh1.Cells(ff, 64).Value = QuA10.Text
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''البيان
   Sh1.Cells(ff, 20).Value = DesA1.Text
 Sh1.Cells(ff, 25).Value = DesA2.Text
 Sh1.Cells(ff, 30).Value = DesA3.Text
 Sh1.Cells(ff, 35).Value = DesA4.Text
  Sh1.Cells(ff, 40).Value = DesA5.Text
 Sh1.Cells(ff, 45).Value = DesA6.Text
 Sh1.Cells(ff, 50).Value = DesA7.Text
 Sh1.Cells(ff, 55).Value = DesA8.Text
 Sh1.Cells(ff, 60).Value = DesA9.Text
 Sh1.Cells(ff, 65).Value = DesA10.Text
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''سعر الوحدة
 Sh1.Cells(ff, 21).Value = UnP1.Text
 Sh1.Cells(ff, 26).Value = UnP2.Text
 Sh1.Cells(ff, 31).Value = UnP3.Text
 Sh1.Cells(ff, 36).Value = UnP4.Text
 Sh1.Cells(ff, 41).Value = UnP5.Text
 Sh1.Cells(ff, 46).Value = UnP6.Text
 Sh1.Cells(ff, 51).Value = UnP7.Text
 Sh1.Cells(ff, 56).Value = UnP8.Text
 Sh1.Cells(ff, 61).Value = UnP9.Text
 Sh1.Cells(ff, 66).Value = UnP10.Text
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''الاجمالي
 Sh1.Cells(ff, 22).Value = Total1.Text
 Sh1.Cells(ff, 27).Value = Total2.Text
 Sh1.Cells(ff, 32).Value = Total3.Text
 Sh1.Cells(ff, 37).Value = Total4.Text
 Sh1.Cells(ff, 42).Value = Total5.Text
 Sh1.Cells(ff, 47).Value = Total6.Text
 Sh1.Cells(ff, 52).Value = Total7Text
 Sh1.Cells(ff, 57).Value = Total8.Text
 Sh1.Cells(ff, 62).Value = Total9.Text
 Sh1.Cells(ff, 67).Value = Total10.Text
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 ' المبلغ الاجمالي
 Sh1.Cells(ff, 14).Value = Total_A.Value
 ' الخصم بالنسبة
 Sh1.Cells(ff, 15).Value = Dis_A.Value
 ' الخصم بالمبلغ
 Sh1.Cells(ff, 16).Value = Dis_AmA.Value
 ' صافي الفاتورة
 Sh1.Cells(ff, 17).Value = NetAm_A.Value

 ' الاسطر التالية لمسح الفورم بعد الادخال
Date_A = ""
InvNo_A = ""

Cus_A = ""
Addr_A = ""
City_A = ""
Tel_A = ""

CusNo_A = ""
Balnce_A = ""
Ac_a = ""
PAY1 = ""
PatDateA = ""
TermA = ""

C1 = ""
C2 = ""
C3 = ""
C4 = ""
C5 = ""
C6 = ""
C8 = ""
C9 = ""
C10 = ""
QuA1 = ""
QuA2 = ""
QuA3 = ""
QuA4 = ""
QuA5 = ""
QuA6 = ""
QuA7 = ""
QuA8 = ""
QuA9 = ""
QuA10 = ""
DesA1 = ""
DesA2 = ""
DesA3 = ""
DesA4 = ""
DesA5 = ""
DesA6 = ""
DesA7 = ""
DesA8 = ""
DesA9 = ""
DesA10 = ""
UnP1 = ""
UnP2 = ""
UnP3 = ""
UnP4 = ""
UnP5 = ""
UnP6 = ""
UnP7 = ""
UnP8 = ""
UnP9 = ""
UnP10 = ""
Total1 = ""
Total2 = ""
Total3 = ""
Total4 = ""
Total5 = ""
Total6 = ""
Total7 = ""
Total8 = ""
Total9 = ""
Total10 = ""
Total_A = ""
Dis_A = ""
Dis_AmA = ""
NetAm_A = ""
' السطر التالي حتي يقف مؤشر الماوس علي اسم العميل
 Cus_A.SetFocus
 ' الترقيم التلقائي للتسلسل
 MM = 4
    Do Until Sh1.Cells(MM, "a").Text = ""
        MM = MM + 1
    Loop
Me.SN_Ar.Value = MM + 1 - 4
CheckBox4.Value = True
End Sub

شرا...شكرا....جزيلا.....هناك شي اخر...وطبعا اسف على الاطالة

دخلت على كود الفجول بييسك.....لم اجد فورم الثاني(الايصال) اين اجده؟؟

 

اكرر اسفي اذا كنت قد اثقلت عليك

 

تحياتي

[ضاحي الغريب]

الفورم تم انشاءه عن باستخدام MultiPage

هتلاقي فـورم الايصال في Page3 عربي

page4  انجليزي

[فراس البزاز]

الفورم تم انشاءه عن باستخدام MultiPage

هتلاقي فـورم الايصال في Page3 عربي

page4  انجليزي

اسف,,ممكن توضيح اكثر

اخوك مش ذو خبرة جيدة في هذا المجال

 

تحياتي

تم تعديل مايو 28, 2013 بواسطه firasbazaz

[الجزيرة]

أخي الحبيب / ضاحي

 

هذه الخطوات أعرفها :)

 

ولكن عند فتح الفورم من الفجول بيزك تظهر لي الفاتورة ولا يظهر لي الايصال !!

 

وشكراً لتعاونك

 

 

الفورم تم انشاءه عن باستخدام MultiPage

هتلاقي فـورم الايصال في Page3 عربي

page4  انجليزي

 

شكراً لك أخي الحبيب / ضاحي

 

اتضحت الصورة بالنسبة لي الآن

[حمادة عمر]

السلام عليكم

الاخ الحبيب / ضاحي الغريب

بارك الله فيك

لم اعد اجد كلمات اصف بها جمالك وروعتك انت ومن ثم روعة اعمالك

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

[ضاحي الغريب]

 

السلام عليكم

الاخ الحبيب / ضاحي الغريب

بارك الله فيك

لم اعد اجد كلمات اصف بها جمالك وروعتك انت ومن ثم روعة اعمالك

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

 

أخي الحبيب / حمادة عمر

انعم الله علينا بصحبتكم الغالية وكذلك بمحبتكم الخالصة لوجه الكريم

وبالاخوة في سبيله ومرضاته

ادام الله علينا نعمهِ وبارك الله لنا ولكم

وجزاكم خيرا

مروركم شرفني وشرف الموضوع 

تقبل تحياتي

[فراس البزاز]

 

أخي الحبيب / ضاحي

 

هذه الخطوات أعرفها :)

 

ولكن عند فتح الفورم من الفجول بيزك تظهر لي الفاتورة ولا يظهر لي الايصال !!

 

وشكراً لتعاونك

 

 

الفورم تم انشاءه عن باستخدام MultiPage

هتلاقي فـورم الايصال في Page3 عربي

page4  انجليزي

 

شكراً لك أخي الحبيب / ضاحي

 

اتضحت الصورة بالنسبة لي الآن

 

اتمنى ان تتضح الصورة بالنسبة لي ايضااا

[الجزيرة]

أخي ضاحي

 

في البداية كان الملف يفتح معي أما الآن فتظهر لي هذه الرسالة ، مالسبب يا ترى ؟

 

[mazen323]

وانا كذلك نفس المشكلة

[ضاحي الغريب]

أخي ضاحي

 

في البداية كان الملف يفتح معي أما الآن فتظهر لي هذه الرسالة ، مالسبب يا ترى ؟

 

 

 

وانا كذلك نفس المشكلة

 

 

 

 

أخي//ابو عبدالله

الاخ // مازن

 

الملف عندي سليم وقمت بتجربته علي اكثر من جهاز ((اوفيس 2003 و اوفيس 2010) لم يحدث اي خطا

حمل الملف مرة واعلمني بالنتيجة

[الجزيرة]

مع خالص الشكر

 

تم تحميل الملف مرة أخرى وفتح بشكل طبيعي :)

[mazen323]

جاري التجربة .....الاهم بالموضوع حرصك على المساعدة للجميع ....اشكرك جزيل الشكر... الله يجزاك عنا كل الخير 

[mazen323]

حملت البرنامج مرة ثانية وطلعت نفس المشكلة ....... 

 

[mazen323]

ممكن تكون المشكلة هنا

 

[mazen323]

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

 

هذا خطا 

 

[محمد عسكر]

السلام عليكم

عمل رائع

 

جزاكم الله خيرا علي العمل و المجهود

[belkacem_1980]

^{شكرا لك اخي العزيز}

[aspiran]

السلام عليكم

لا أجد المرفق لتحميله

[basem said]

البرنامج شكله مميز جدا

لاكن للاسف لا اجد ملف للتحميل

ارجو رفع الملف مرة اخر

[ضاحي الغريب]

تفضل اخي الكريم المرفقات مرة اخري

 

 

فاتورة مبيعات اوفيسنا.rar

[basem said]

حقيقى البرنامج ممتاز ورائع

مشكور استاذ ضاحى على هذا المجهود

ربنا يزيدك من علمه

[ضاحي الغريب]

 

حقيقى البرنامج ممتاز ورائع

مشكور استاذ ضاحى على هذا المجهود

ربنا يزيدك من علمه

 

بارك الله فيك

اخي باسم

تقبل تحياتي

[ضاحي الغريب]

السلام عليكم

لا أجد المرفق لتحميله

اخي الفاضل // عبدالغني

قم بتحميل الملف من المشاركة رقم 46

[فراس البزاز]

 

أخي الحبيب / ضاحي

 

هذه الخطوات أعرفها :)

 

ولكن عند فتح الفورم من الفجول بيزك تظهر لي الفاتورة ولا يظهر لي الايصال !!

 

وشكراً لتعاونك

 

 

الفورم تم انشاءه عن باستخدام MultiPage

هتلاقي فـورم الايصال في Page3 عربي

page4  انجليزي

 

شكراً لك أخي الحبيب / ضاحي

 

اتضحت الصورة بالنسبة لي الآن

 

ممكن كيفية الوصول الى الفورم الثاني ارجوا التوضيح .....تحياتي