Copying a date from a text file

  • Thread starter Thread starter Mike L
  • Start date Start date
M

Mike L

I extract shipping data from a downloaded text file. I
have no problem getting the date from the header or
getting the date from the string data. What I can't do is
insert the date in the following fields in the date
column. I am using an event procedure with code. any
help would be great.

Thanks,

Mike L
 
I think you left out the info you planned to post re: "fields" etc. Post the
code that you're using and the field / table info.
 
The "Date" field in the table is a date/time (medium
date). I have about 4500 records and I need the date to
post to all.
Here is the code.

Thanks for your help.
Mike

Private Sub SRAN_Enter()
Dim strDate As Variant 'Declares strDate

strDate = Mid$([Field1], 18, 9) 'Gets the string dd mmm
yyy


If Len(Field1) > 0 Then

If IsDate(strDate) Then
Date = strDate
ResUpDate = Date 'ResUpDate is a public procedure
'See below
ElseIf Not IsDate(strDate) Then
Date = ResUpDate
End If

If Not IsDate(strDate) Then
Date = ResUpDate
End If

End Sub

-----------------------------------------------------------


Option Compare Database

Public AutoResDate
Dim ResUpDate As Variant
 
First, do not use Date as the name of a field in a table, nor as the name of
a control on a form or report. Date is a VBA function that returns the
current date; when you use it as a field or control name, ACCESS can and
usually does become very confused over which one you mean. In your code,
you're trying to change the value of the Date function and that will not
work.

Assuming that the rest of the code is ok, for now, until you change the name
of the field, your code may work if you change it to this:

Private Sub SRAN_Enter()
Dim strDate As Variant 'Declares strDate

strDate = Mid$([Field1], 18, 9) 'Gets the string dd mmm
yyy


If Len(Field1) > 0 Then

If IsDate(strDate) Then
[Date] = strDate
ResUpDate = [Date] 'ResUpDate is a public procedure
'See below
ElseIf Not IsDate(strDate) Then
[Date] = ResUpDate
End If

If Not IsDate(strDate) Then
[Date] = ResUpDate
End If

End Sub
--

Ken Snell
<MS ACCESS MVP>

Mike L said:
The "Date" field in the table is a date/time (medium
date). I have about 4500 records and I need the date to
post to all.
Here is the code.

Thanks for your help.
Mike

Private Sub SRAN_Enter()
Dim strDate As Variant 'Declares strDate

strDate = Mid$([Field1], 18, 9) 'Gets the string dd mmm
yyy


If Len(Field1) > 0 Then

If IsDate(strDate) Then
Date = strDate
ResUpDate = Date 'ResUpDate is a public procedure
'See below
ElseIf Not IsDate(strDate) Then
Date = ResUpDate
End If

If Not IsDate(strDate) Then
Date = ResUpDate
End If

End Sub

-----------------------------------------------------------


Option Compare Database

Public AutoResDate
Dim ResUpDate As Variant
-----Original Message-----
I think you left out the info you planned to post re: "fields" etc. Post the
code that you're using and the field / table info.

--

Ken Snell
<MS ACCESS MVP>




.
Click to expand...
Click to expand...
 
Ok,

I'm getting a date, but it's 30 Dec 99, not the date I
need. Your suggestion has got me a step further. Thanks
I changed the code as follows:

strDate = Mid$([Field1], 18, 9)


If Len(Field1) > 0 Then

If IsDate(strDate) Then
ResUpDate = [DownLoadDate]
[DownLoadDate] = strDate
ElseIf Not IsDate(strDate) Then
[DownLoadDate] = ResUpDate
End If

-----Original Message-----
First, do not use Date as the name of a field in a table, nor as the name of
a control on a form or report. Date is a VBA function that returns the
current date; when you use it as a field or control name, ACCESS can and
usually does become very confused over which one you mean. In your code,
you're trying to change the value of the Date function and that will not
work.

Assuming that the rest of the code is ok, for now, until you change the name
of the field, your code may work if you change it to this:

Private Sub SRAN_Enter()
Dim strDate As Variant 'Declares strDate

strDate = Mid$([Field1], 18, 9) 'Gets the string dd mmm
yyy


If Len(Field1) > 0 Then

If IsDate(strDate) Then
[Date] = strDate
ResUpDate = [Date] 'ResUpDate is a public procedure
'See below
ElseIf Not IsDate(strDate) Then
[Date] = ResUpDate
End If

