Expand|Select|Wrap|Line Numbers
- Private Sub add_Click()
- dt1.rsCommand1.AddNew
- t1.Text = t2.Text + 1 ' << HELP ME HERE!!! I STARTED 000001..
- IF I CLICK ADD COMMAND BUTTON,
- SO IT MUST BE 000002 NOT ONLY NUMBER 2.
- ' BECAUSE I ONLY KNOW ADDING STYLE 1,2,3,4...
- SO ON AND SO FORT.
- ' I WANT LIKE THIS FORMAT OF ADDING - 000001,000002,000003...
- SO ON AND SO FORT..(AUTONUMBER)
- ' WHAT SHOULD I DO? THANKS IN ADVANCE...
- ' NOTE: I'M USING DATAENVIRONMENT DESIGNER..
- NOT ADODC, DAO OR A MODULE...
- 'IF YOU HAVE PROBLEM IN RUNNING MY PROGRAM TRY TO
- SET THE CONNECTION OF DATAENVIRONMENT..
- 'DOBLE CLICK(DT1)RIGHT CLICK (CONNECTION)FIND (PROPERTIES)
- THEN CHANGE THE CONNECTION STRING..
- LOCATED IN MY FOLDER NAMED DATABASE2.MDB
- 'THANKS AGAIN..FOR HELPING..
- "YOU CAN SEE MY FORM BELOW IN ATTACHMENTS,
- IF YOU DONT UNDERSTAND THANKS?
- SCAN FIRST BEFORE EXTRACTING!!!"
- End Sub
- Private Sub save_Click()
- dt1.rsCommand1.Update
- t2.Text = Val(t1.Text)
- End Sub
- Private Sub delete_Click()
- dt1.rsCommand1.delete
- End Sub
- Private Sub previous_Click()
- dt1.rsCommand1.MovePrevious
- End Sub
- Private Sub next_Click()
- dt1.rsCommand1.MoveNext
- End Sub
- Private Sub Form_Load()
- dt1.rsCommand1.MoveLast
- t2.Text = t1.Text
- End Sub