Do loop problem

T

Trever B

Have following code and I need to exit sub when cell on excel spreadsheet is
null(Empty)

Thanls in advance

trev

Option Compare Database
Public nnn As String
Public Nums As Long
Public Alpha As String
Public i As Long
Public Counter As Long

Private Sub Command0_Click()
On Error Resume Next
check = "mm"
i = 63
Nums = 1
Counter = 0
DoCmd.DeleteObject acTable, "Fuel Data"
DoCmd.TransferSpreadsheet acImport, 8, "Fuel Data", "D:\GTF\Get in.xls",
False, "Red George!A5:Z1000"
DoCmd.TransferSpreadsheet acImport, 8, "Description", "D:\GTF\Get in.xls",
False, "Red George!B4:B4"

Do
aaa
Append

Loop Until IsNull(DLookup("[F1]", "Description"))

End Sub
Sub aaa()
i = i + 3
Alpha = Chr(i)

DoCmd.DeleteObject acTable, "Description"

DoCmd.TransferSpreadsheet acImport, 8, "Description", "D:\GTF\Get
in.xls", False, "Red George!" & Alpha & "4:" & Alpha & "4"
End Sub

Sub Append()

Nums = Nums + 1
nnn = " [Fuel Data].F" & Nums & ","
Nums = Nums + 1
nnn = nnn & " [Fuel Data].F" & Nums & ","
Nums = Nums + 1
nnn = nnn & " [Fuel Data].F" & Nums & " FROM [Fuel Data];"
Debug.Print nnn

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO [New Fuel] ( Fuel_Agy, Fuel_Type, Fuel_Qty,
Fuel_Colour, Fuel_Value )" _
& " SELECT [Fuel Data].F1, DLookUp('[F1]','Description') AS
TYYY," _
& nnn
DoCmd.SetWarnings True
End Sub
 
Top