If Not IsDate(strDate) Then
[Date] = ResUpDate
End If

End Sub
--

Ken Snell
<MS ACCESS MVP>

The "Date" field in the table is a date/time (medium
date). I have about 4500 records and I need the date to
post to all.
Here is the code.

Thanks for your help.
Mike

Private Sub SRAN_Enter()
Dim strDate As Variant 'Declares strDate

strDate = Mid$([Field1], 18, 9) 'Gets the string dd mmm
yyy


If Len(Field1) > 0 Then

If IsDate(strDate) Then
Date = strDate
ResUpDate = Date 'ResUpDate is a public procedure
'See below
ElseIf Not IsDate(strDate) Then
Date = ResUpDate
End If

If Not IsDate(strDate) Then
Date = ResUpDate
End If

End Sub

-------------------------------------------------------- ---


Option Compare Database

Public AutoResDate
Dim ResUpDate As Variant
-----Original Message-----
I think you left out the info you planned to post re: "fields" etc. Post the
code that you're using and the field / table info.

--

Ken Snell
<MS ACCESS MVP>

I extract shipping data from a downloaded text file. I
have no problem getting the date from the header or
getting the date from the string data. What I can't
Click to expand...
do
is
insert the date in the following fields in the date
column. I am using an event procedure with code. any
help would be great.

Thanks,

Mike L


.
Click to expand...
Click to expand...


.
Click to expand...
 
Post examples of the values in the field so we can see what you're
expression is trying to do.

--

Ken Snell
<MS ACCESS MVP>

Mike L said:
Ok,

I'm getting a date, but it's 30 Dec 99, not the date I
need. Your suggestion has got me a step further. Thanks
I changed the code as follows:

strDate = Mid$([Field1], 18, 9)


If Len(Field1) > 0 Then

If IsDate(strDate) Then
ResUpDate = [DownLoadDate]
[DownLoadDate] = strDate
ElseIf Not IsDate(strDate) Then
[DownLoadDate] = ResUpDate
End If

-----Original Message-----
First, do not use Date as the name of a field in a table, nor as the name of
a control on a form or report. Date is a VBA function that returns the
current date; when you use it as a field or control name, ACCESS can and
usually does become very confused over which one you mean. In your code,
you're trying to change the value of the Date function and that will not
work.

Assuming that the rest of the code is ok, for now, until you change the name
of the field, your code may work if you change it to this:

Private Sub SRAN_Enter()
Dim strDate As Variant 'Declares strDate

strDate = Mid$([Field1], 18, 9) 'Gets the string dd mmm
yyy


If Len(Field1) > 0 Then

If IsDate(strDate) Then
[Date] = strDate
ResUpDate = [Date] 'ResUpDate is a public procedure
'See below
ElseIf Not IsDate(strDate) Then
[Date] = ResUpDate
End If

If Not IsDate(strDate) Then
[Date] = ResUpDate
End If

End Sub
--

Ken Snell
<MS ACCESS MVP>

The "Date" field in the table is a date/time (medium
date). I have about 4500 records and I need the date to
post to all.
Here is the code.

Thanks for your help.
Mike

Private Sub SRAN_Enter()
Dim strDate As Variant 'Declares strDate

strDate = Mid$([Field1], 18, 9) 'Gets the string dd mmm
yyy


If Len(Field1) > 0 Then

If IsDate(strDate) Then
Date = strDate
ResUpDate = Date 'ResUpDate is a public procedure
'See below
ElseIf Not IsDate(strDate) Then
Date = ResUpDate
End If

If Not IsDate(strDate) Then
Date = ResUpDate
End If

End Sub

-------------------------------------------------------- ---


Option Compare Database

Public AutoResDate
Dim ResUpDate As Variant

-----Original Message-----
I think you left out the info you planned to post
re: "fields" etc. Post the
code that you're using and the field / table info.

--

Ken Snell
<MS ACCESS MVP>

message
I extract shipping data from a downloaded text file. I
have no problem getting the date from the header or
getting the date from the string data. What I can't do
is
insert the date in the following fields in the date
column. I am using an event procedure with code. any
help would be great.

Thanks,

Mike L


.
Click to expand...


.
Click to expand...
Click to expand...
 
FWIW, 30 Dec, 1899 corresponds to a date value of 0.

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)



Mike L said:
Ok,

