شماره فاکتور اتوماتیک

[شهابسلطانی]

سلام
دوستان سورس شمارنده اتواتیک میخوام
مثلا
شماره فاکتور پایه 5001 باشه
بعد از صدور هر فاکتور برای فاکتور جدید یه عدد خودش بهش اضافه کنه
مثلا فاکتور دوم بشه شماره 5002
فاکتور سوم بشه شماره 5003
و الی ....
ممنونم

[raminshahmoradi]

Sub MaxNumberCod()
On Error Resume Next
Dim CodNum As Long


If Adodc1.Recordset.State = 1 Then Adodc1.Recordset.Close
Adodc1.Recordset.Open "SELECT max(radif) FROM tel"
CodNum = Adodc1.Recordset.Fields(0)
Label1.Caption = CodNum + 1
Adodc1.Recordset.Close
End Sub



---------------------

call MaxNumberCod

[شهابسلطانی]

براگم دست درد نکنه
فقط یه سوالی دارم
این سورس رو در چه رویدادی ثبت کنم؟
loud-form یا تکستی که شماره آن باید تغییر کند؟

[sajjad_coder]

دگمه باید بنویسی

[m.4.r.m]

علاوه بر توضیحات دوستان شما می توانید در دیتابیس اگر اکسس باشد نوع فیلد را AutoNumber انتخاب کنید .

[شهابسلطانی]

من از دیتابیس sql استفاده میکنم
لطفا واضح تر توضیح بدید
یا یک نمونه بگذارید
ممنونم

[m.4.r.m]

CREATE TABLE Persons
(
ID int NOT NULL AUTO_INCREMENT,
LastName varchar(255) NOT NULL,
FirstName varchar(255),
Address varchar(255),
City varchar(255),
PRIMARY KEY (ID)
)

ID int NOT NULL AUTO_INCREMENT, این خط این کارو برات می کنه

[شهابسلطانی]

ما که متوجه نشدیم
لطف کنید یه سورس بگذارید
ممنونم

[amir2844]

ببین عزیزم.
شما اگه برای نرم افزاری هست که قصد دارید فاکتور صادر کنه و مشخصات فاکتور توی بانک اطلاعاتی برای بازیابی و بازخوانی ذخیره شه. باید یه جدول درست کنی که شماره ها رو توش ذخیره کنی. یعنی بیای آخرین شماره رو تو یه فیلد نگه داری. این فیلد از شماره 0 شروع میشه و بعد از هربار صدور فاکتور یکی بهش اضافه میشه. به همین سادگی