Fix for Data Entry Form

**Jennster** · 08-07-2012, 04:04 AM

Hey!

I was wondering if anyone could help... I've found sample code I'm playing around with on Excel but I'm a bit confused how to fix something relating to the data entry form. Basically it works ok... but whenever the first field of the data entry form is not completed, the row I enter replaces the previous one. I hope that makes sense. Basically, you HAVE to enter something in the first field of the form otherwise it won't add to the spreadsheet a row below the last. It's a bit confusing to explain but I've attached the file to this post.

Oh and also, the exit button from the form isn't working. I can't understand why not. If anyone can shed any light on this, I'd be very grateful!

I hope someone could tell me where I'm going wrong?

Thanks

I've also asked this here: http://www.mrexcel.com/forum/showthr...65#post3232765

**romperstomper** · 08-07-2012, 05:49 AM

Is there a field that always has to be completed?

**royUK** · 08-07-2012, 09:18 AM

It's not very good code to be copying. It selects unnecessarily & has a variable lRowNum which it doesn't use.Try this


Private Sub cmdOK_Click()
    Dim sData As String
    Dim lRowNum As Long

    With ActiveWorkbook.Sheets("Data")
        lRowNum = .Cells(1, 1).CurrentRegion.Rows.Count + 1
        MsgBox lRowNum
        .Cells(lRowNum, 1).Value = txtscp.Value
        .Cells(lRowNum, 2).Value = txtproject.Value
        .Cells(lRowNum, 3) = txtplasdesc.Value
        .Cells(lRowNum, 4) = txtstraindesc.Value
        .Cells(lRowNum, 5) = txthoststrain.Value
        .Cells(lRowNum, 6) = txtown.Value
        .Cells(lRowNum, 7) = txtlbref.Value
        .Cells(lRowNum, 8) = txtantisen.Value
        .Cells(lRowNum, 9) = txtrecmed.Value
        .Cells(lRowNum, 10) = txtnovials.Value
        .Cells(lRowNum, 11) = txtloc.Value
    End With

End Sub