I'm getting a date, but it's 30 Dec 99, not the date I
need. Your suggestion has got me a step further. Thanks
I changed the code as follows:

strDate = Mid$([Field1], 18, 9)


If Len(Field1) > 0 Then

If IsDate(strDate) Then
ResUpDate = [DownLoadDate]
[DownLoadDate] = strDate
ElseIf Not IsDate(strDate) Then
[DownLoadDate] = ResUpDate
End If

-----Original Message-----
First, do not use Date as the name of a field in a table, nor as the name of
a control on a form or report. Date is a VBA function that returns the
current date; when you use it as a field or control name, ACCESS can and
usually does become very confused over which one you mean. In your code,
you're trying to change the value of the Date function and that will not
work.

Assuming that the rest of the code is ok, for now, until you change the name
of the field, your code may work if you change it to this:

Private Sub SRAN_Enter()
Dim strDate As Variant 'Declares strDate

strDate = Mid$([Field1], 18, 9) 'Gets the string dd mmm
yyy


If Len(Field1) > 0 Then

If IsDate(strDate) Then
[Date] = strDate
ResUpDate = [Date] 'ResUpDate is a public procedure
'See below
ElseIf Not IsDate(strDate) Then
[Date] = ResUpDate
End If

If Not IsDate(strDate) Then
[Date] = ResUpDate
End If

End Sub
--

Ken Snell
<MS ACCESS MVP>

The "Date" field in the table is a date/time (medium
date). I have about 4500 records and I need the date to
post to all.
Here is the code.

Thanks for your help.
Mike

Private Sub SRAN_Enter()
Dim strDate As Variant 'Declares strDate

strDate = Mid$([Field1], 18, 9) 'Gets the string dd mmm
yyy


If Len(Field1) > 0 Then

If IsDate(strDate) Then
Date = strDate
ResUpDate = Date 'ResUpDate is a public procedure
'See below
ElseIf Not IsDate(strDate) Then
Date = ResUpDate
End If

If Not IsDate(strDate) Then
Date = ResUpDate
End If

End Sub

-------------------------------------------------------- ---


Option Compare Database

Public AutoResDate
Dim ResUpDate As Variant

-----Original Message-----
I think you left out the info you planned to post
re: "fields" etc. Post the
code that you're using and the field / table info.

--

Ken Snell
<MS ACCESS MVP>

message
I extract shipping data from a downloaded text file. I
have no problem getting the date from the header or
getting the date from the string data. What I can't do
is
insert the date in the following fields in the date
column. I am using an event procedure with code. any
help would be great.

Thanks,

Mike L


.
Click to expand...


.
Click to expand...
Click to expand...
 
What I get is this:
DownLoadDate:
05-Aug-04 This is a good date from the text.
30-Dec-99 This is what I get til the next text date is
encountered
30-Dec-99
30-Dec-99
30-Dec-99

-----Original Message-----
Post examples of the values in the field so we can see what you're
expression is trying to do.

--

Ken Snell
<MS ACCESS MVP>

Ok,

I'm getting a date, but it's 30 Dec 99, not the date I
need. Your suggestion has got me a step further. Thanks
I changed the code as follows:

strDate = Mid$([Field1], 18, 9)


If Len(Field1) > 0 Then

If IsDate(strDate) Then
ResUpDate = [DownLoadDate]
[DownLoadDate] = strDate
ElseIf Not IsDate(strDate) Then
[DownLoadDate] = ResUpDate
End If

-----Original Message-----
First, do not use Date as the name of a field in a
Click to expand...
table,
nor as the name of
a control on a form or report. Date is a VBA function that returns the
current date; when you use it as a field or control
Click to expand...
name,
ACCESS can and
usually does become very confused over which one you mean. In your code,
you're trying to change the value of the Date function and that will not
work.

Assuming that the rest of the code is ok, for now,
Click to expand...
until
you change the name
of the field, your code may work if you change it to this:

Private Sub SRAN_Enter()
Dim strDate As Variant 'Declares strDate

strDate = Mid$([Field1], 18, 9) 'Gets the string dd mmm
yyy


If Len(Field1) > 0 Then

If IsDate(strDate) Then
[Date] = strDate
ResUpDate = [Date] 'ResUpDate is a public procedure
'See below
ElseIf Not IsDate(strDate) Then
[Date] = ResUpDate
End If

If Not IsDate(strDate) Then
[Date] = ResUpDate
End If

