extreme frustration for newbie

G

Guest

HELP!!!!!

I have been on this site for a while looking for an answer. Some of the
discussions get close but....

I am working on a db problem. I had nothing to do with the design of this
export form and visual basic. In fact, I know very little about visual
basic. Here's one of the error messages after trying to export:The date
being exported does not match the format described in the schema.ini file.
What the heck is this file????

Another form I try to export this error message comes up:
The Microsoft Jet database engine could not find the object 'form888.txt.'
Make sure the object exists and that you spell its name and the path name
correctly. Now this one, I have checked. In know the path is right and I
know the name is right. Can anyone help me? I am so frustrated right now!!!
The whole point of this was to make exporting easy but it has been a big
pain!!!!!!

Here's the vb code:

Option Compare Database
Public EDMISfile As String
Public ExportSpec As String



Private Sub cmdPreview_Click()
On Error GoTo Err_cmdpreview
DoCmd.OpenQuery EDMISfile, acViewNormal
Exit Sub
Err_cmdpreview:
MsgBox Err_description

End Sub

Private Sub cmdUpload_Click()

On Error GoTo Err_Upload_Click
DoCmd.TransferText acExportDelim, ExportSpec, EDMISfile, txtUpload
MsgBox txtUpload & " written."
DoCmd.Close (acForm), "frmedmisupload"
Exit Sub

Err_Upload_Click:
MsgBox Err.Description

End Sub

Private Sub comEDMIS_AfterUpdate()
On Error GoTo Err_EDMIS


Select Case comEDMIS.Value
Case "Form 641"
ExportSpec = "Form641_Export_Specification"
EDMISfile = "qryForm641"
txtUpload = "\\Server01\bdata\EDMIS\Form641.txt"
txtBegClient.Enabled = True
txtEndClient.Enabled = True

Case "Form 641A"
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "qryMakeTcounsel"
DoCmd.OpenQuery "qrycombine"
ExportSpec = "Form641A_Export_Specification"
EDMISfile = "qryForm641A"
txtUpload = "\\Server01\bdata\EDMIS\Form641A.txt"
txtBegClient.Enabled = True
txtEndClient.Enabled = True
DoCmd.SetWarnings (True)

Case "Form 888"
ExportSpec = "Form888_Export_Specification"
EDMISfile = "qryForm888"
txtUpload = "\\Server01\bdata\EDMIS\Form888.txt"
txtBegClient.Enabled = False
txtEndClient.Enabled = False


End Select
txtUpload.Enabled = False

Exit Sub

Err_EDMIS:
MsgBox Err.Description


End Sub

Private Sub Command6_Click()

End Sub

Private Sub Command9_Click()
MsgBox "Help Messages go here..."
End Sub

Private Sub Detail_Click()

End Sub

Private Sub Form_Load()
On Error GoTo Err_formopen

Dim begclient, endclient
begclient = DMin("[client Id]", "tblclientcontactinfo")
endclient = DMax("[client Id]", "tblclientcontactinfo")
txtBegClient = begclient
txtEndClient = endclient
BegClientID = txtBegClient.Value
EndClientID = txtEndClient.Value

txtUpload.Enabled = False
txtBegClient.Enabled = False
txtEndClient.Enabled = False

Exit Sub

Err_formopen:
MsgBox Err.Description

End Sub

Private Sub txtBegClient_AfterUpdate()
BegClientID = txtBegClient.Value

End Sub

Private Sub txtEndClient_AfterUpdate()
EndClientID = txtEndClient.Value

End Sub

Private Sub txtUpload_BeforeUpdate(Cancel As Integer)

End Sub

any help would be appreciated.
 
G

Guest

It would help to know what version of Access you are using.
Also, did you examine the export specs to see exactly what they are doing?
- Dorian

purpleme3 said:
HELP!!!!!

I have been on this site for a while looking for an answer. Some of the
discussions get close but....

I am working on a db problem. I had nothing to do with the design of this
export form and visual basic. In fact, I know very little about visual
basic. Here's one of the error messages after trying to export:The date
being exported does not match the format described in the schema.ini file.
What the heck is this file????

Another form I try to export this error message comes up:
The Microsoft Jet database engine could not find the object 'form888.txt.'
Make sure the object exists and that you spell its name and the path name
correctly. Now this one, I have checked. In know the path is right and I
know the name is right. Can anyone help me? I am so frustrated right now!!!
The whole point of this was to make exporting easy but it has been a big
pain!!!!!!

Here's the vb code:

Option Compare Database
Public EDMISfile As String
Public ExportSpec As String



Private Sub cmdPreview_Click()
On Error GoTo Err_cmdpreview
DoCmd.OpenQuery EDMISfile, acViewNormal
Exit Sub
Err_cmdpreview:
MsgBox Err_description

End Sub

Private Sub cmdUpload_Click()

On Error GoTo Err_Upload_Click
DoCmd.TransferText acExportDelim, ExportSpec, EDMISfile, txtUpload
MsgBox txtUpload & " written."
DoCmd.Close (acForm), "frmedmisupload"
Exit Sub

Err_Upload_Click:
MsgBox Err.Description

End Sub

Private Sub comEDMIS_AfterUpdate()
On Error GoTo Err_EDMIS


Select Case comEDMIS.Value
Case "Form 641"
ExportSpec = "Form641_Export_Specification"
EDMISfile = "qryForm641"
txtUpload = "\\Server01\bdata\EDMIS\Form641.txt"
txtBegClient.Enabled = True
txtEndClient.Enabled = True

Case "Form 641A"
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "qryMakeTcounsel"
DoCmd.OpenQuery "qrycombine"
ExportSpec = "Form641A_Export_Specification"
EDMISfile = "qryForm641A"
txtUpload = "\\Server01\bdata\EDMIS\Form641A.txt"
txtBegClient.Enabled = True
txtEndClient.Enabled = True
DoCmd.SetWarnings (True)

