Add to a database with a control button?

**rbyrd023** · 09-29-2009, 12:52 PM

Ok I have a form where our employees enter in some info and press the add button. I want this add button to take the data entered and transfer it to a database. Each time the button is pressed it needs to drop a row and add the new information entered. I have including my workbook.

**Leith Ross** · 09-29-2009, 01:45 PM

Hello rbyrd023,

You will get more answers to question if post your workbook in Excel 2003 format. The more people who can view your workbook, the faster the turn around will be.

**royUK** · 09-29-2009, 02:10 PM

See the Contacts form here

http://excel-it.com/

The code will adapt to do what you want

**rbyrd023** · 09-29-2009, 02:31 PM

Thank you very much for the reminder. Here is the 2003 version of my workbook. Thanks to all!!

**royUK** · 09-29-2009, 02:35 PM

have you checked the download that I suggested?

**rbyrd023** · 09-29-2009, 02:44 PM

I went to the site, but couldn't find anything...... today is one of those off my rocker days!!!

**royUK** · 09-29-2009, 02:49 PM

It's on this page

http://excel-it.com/vba_examples.htm

**Leith Ross** · 09-29-2009, 05:49 PM

Hello rbyrd023,

In the event you are having trouble adapting the example, I have updated your "Add" button to copy the information. The code below has been added to the attached workbook.

Code:

Sub AddButton()
'
' AddButton Macro
'
  Dim DstRng As Range
  Dim DstRngEnd As Range
  Dim I As Long
  Dim Items As Variant
  Dim SrcWks As Worksheet
  
    Set SrcWks = Worksheets("Information Sheet")
    Set DstWks = Worksheets("Sheet2")
    
    Set DstRng = DstWks.Range("A2")
    Set DstRngEnd = DstWks.Cells(Rows.Count, DstRng.Column).End(xlUp)
    Set DstRng = IIf(DstRngEnd.Row < DstRng.Row, DstRng, DstRngEnd.Offset(1, 0))
       
    Items = Array("E19", "G8", "E11", "I12", "E13", "E15", "E21", "E23", "I21")
    
      For I = 0 To UBound(Items)
        DstRng.Offset(0, I) = SrcWks.Range(Items(I))
      Next I
        
End Sub

**rbyrd023** · 09-30-2009, 10:40 AM

Great!! The code works! Thank you very much

The "control form" on the website suggested is Great Too! Thank you very much

Where would I be without this community????? LOST!

Thanks Again Everybody!