End Sub
--

Ken Snell
<MS ACCESS MVP>

The "Date" field in the table is a date/time (medium
date). I have about 4500 records and I need the date to
post to all.
Here is the code.

Thanks for your help.
Mike

Private Sub SRAN_Enter()
Dim strDate As Variant 'Declares strDate

strDate = Mid$([Field1], 18, 9) 'Gets the string dd mmm
yyy


If Len(Field1) > 0 Then

If IsDate(strDate) Then
Date = strDate
ResUpDate = Date 'ResUpDate is a public procedure
'See below
ElseIf Not IsDate(strDate) Then
Date = ResUpDate
End If

If Not IsDate(strDate) Then
Date = ResUpDate
End If

End Sub

-----------------------------------------------------
Click to expand...
---
---
Option Compare Database

Public AutoResDate
Dim ResUpDate As Variant

-----Original Message-----
I think you left out the info you planned to post
re: "fields" etc. Post the
code that you're using and the field / table info.

--

Ken Snell
<MS ACCESS MVP>

message
I extract shipping data from a downloaded text file. I
have no problem getting the date from the header or
getting the date from the string data. What I
Click to expand...
can't
do
is
insert the date in the following fields in the date
column. I am using an event procedure with code. any
help would be great.

Thanks,

Mike L


.



.
Click to expand...
Click to expand...


.
Click to expand...
 
Your expression is this:
Mid$([Field1], 18, 9)

The date of August 5, 2004 does not contain 18 characters, let alone 27.
Remember that a date is actually stored as a number, and in this case the
number is just 5 digits long. If your storing the date in a text format,
then it still doesn't have that many characters.

As a result, the Mid$ expression is returning an empty string, which then is
converted to 0 as the date -- hence, the date of December 30, 1899 that
you're seeing.

I believe you need to rethink the expression that you're using to try to
parse the date? Or am I misunderstanding the situation here?
--

Ken Snell
<MS ACCESS MVP>


Mike L said:
What I get is this:
DownLoadDate:
05-Aug-04 This is a good date from the text.
30-Dec-99 This is what I get til the next text date is
encountered
30-Dec-99
30-Dec-99
30-Dec-99

-----Original Message-----
Post examples of the values in the field so we can see what you're
expression is trying to do.

--

Ken Snell
<MS ACCESS MVP>

Ok,

I'm getting a date, but it's 30 Dec 99, not the date I
need. Your suggestion has got me a step further. Thanks
I changed the code as follows:

strDate = Mid$([Field1], 18, 9)


If Len(Field1) > 0 Then

If IsDate(strDate) Then
ResUpDate = [DownLoadDate]
[DownLoadDate] = strDate
ElseIf Not IsDate(strDate) Then
[DownLoadDate] = ResUpDate
End If


-----Original Message-----
First, do not use Date as the name of a field in a table,
nor as the name of
a control on a form or report. Date is a VBA function
that returns the
current date; when you use it as a field or control name,
ACCESS can and
usually does become very confused over which one you
mean. In your code,
you're trying to change the value of the Date function
and that will not
work.

Assuming that the rest of the code is ok, for now, until
you change the name
of the field, your code may work if you change it to this:

Private Sub SRAN_Enter()
Dim strDate As Variant 'Declares strDate

strDate = Mid$([Field1], 18, 9) 'Gets the string dd mmm
yyy


If Len(Field1) > 0 Then

If IsDate(strDate) Then
[Date] = strDate
ResUpDate = [Date] 'ResUpDate is a public
procedure
'See below
ElseIf Not IsDate(strDate) Then
[Date] = ResUpDate
End If

If Not IsDate(strDate) Then
[Date] = ResUpDate
End If

End Sub
--

Ken Snell
<MS ACCESS MVP>

message
The "Date" field in the table is a date/time (medium
date). I have about 4500 records and I need the date to
post to all.
Here is the code.

Thanks for your help.
Mike

Private Sub SRAN_Enter()
Dim strDate As Variant 'Declares strDate

strDate = Mid$([Field1], 18, 9) 'Gets the string dd mmm
yyy


If Len(Field1) > 0 Then

If IsDate(strDate) Then
Date = strDate
ResUpDate = Date 'ResUpDate is a public
procedure
'See below
ElseIf Not IsDate(strDate) Then
Date = ResUpDate
End If

If Not IsDate(strDate) Then
Date = ResUpDate
End If

