מיספור אוטומטי.

[עצמונאי]

מיספור אוטומטי.

איך אני יכול לדעת מהו המספר הבא שיצא לי במספור האוטומטי כשמדובר במספר שלא חוזר על עצמו אף פעם ולא מדובר במספר אקראי. תודה

 

[עצמונאי]

בבקשה...

תעזרו לי מצאתי פיתרון עקום לעקוב עם קובץ טקסט חיצוני כלומר אני יודע שהמספור מתחיל מ1 אז אני יכול לעקוב אחרי זה אבל אני מחפש פתרון ללא שימוש בקובץ חיצוני אז בבקשה תעזרו..תודה..

 

[יעל51366]

בקישור למסד נתונים עושים כך:

Private Sub cmdAdd_Click() Dim newNum As Integer adoPrimaryRS.MoveLast newNum = adoPrimaryRS.Fields(0) + 1 With adoPrimaryRS If Not (.BOF And .EOF) Then mvBookMark = .Bookmark End If .AddNew txtFields(0) = newNum txtFields(5) = 1 lblStatus.Caption = "Add record" mbAddNewFlag = True SetButtons False End With Exit Sub AddErr:​

המשתנה NEWNUM מקבל את ערך המספר הנוכחי מתיבת טקסט(שקבלה את ערכיה מRECORDSET )ומוסיף לזה 1. אל תשכח לבצע t.enabled=false כדי שהמשתמש לא יוכל לשנות את המספר בעצמו

 

[MaD-d0g]

אממ...

למה אתה צריך את זה

 

[עצמונאי]

כי..

אני רוצה להציג את מספר הכרטיס הבא ברשימה. כלומר יש לי טופס שבו המשתמש בונה כרטיס לקוח לכל לקוח יש מספר כרטיס ואני מעוניין להציג בעת שהמשתמש רושם את הפרטים את מספר הכרטיס שהוא יוצר, ליפני ביצוע פעולת R.AddNew .