الى الخبراء نلجأ

[hthy]

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

بعد التحية

عندي برنامج حسابات زبائن

وهو ارصدة وفواتير وإشعار إستلام

ولكن اريد عند إضافة الفاتورة يتم تغيير الرقم المتسلسل ويتم حفظ الفاتورة في قاعدة بيانات

ولكم جزيل الشكر وفائق الإحترام

تحياتي....

[limane]

المعذرة عن هذا الخطأ

تم تعديل أكتوبر 13, 2008 بواسطه limane

[limane]

بسم الله الرحمن الرحيم

كود VBA

ماكرو للترقيم التلقائي يفيد في الفواتير مثلا
الخلية َA2 هي التي تحتوي على الترقيم الجديد

ينسخ و يلصق بالموديول الخاص بالورقة ThisWorkbook بال VBAProject لمحرر ال VBA ( لملف الإكسيل الخاص بك )

'-------------------------------------------------------------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
SaveSetting "MyApp", "Startup","Top", Range ("A2")
End Sub

Private Sub Workbook_Open()
If Range("A1").Value <> 1 Then
Range("A2").Value = GetSetting(appname:="MyApp", section:="Startup", key:="Top", Default:="=5") + 1
Range("A1").Value = 1
End If
End Sub
'--------------------------------------------------------------------------------------------------

1 - بالورقة 1 من ملف الإكسيل و بالخلية َA2 أكتب رقم فاتورتك و ليكن 1
2 - إحفظ الملف بصفته نموذج أي بإمتداد (*.xlt)
3 - قم بغلق الملف النموذج الجديد
4 - قم بفتح الملف من "Modéles"
5 - بعد فتح الملف ستلاحظ بأن الرقم يتغير

و الله الموفق

تم تعديل أكتوبر 14, 2008 بواسطه أبو تامر