End Sub

----------------------------------------------------- ---
---


Option Compare Database

Public AutoResDate
Dim ResUpDate As Variant

-----Original Message-----
I think you left out the info you planned to post
re: "fields" etc. Post the
code that you're using and the field / table info.

--

Ken Snell
<MS ACCESS MVP>

message
I extract shipping data from a downloaded text
file. I
have no problem getting the date from the header or
getting the date from the string data. What I can't
do
is
insert the date in the following fields in the date
column. I am using an event procedure with code.
any
help would be great.

Thanks,

Mike L


.



.
Click to expand...


.
Click to expand...
Click to expand...
 
Ken,

I believe Mid$([Field1], 18, 9)means that the string
starts at the 18th character and ends in nine characters.
Is this correct or have I been using Mid$ wrong?
-----Original Message-----
Your expression is this:
Mid$([Field1], 18, 9)

The date of August 5, 2004 does not contain 18 characters, let alone 27.
Remember that a date is actually stored as a number, and in this case the
number is just 5 digits long. If your storing the date in a text format,
then it still doesn't have that many characters.

As a result, the Mid$ expression is returning an empty string, which then is
converted to 0 as the date -- hence, the date of December 30, 1899 that
you're seeing.

I believe you need to rethink the expression that you're using to try to
parse the date? Or am I misunderstanding the situation here?
--

Ken Snell
<MS ACCESS MVP>


What I get is this:
DownLoadDate:
05-Aug-04 This is a good date from the text.
30-Dec-99 This is what I get til the next text date is
encountered
30-Dec-99
30-Dec-99
30-Dec-99

-----Original Message-----
Post examples of the values in the field so we can see what you're
expression is trying to do.

--

Ken Snell
<MS ACCESS MVP>

Ok,

I'm getting a date, but it's 30 Dec 99, not the date I
need. Your suggestion has got me a step further. Thanks
I changed the code as follows:

strDate = Mid$([Field1], 18, 9)


If Len(Field1) > 0 Then

If IsDate(strDate) Then
ResUpDate = [DownLoadDate]
[DownLoadDate] = strDate
ElseIf Not IsDate(strDate) Then
[DownLoadDate] = ResUpDate
End If


-----Original Message-----
First, do not use Date as the name of a field in a table,
nor as the name of
a control on a form or report. Date is a VBA function
that returns the
current date; when you use it as a field or control name,
ACCESS can and
usually does become very confused over which one you
mean. In your code,
you're trying to change the value of the Date function
and that will not
work.

Assuming that the rest of the code is ok, for now, until
you change the name
of the field, your code may work if you change it to this:

Private Sub SRAN_Enter()
Dim strDate As Variant 'Declares strDate

strDate = Mid$([Field1], 18, 9) 'Gets the string dd mmm
yyy


If Len(Field1) > 0 Then

If IsDate(strDate) Then
[Date] = strDate
ResUpDate = [Date] 'ResUpDate is a public
procedure
'See below
ElseIf Not IsDate(strDate) Then
[Date] = ResUpDate
End If

If Not IsDate(strDate) Then
[Date] = ResUpDate
End If

End Sub
--

Ken Snell
<MS ACCESS MVP>

message
The "Date" field in the table is a date/time (medium
date). I have about 4500 records and I need the date to
post to all.
Here is the code.

Thanks for your help.
Mike

Private Sub SRAN_Enter()
Dim strDate As Variant 'Declares strDate

strDate = Mid$([Field1], 18, 9) 'Gets the string
Click to expand...
dd
mmm
yyy


If Len(Field1) > 0 Then

If IsDate(strDate) Then
Date = strDate
ResUpDate = Date 'ResUpDate is a public
procedure
'See below
ElseIf Not IsDate(strDate) Then
Date = ResUpDate
End If

If Not IsDate(strDate) Then
Date = ResUpDate
End If

End Sub

--------------------------------------------------
Click to expand...
---
---
---


Option Compare Database

Public AutoResDate
Dim ResUpDate As Variant

-----Original Message-----
I think you left out the info you planned to post
re: "fields" etc. Post the
code that you're using and the field / table info.

--

Ken Snell
<MS ACCESS MVP>

message
I extract shipping data from a downloaded text
file. I
have no problem getting the date from the
Click to expand...
header
or
getting the date from the string data. What I can't
do
is
insert the date in the following fields in the date
column. I am using an event procedure with code.
any
help would be great.

