Please help. I must have a variable set wrong. Take a look. If the Cellvalue of "<0.04" (retreiving data from an excell spreadsheet)
my code skips the isnumeric function.... because this is not numeric and goes to if left cellvalue is > or cellvalue is < then rstchemicals.field (aluminum-t)= left(cellvalue,1). this should put the character > or < in the field named aluminum-t (text field) and the other function calls the right cellvalue with the len function and -1 to retreive the 0.04 and place that in the aluminum field which is a number field.
This gives me an error. When debugging i see the cellvallue but it does not separate the two when needed.
Help asap as usual!!!!!!
Code Below
Private Sub ProcessChemical()
On Error GoTo ErrorExit
Dim Cellvalue2 As Variant
Dim CellValue As Variant
Dim ParameterColumn As Long
Dim ParameterRow As Long
Dim ParameterName As String
Dim c As Long, r As Long
If FindLabel("Parameter") = True Then
ParameterRow = xl.ActiveCell.Row
ParameterColumn = xl.ActiveCell.Column
For c = ParameterColumn + 1 To LastColumn
xl.Cells(ParameterRow, c).Activate
CellValue = xl.ActiveCell.Value
If Not IsEmpty(CellValue) Then
If CellValue <> "UNITS" And CellValue <> "MDL" Then ' Found sample
'If Left(CellValue, 1) = "S" Then ' Found sample
InitializeSample
For r = ParameterRow + 1 To LastRow
xl.Cells(r, c).Select
CellValue = xl.ActiveCell.Value
Cellvalue2 = CellValue
If IsEmpty(CellValue) Then
' do nothing
Else
ParameterName = xl.Cells(r, ParameterColumn).Value
ParameterName = CheckParameterName(ParameterName)
If ParameterName > "" Then
Select Case (ParameterName)
Case Is = "Aluminum"
If IsNumeric(CellValue) Then
rstChemical.Fields("Aluminum") = CellValue
Else
If Left((Cellvalue2), 1) = "<" Or Left((Cellvalue2), 1) = ">" Then
rstChemical.Fields("Aluminum-t") = Left((Cellvalue2), 1)
rstChemical.Fields("aluminum") = Right(Cellvalue2, -1)
Else
If Left((CellValue), 1) = "n" Then
rstChemical.Fields("Aluminum") = (Left(Cellvalue2, 2))
End If
End If
End If
Case Is = "Alkalinity"
If IsNumeric(CellValue) Then
rstChemical.Fields("Alkalinity") = CellValue
Else
If Left((Cellvalue2), 1) = "<" Or Left((Cellvalue2), 1) = ">" Then
rstChemical.Fields("Alkalinity-t") = Left((Cellvalue2), 1)
rstChemical.Fields("Alkalinity") = Right(Cellvalue2, -1)
Else
If Left((CellValue), 1) = "n" Then
rstChemical.Fields("Aluminum") = (Left(Cellvalue2, 2))
End If
End If
End If
End Select
End If
End If
Next r
End If
End If
If rstChemical.EditMode = dbEditAdd Then rstChemical.Update
Next c
End If
Exit Sub
ErrorExit:
Dim e As Error
Dim msg As String
For Each e In Errors
msg = msg & e.Description & vbNewLine
Next e
Rollback
lblMessage.Caption = "Updates have been rolled back."
MsgBox msg
End
End Sub
