B
Bill the Newbie
I am using ECEL for MAC. I wrote a USER Form to into a data base. But every
new entry erases the previous one.
Any ideals on how to fix?
Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Comic Collection")
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
If Trim(Me.TextBook_Name.Value) = "" Then
Me.TextBook_Name.SetFocus
MsgBox "Please enter a Comic Name"
Exit Sub
End If
ws.Cells(iRow, 1).Value = Me.TextBook_Name.Value
ws.Cells(iRow, 2).Value = Me.TextPublisher.Value
ws.Cells(iRow, 3).Value = Me.TextImprint.Value
ws.Cells(iRow, 4).Value = Me.TextSeries_Began.Value
ws.Cells(iRow, 5).Value = Me.TextSeries_Ended.Value
ws.Cells(iRow, 6).Value = Me.TextFirst_Issue.Value
ws.Cells(iRow, 7).Value = Me.TextLast_Issue.Value
ws.Cells(iRow, 8).Value = Me.TextFormat.Value
ws.Cells(iRow, 9).Value = Me.TextCountry.Value
ws.Cells(iRow, 10).Value = Me.TextLanguage.Value
ws.Cells(iRow, 11).Value = Me.TextIssue_Number.Value
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Please use the button!"
End If
End Sub
new entry erases the previous one.
Any ideals on how to fix?
Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Comic Collection")
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
If Trim(Me.TextBook_Name.Value) = "" Then
Me.TextBook_Name.SetFocus
MsgBox "Please enter a Comic Name"
Exit Sub
End If
ws.Cells(iRow, 1).Value = Me.TextBook_Name.Value
ws.Cells(iRow, 2).Value = Me.TextPublisher.Value
ws.Cells(iRow, 3).Value = Me.TextImprint.Value
ws.Cells(iRow, 4).Value = Me.TextSeries_Began.Value
ws.Cells(iRow, 5).Value = Me.TextSeries_Ended.Value
ws.Cells(iRow, 6).Value = Me.TextFirst_Issue.Value
ws.Cells(iRow, 7).Value = Me.TextLast_Issue.Value
ws.Cells(iRow, 8).Value = Me.TextFormat.Value
ws.Cells(iRow, 9).Value = Me.TextCountry.Value
ws.Cells(iRow, 10).Value = Me.TextLanguage.Value
ws.Cells(iRow, 11).Value = Me.TextIssue_Number.Value
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Please use the button!"
End If
End Sub