Thanks,

Mike L


.



.



.
Click to expand...
Click to expand...


.
Click to expand...
 
Mid$([Field1], 18, 9) means that you're going to get a string that consists
of characters 18, 19, 20, 21, 22, 23, 24, 25 & 26 from [Field1]. As Ken
points out, your expression August 5, 2004 is only 14 characters long (plus,
if you're actually doing this with a Date field, it's a number)

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)



Mike L said:
Ken,

I believe Mid$([Field1], 18, 9)means that the string
starts at the 18th character and ends in nine characters.
Is this correct or have I been using Mid$ wrong?
-----Original Message-----
Your expression is this:
Mid$([Field1], 18, 9)

The date of August 5, 2004 does not contain 18 characters, let alone 27.
Remember that a date is actually stored as a number, and in this case the
number is just 5 digits long. If your storing the date in a text format,
then it still doesn't have that many characters.

As a result, the Mid$ expression is returning an empty string, which then is
converted to 0 as the date -- hence, the date of December 30, 1899 that
you're seeing.

I believe you need to rethink the expression that you're using to try to
parse the date? Or am I misunderstanding the situation here?
--

Ken Snell
<MS ACCESS MVP>


What I get is this:
DownLoadDate:
05-Aug-04 This is a good date from the text.
30-Dec-99 This is what I get til the next text date is
encountered
30-Dec-99
30-Dec-99
30-Dec-99


-----Original Message-----
Post examples of the values in the field so we can see
what you're
expression is trying to do.

--

Ken Snell
<MS ACCESS MVP>

message
Ok,

I'm getting a date, but it's 30 Dec 99, not the date I
need. Your suggestion has got me a step further.
Thanks
I changed the code as follows:

strDate = Mid$([Field1], 18, 9)


If Len(Field1) > 0 Then

If IsDate(strDate) Then
ResUpDate = [DownLoadDate]
[DownLoadDate] = strDate
ElseIf Not IsDate(strDate) Then
[DownLoadDate] = ResUpDate
End If


-----Original Message-----
First, do not use Date as the name of a field in a
table,
nor as the name of
a control on a form or report. Date is a VBA function
that returns the
current date; when you use it as a field or control
name,
ACCESS can and
usually does become very confused over which one you
mean. In your code,
you're trying to change the value of the Date function
and that will not
work.

Assuming that the rest of the code is ok, for now,
until
you change the name
of the field, your code may work if you change it to
this:

Private Sub SRAN_Enter()
Dim strDate As Variant 'Declares strDate

strDate = Mid$([Field1], 18, 9) 'Gets the string dd
mmm
yyy


If Len(Field1) > 0 Then

If IsDate(strDate) Then
[Date] = strDate
ResUpDate = [Date] 'ResUpDate is a public
procedure
'See below
ElseIf Not IsDate(strDate) Then
[Date] = ResUpDate
End If

If Not IsDate(strDate) Then
[Date] = ResUpDate
End If

End Sub
--

Ken Snell
<MS ACCESS MVP>

message
The "Date" field in the table is a date/time (medium
date). I have about 4500 records and I need the
date to
post to all.
Here is the code.

Thanks for your help.
Mike

Private Sub SRAN_Enter()
Dim strDate As Variant 'Declares strDate

strDate = Mid$([Field1], 18, 9) 'Gets the string dd
mmm
yyy


If Len(Field1) > 0 Then

If IsDate(strDate) Then
Date = strDate
ResUpDate = Date 'ResUpDate is a public
procedure
'See below
ElseIf Not IsDate(strDate) Then
Date = ResUpDate
End If

If Not IsDate(strDate) Then
Date = ResUpDate
End If

End Sub

-------------------------------------------------- ---
---
---


Option Compare Database

Public AutoResDate
Dim ResUpDate As Variant

-----Original Message-----
I think you left out the info you planned to post
re: "fields" etc. Post the
code that you're using and the field / table info.

--

Ken Snell
<MS ACCESS MVP>

"Mike L" <[email protected]>
wrote in
message
I extract shipping data from a downloaded text
file. I
have no problem getting the date from the header
or
getting the date from the string data. What I
can't
do
is
insert the date in the following fields in the
date
column. I am using an event procedure with code.
any
help would be great.

Thanks,

Mike L


.



.



.
Click to expand...


.
Click to expand...
Click to expand...
 
Back
Top