Code:
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.. "[B]YOU CAN SEE MY FORM BELOW IN ATTACHMENTS,[/B] [B] IF YOU DONT UNDERSTAND THANKS? [/B] [I][B]SCAN FIRST BEFORE EXTRACTING!!![/B]"[/I] 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
Comment