database

[pradyuthal]

1) i want to have a button which will save data from the template to the database automatically after hitting the button enabling the create new record.

2) I would also like to get the data entry cells clear by way of creating a clear / new button .

Please provide me with the suitable codes .

Thanks in advance .

 

[Smitty]

Please provide me with the suitable codes .

It'll help greatly in the future if you specify the ranges, otherwise all you can count on getting is an ambiguous response that you'll have to adjust for yourself. That said, how's this for a start:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> foo()
    <SPAN style="color:#007F00">'   Copy Data to a recordset</SPAN>
    <SPAN style="color:#00007F">Dim</SPAN> LastRow <SPAN style="color:#00007F">As</SPAN> Range
    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>
        <SPAN style="color:#00007F">Set</SPAN> LastRow = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp)
    
            <SPAN style="color:#00007F">For</SPAN> i = 1 <SPAN style="color:#00007F">To</SPAN> 5
                LastRow.Offset(1, i - 1) = ActiveSheet.Cells(1, i)
                ActiveSheet.Cells(1, i) = ""
            <SPAN style="color:#00007F">Next</SPAN> i
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

It copies range A1:A5 on the activesheet to a new recordset and clears the copied cells.

HTH,

Smitty

 

[pradyuthal]

my template is as follows :

test11.xls
	A	B	C	D
1
2
3	name	gggggg
4	Address	kkkkkkkkkk
5		yyyyyyy
6		rrrrrrr
7
8
9	sl	name of item	amount
10	1	fff	566
11
12
13
14
15	previous due		200
16	paid		400
17	due		166
18	total due		366
19
Sheet1

my database structure is as follows :

test11.xls
	A	B	C	D	E	F	G	H	I	J	K
1	name	Address				name of item	amount	previous due	paid	due	total due
Sheet2

Please provide me with suitable code so that the entered records are copied automatically inti sheet 2 and clears data so entered in the template sheet 1 .