New to Code - Syntax for Running a Sub or Function

[Sara]

Hi -
Maybe it's my code, or maybe it's that I am not coding the Call to a
sub in my code properly.

Whichever, I am getting the error "Invalid Use of Null" when running
this code. I do see my first MsgBox "Before Import data statement"
and my Second one: "Imported data 10A, 10B, 11, 12,6A, 6B, 3C for " &
[SaleDate]
but in the middle I get the "Invalid Use of Null Message". Once I say
OK to that, I get the Second message.

I never get the MsgBox in the code I want to execute, so I'm figuring
I never get there - maybe my "Call" is wrong?

I tried moving the Dim statement to the top of the sub, but I still
get the message. I am guessing the Dim statement can be anywhere in
the code, right?

' -----------------------------------------------------------------------------
' OPTION 5 - IMPORT DATA
' ------------------------------------------------------------------------------
If (Me!grpReportList = 5) Then

' Import Data

Dim SaleDate As Date

MsgBox "Before Import data statement"

Import10A

SaleDate = Me.getSaleDate

MsgBox "Imported data 10A, 10B, 11, 12,6A, 6B, 3C for " &
[SaleDate]

End If

(This is the 5th of 6 options. All the others work fine)

'------------------------------------------------------------
' Import Data
' When the user Chooses Opt 5 - Import data
'------------------------------------------------------------

Sub ImportData()
On Error GoTo ImportData_Err

MsgBox "Enter Import Data"
Dim strImportFileName As String

Dim SaleDate As Date
SaleDate = Me.getSaleDate

' for debugging
MsgBox "Saledate from Sub 10A " & SaleDate

'------------------------------------------------------------
' POS10A - Store Sales T:StoreSalesData
'------------------------------------------------------------

strImportFileName = Format([SaleDate], "mm-dd-yy") & " POS10A" &
".xls"

MsgBox strImportFileName

' DoCmd.TransferSpreadsheet acImport, 8, "T:Store Sales Data", _
' "Server-01\Building19\ProductionImports\" &
strImportFileName, True, ""

DoCmd.TransferSpreadsheet acImport, 8, "T:Store Sales Data", _
"C:\TestAutoImport\" & strImportFileName, True, ""

(There are several more files to import; then Error and End Sub)

My code compiles, too.
Thanks so much. I was feeling quite good about getting this far, but
that is fading fast!

Sara

[Randy Harris]

Sara, it's kind of tough to say for sure from the little bit of code you've
posted. Your code calls a Sub called Import10A, but the only Sub in your
post is called ImportData. The error might be in Sub Import10A or, more
likely, Me.getSaleDate is Null (just a guess). As a Date data type,
SaleDate can not contain a Null value. If there is a chance that
Me.getSaleDate might be Null, your code should test for that and handle it
appropriately. Not a solution, but a simple test - change SaleDate to a Var
data type, see if the error changes.

HTH,
Randy
"Sara" <sa******@yahoo.com> wrote in message
news:d4*************************@posting.google.co m...

Hi -
Maybe it's my code, or maybe it's that I am not coding the Call to a
sub in my code properly.

Whichever, I am getting the error "Invalid Use of Null" when running
this code. I do see my first MsgBox "Before Import data statement"
and my Second one: "Imported data 10A, 10B, 11, 12,6A, 6B, 3C for " &
[SaleDate]
but in the middle I get the "Invalid Use of Null Message". Once I say
OK to that, I get the Second message.

I never get the MsgBox in the code I want to execute, so I'm figuring
I never get there - maybe my "Call" is wrong?

I tried moving the Dim statement to the top of the sub, but I still
get the message. I am guessing the Dim statement can be anywhere in
the code, right?

' --------------------------------------------------------------------------
--- ' OPTION 5 - IMPORT DATA
' --------------------------------------------------------------------------
---- If (Me!grpReportList = 5) Then

' Import Data

Dim SaleDate As Date

MsgBox "Before Import data statement"

Import10A

SaleDate = Me.getSaleDate

MsgBox "Imported data 10A, 10B, 11, 12,6A, 6B, 3C for " &
[SaleDate]

End If

(This is the 5th of 6 options. All the others work fine)

'------------------------------------------------------------
' Import Data
' When the user Chooses Opt 5 - Import data
'------------------------------------------------------------

Sub ImportData()
On Error GoTo ImportData_Err

MsgBox "Enter Import Data"
Dim strImportFileName As String

Dim SaleDate As Date
SaleDate = Me.getSaleDate

' for debugging
MsgBox "Saledate from Sub 10A " & SaleDate

'------------------------------------------------------------
' POS10A - Store Sales T:StoreSalesData
'------------------------------------------------------------

strImportFileName = Format([SaleDate], "mm-dd-yy") & " POS10A" &
".xls"

MsgBox strImportFileName

' DoCmd.TransferSpreadsheet acImport, 8, "T:Store Sales Data", _
' "Server-01\Building19\ProductionImports\" &
strImportFileName, True, ""

DoCmd.TransferSpreadsheet acImport, 8, "T:Store Sales Data", _
"C:\TestAutoImport\" & strImportFileName, True, ""

(There are several more files to import; then Error and End Sub)

My code compiles, too.
Thanks so much. I was feeling quite good about getting this far, but
that is fading fast!

Sara

[Sara Adelizzi]

Randy -

Many thanks! That was it. Admittedly I'm a little embarrassed, but
more thankful than embarrassed. I work in a small family business and am
the only person doing Access (or anything with PCs or code, really -
most don't even do email yet). There is no one to ask to look over my
code to spot these obvious errors - the user groups are great!

Surely I'll "talk" to you again soon.

Ever grateful,
Sara

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!