compile error

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am trying to create a form for easy input. Since a lot of the input is
fairly similar, i prefer using a loop. the problem is inputting a change of
string so i can actually achive data from the text boxes:

Private Sub add_day_Click()

Dim r, c As Integer
Dim SOLD As Integer
Dim Cash, Credit, Check As Currency
Dim ws As Worksheet
Dim Mall As String
Dim day As Integer
Dim days As String
Dim Response
Dim Product


Mall = ""
day = 0
If Me.txt_mall.Value <> "" Then Mall = Me.txt_mall.Value
If Me.txt_day.Value <> "" Then day = Me.txt_day.Value
If Mall <> "" And day <> 0 Then
Select Case day
Case 1 To 7
days = " 1-7"
Case 8 To 14
days = " 8-14"
Case 15 To 21
days = " 15-21"
Case 22 To 28
days = " 22-28"
Case 29 To 31
days = " 29-31"
End Select

Mall = Mall + days

Set ws = Worksheets(Mall)


'copy the data to the database
For j = 1 To 3
For i = 2 To 74 Step 6
Select Case i
Case 2
Product = Worksheets("Intro").Cells(11, 1).Value
Case 8
Product = Worksheets("Intro").Cells(12, 1).Value
Case 14
Product = Worksheets("Intro").Cells(13, 1).Value
Case 20
Product = Worksheets("Intro").Cells(14, 1).Value
Case 26
Product = Worksheets("Intro").Cells(15, 1).Value
Case 32
Product = Worksheets("Intro").Cells(16, 1).Value
Case 38
Product = Worksheets("Intro").Cells(17, 1).Value
Case 44
Product = Worksheets("Intro").Cells(18, 1).Value
Case 50
Product = Worksheets("Intro").Cells(19, 1).Value
Case 56
Product = Worksheets("Intro").Cells(20, 1).Value
Case 62
Product = Worksheets("Intro").Cells(21, 1).Value
Case 68
Product = Worksheets("Intro").Cells(22, 1).Value
Case 74
Product = Worksheets("Intro").Cells(23, 1).Value
End Select

Select Case j
Case 1
Product = Product + "_add"
ws.Cells(i + j, c).Value = Me.Product.Value <---- This is
where i get the error. It will not allow me to use "Product" since it's not
one of the text boxes

Me.Product.ClearContents
Case 2
Product = Product + "_sold"
ws.Cells(i + j, c).Value = Me.Product.Value
Me.Product.ClearContents
End If
Case 3
' Product = Product + "_damage"
' If Not IsEmpty(Me.Product) Then
' ws.Cells(i + j, c).Value = Me.Product.Value
' Me.Product.ClearContents
' End If
End Select
Next i
Next j
Else
Response = MsgBox("You Did Not Enter The Mall / Date, Please Enter
Again", vbExclamation, "Missing Information")
End If
End Sub

Help Thanks
 
Back
Top