Case "Form 888"
ExportSpec = "Form888_Export_Specification"
EDMISfile = "qryForm888"
txtUpload = "\\Server01\bdata\EDMIS\Form888.txt"
txtBegClient.Enabled = False
txtEndClient.Enabled = False


End Select
txtUpload.Enabled = False

Exit Sub

Err_EDMIS:
MsgBox Err.Description


End Sub

Private Sub Command6_Click()

End Sub

Private Sub Command9_Click()
MsgBox "Help Messages go here..."
End Sub

Private Sub Detail_Click()

End Sub

Private Sub Form_Load()
On Error GoTo Err_formopen

Dim begclient, endclient
begclient = DMin("[client Id]", "tblclientcontactinfo")
endclient = DMax("[client Id]", "tblclientcontactinfo")
txtBegClient = begclient
txtEndClient = endclient
BegClientID = txtBegClient.Value
EndClientID = txtEndClient.Value

txtUpload.Enabled = False
txtBegClient.Enabled = False
txtEndClient.Enabled = False

Exit Sub

Err_formopen:
MsgBox Err.Description

End Sub

Private Sub txtBegClient_AfterUpdate()
BegClientID = txtBegClient.Value

End Sub

Private Sub txtEndClient_AfterUpdate()
EndClientID = txtEndClient.Value

End Sub

Private Sub txtUpload_BeforeUpdate(Cancel As Integer)

End Sub

any help would be appreciated.
Click to expand...
 
K

Ken Snell [MVP]

Regarding the "schema.ini" error....that is referring to your export
specification's details. Access is telling you that the spec is expecting a
date, but your query isn't providing a valid date in that field. Check that
your query actually matches the specification's fields by type and sequence.

Regarding the other error, I can only surmise that Access is unable to
resolve the UNC path that you're providing. Or that you have the text file
open when you're trying to export to it. Tell us more info, please.
--

Ken Snell
<MS ACCESS MVP>


purpleme3 said:
HELP!!!!!

I have been on this site for a while looking for an answer. Some of the
discussions get close but....

I am working on a db problem. I had nothing to do with the design of this
export form and visual basic. In fact, I know very little about visual
basic. Here's one of the error messages after trying to export:The date
being exported does not match the format described in the schema.ini file.
What the heck is this file????

Another form I try to export this error message comes up:
The Microsoft Jet database engine could not find the object 'form888.txt.'
Make sure the object exists and that you spell its name and the path name
correctly. Now this one, I have checked. In know the path is right and I
know the name is right. Can anyone help me? I am so frustrated right
now!!!
The whole point of this was to make exporting easy but it has been a big
pain!!!!!!

Here's the vb code:

Option Compare Database
Public EDMISfile As String
Public ExportSpec As String



Private Sub cmdPreview_Click()
On Error GoTo Err_cmdpreview
DoCmd.OpenQuery EDMISfile, acViewNormal
Exit Sub
Err_cmdpreview:
MsgBox Err_description

End Sub

Private Sub cmdUpload_Click()

On Error GoTo Err_Upload_Click
DoCmd.TransferText acExportDelim, ExportSpec, EDMISfile, txtUpload
MsgBox txtUpload & " written."
DoCmd.Close (acForm), "frmedmisupload"
Exit Sub

Err_Upload_Click:
MsgBox Err.Description

End Sub

Private Sub comEDMIS_AfterUpdate()
On Error GoTo Err_EDMIS


Select Case comEDMIS.Value
Case "Form 641"
ExportSpec = "Form641_Export_Specification"
EDMISfile = "qryForm641"
txtUpload = "\\Server01\bdata\EDMIS\Form641.txt"
txtBegClient.Enabled = True
txtEndClient.Enabled = True

Case "Form 641A"
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "qryMakeTcounsel"
DoCmd.OpenQuery "qrycombine"
ExportSpec = "Form641A_Export_Specification"
EDMISfile = "qryForm641A"
txtUpload = "\\Server01\bdata\EDMIS\Form641A.txt"
txtBegClient.Enabled = True
txtEndClient.Enabled = True
DoCmd.SetWarnings (True)

Case "Form 888"
ExportSpec = "Form888_Export_Specification"
EDMISfile = "qryForm888"
txtUpload = "\\Server01\bdata\EDMIS\Form888.txt"
txtBegClient.Enabled = False
txtEndClient.Enabled = False


End Select
txtUpload.Enabled = False

Exit Sub

Err_EDMIS:
MsgBox Err.Description


End Sub

Private Sub Command6_Click()

End Sub

Private Sub Command9_Click()
MsgBox "Help Messages go here..."
End Sub

Private Sub Detail_Click()

End Sub

Private Sub Form_Load()
On Error GoTo Err_formopen

Dim begclient, endclient
begclient = DMin("[client Id]", "tblclientcontactinfo")
endclient = DMax("[client Id]", "tblclientcontactinfo")
txtBegClient = begclient
txtEndClient = endclient
BegClientID = txtBegClient.Value
EndClientID = txtEndClient.Value

txtUpload.Enabled = False
txtBegClient.Enabled = False
txtEndClient.Enabled = False

Exit Sub

Err_formopen:
MsgBox Err.Description

End Sub

Private Sub txtBegClient_AfterUpdate()
BegClientID = txtBegClient.Value

End Sub

Private Sub txtEndClient_AfterUpdate()
EndClientID = txtEndClient.Value

End Sub

Private Sub txtUpload_BeforeUpdate(Cancel As Integer)

End Sub

any help would be appreciated.
Click to expand...
 
Top