SaveAsText & LoadFromText

T

Tom Collins

Someone here pointed me to an undocumented tool called SaveAsText. Using
this, I was able to save every object as text. I was also able to load most
of them back up into a new database using LoadFromText.
However, I had some forms and several reports that would not load. So far I
can't see anything wrong with the text doing cursory glance.
The error I get is 2285 - Microsoft Access can't create the output file.
Not a whole lot of information to go on. Couldn't find anything doing a web
search or a search of Microsoft's site.

I was hoping one of you had some experience with this and could help me out.
I have posted one of them below.

Thanks
Tom Collins

Version =20
VersionRequired =20
Checksum =-824162889
Begin Report
LayoutForPrint = NotDefault
DefaultView =0
DateGrouping =1
GrpKeepTogether =1
PictureAlignment =2
DatasheetGridlinesBehavior =3
GridX =24
GridY =24
Width =10800
DatasheetFontHeight =10
ItemSuffix =16
Left =600
Top =324
Right =5136
Bottom =6204
DatasheetGridlinesColor =12632256
RecSrcDt = Begin
0x069f35a97384e240
End
RecordSource ="qryCaseManagementList10Day"
DatasheetFontName ="Arial"
PrtMip = Begin
0xd0020000d0020000d0020000d002000000000000302a0000b202000001000000 ,
0x010000006801000000000000a10700000100000001000000
End
PrtDevMode = Begin
0x4850204c617365724a65742034303030205365726965732050434c2036000000 ,
0x010418009c00b803031f00000100010000000000640001000700fcff02000100 ,
0x5802000000004c65747465720000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000001000000 ,
0x0000000000000000000000000000000000000000000000000000000094042e00 ,
0x4850204c617365724a65742034303030205365726965732050434c2036000000 ,
0x0000000000000400320035018603789c6550cd2e834114bd67a6ed508a052542 ,
0xd4ff4fa89f17b0c0a20f80da7721c8b9a5694204e992456decbc811d2b2cbc81 ,
0x97f00476fe7fe69bd248dcc53973ce9ddc3b674aa5ff6520ebb882a72d5c8adb ,
0x05445c3c602242fd120e83b7d041540cd8808a037b61ab362ddbb360cee81874 ,
0x0f3a84cab92dcf8013e008741c3a073f611459f1b48ca4300fae21522b35a535 ,
0xb5ea95d67a91dc475adc51b4bc78081e408fc19370711229e1149805a77ddb3f ,
0x5a110bbc81076123f449f8213bafc277611ff459f44df829da01a6c182612734 ,
0x03ed824da1206c81b6415b51ee07ef8c9d4746e80c07a037d65d875fe80ed813 ,
0xf05122bcb71e13106be4a7aad9df93b76375fbe2af1dafdb6775db0f7d9176b1 ,
0x0bc81bbbe881a7b6b814a2e67c544d824d60b38f1943947213ce27f6dbbf01db ,
0x5e4a180000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000000000000000000000000000 ,
0x0000000000000000000000000000000000000000
End
PrtDevNames = Begin
0x08002600440001004850204c617365724a657420343030302053657269657320 ,
0x50434c2036004850204c617365724a6574203430303020536572696573205043 ,
0x4c2036004c5054313a00
End
Begin
Begin Label
BackStyle =0
TextFontFamily =2
FontName ="Arial"
End
Begin TextBox
OldBorderStyle =0
TextFontFamily =2
FontName ="Arial"
End
Begin BreakLevel
ControlSource ="Case"
End
Begin FormHeader
KeepTogether = NotDefault
Visible = NotDefault
Height =0
Name ="ReportHeader"
End
Begin PageHeader
Height =1815
Name ="PageHeader"
Begin
Begin Label
TextFontFamily =18
Left =30
Top =375
Width =3390
Height =285
FontSize =10
Name ="Label15"
Caption ="10 Day Listing"
FontName ="Times New Roman"
End
Begin Label
TextFontFamily =18
Width =3420
Height =345
FontSize =12
FontWeight =700
Name ="Label17"
Caption ="Cobb Mediation Program"
FontName ="Times New Roman"
End
Begin TextBox
TextAlign =1
TextFontFamily =18
Left =1680
Top =705
Width =2775
Height =255
FontSize =10
Name ="Text23"
ControlSource
="=[Forms]![frmCaseManagement]![txtStartDate]"
Format ="dddd mmm dd\", \"yyyy"
FontName ="Times New Roman"
Begin
Begin Label
TextFontFamily =18
Left =30
Top =705
Width =1590
Height =285
FontSize =10
Name ="Label24"
Caption ="Date on or Before:"
FontName ="Times New Roman"
End
End
End
Begin Label
BackStyle =1
OldBorderStyle =1
TextFontFamily =18
Left =30
Top =1170
Width =1230
Height =570
FontSize =10
BackColor =12632256
Name ="Label9"
Caption ="\015\012Case Number"
FontName ="Times New Roman"
End
Begin Line
BorderWidth =2
Top =1785
Width =10710
Name ="Line8"
End
Begin Label
BackStyle =1
OldBorderStyle =1
TextFontFamily =18
Left =1260
Top =1170
Width =3165
Height =570
FontSize =10
BackColor =12632256
Name ="Label10"
Caption ="\015\012 Case Title"
FontName ="Times New Roman"
End
Begin Label
BackStyle =1
OldBorderStyle =1
TextFontFamily =18
Left =4425
Top =1170
Width =1230
Height =570
FontSize =10
BackColor =12632256
Name ="Label11"
Caption ="Referred Date\015\012Coordinator"
FontName ="Times New Roman"
End
Begin Label
BackStyle =1
OldBorderStyle =1
TextFontFamily =18
Left =5655
Top =1170
Width =4995
Height =570
FontSize =10
BackColor =12632256
Name ="Label12"
Caption ="\015\01210-Day Notes"
FontName ="Times New Roman"
End
End
End
Begin Section
KeepTogether = NotDefault
CanGrow = NotDefault
Height =690
Name ="Detail"
Begin
Begin TextBox
TextFontFamily =18
Left =60
Top =30
Width =1185
Height =270
FontSize =10
Name ="Text0"
ControlSource ="Case"
FontName ="Times New Roman"
End
Begin TextBox
TextFontFamily =18
Left =1290
Top =30
Width =3135
Height =270
FontSize =10
TabIndex =1
Name ="Text2"
ControlSource ="casCaseTitleA"
FontName ="Times New Roman"
End
Begin TextBox
TextFontFamily =18
Left =1290
Top =330
Width =3135
Height =270
FontSize =10
TabIndex =2
Name ="Text3"
ControlSource ="casCaseTitle_B"
FontName ="Times New Roman"
End
Begin TextBox
TextAlign =1
TextFontFamily =18
Left =4455
Top =30
Width =1185
Height =270
FontSize =10
TabIndex =3
Name ="Text4"
ControlSource ="casReferredDate"
Format ="mm/dd/yyyy"
FontName ="Times New Roman"
End
Begin TextBox
TextAlign =1
TextFontFamily =18
Left =4455
Top =330
Width =1185
Height =270
FontSize =10
TabIndex =4
Name ="Text5"
ControlSource ="casCordinatorLinkccoInitials"
FontName ="Times New Roman"
End
Begin TextBox
CanGrow = NotDefault
TextFontFamily =18
Left =5685
Top =30
Width =5010
Height =570
FontSize =10
TabIndex =5
Name ="Text6"
ControlSource ="casNotesTenDay"
FontName ="Times New Roman"
End
Begin Line
Left =45
Top =645
Width =10710
Name ="Line7"
End
End
End
Begin PageFooter
Visible = NotDefault
Height =0
Name ="PageFooter"
End
Begin FormFooter
KeepTogether = NotDefault
Height =375
Name ="ReportFooter"
Begin
Begin TextBox
TextAlign =1
TextFontFamily =34
Left =1260
Top =105
Width =915
Height =225
FontWeight =700
Name ="Text13"
ControlSource ="=Count([Case])"
Begin
Begin Label
TextFontFamily =34
Left =90
Top =105
Width =1080
Height =225
FontWeight =700
Name ="Label14"
Caption ="Total Cases"
End
End
End
Begin Line
BorderWidth =2
Top =30
Width =10710
Name ="Line15"
End
End
End
End
End
 
D

Douglas J. Steele

What does the code look like that's trying to load this file?

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)



Tom Collins said:
Someone here pointed me to an undocumented tool called SaveAsText. Using
this, I was able to save every object as text. I was also able to load
most
of them back up into a new database using LoadFromText.
However, I had some forms and several reports that would not load. So far
I
can't see anything wrong with the text doing cursory glance.
The error I get is 2285 - Microsoft Access can't create the output file.
Not a whole lot of information to go on. Couldn't find anything doing a
web
search or a search of Microsoft's site.

I was hoping one of you had some experience with this and could help me
out.
I have posted one of them below.

Thanks
Tom Collins

Version =20
VersionRequired =20
Checksum =-824162889
Begin Report
LayoutForPrint = NotDefault
DefaultView =0
DateGrouping =1
GrpKeepTogether =1
PictureAlignment =2
DatasheetGridlinesBehavior =3
GridX =24
GridY =24
Width =10800
DatasheetFontHeight =10
ItemSuffix =16
Left =600
Top =324
Right =5136
Bottom =6204
DatasheetGridlinesColor =12632256
RecSrcDt = Begin
0x069f35a97384e240
End
RecordSource ="qryCaseManagementList10Day"
DatasheetFontName ="Arial"
PrtMip = Begin
0xd0020000d0020000d0020000d002000000000000302a0000b202000001000000
,
0x010000006801000000000000a10700000100000001000000
End
PrtDevMode = Begin
0x4850204c617365724a65742034303030205365726965732050434c2036000000
,
0x010418009c00b803031f00000100010000000000640001000700fcff02000100
,
0x5802000000004c65747465720000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000001000000
,
0x0000000000000000000000000000000000000000000000000000000094042e00
,
0x4850204c617365724a65742034303030205365726965732050434c2036000000
,
0x0000000000000400320035018603789c6550cd2e834114bd67a6ed508a052542
,
0xd4ff4fa89f17b0c0a20f80da7721c8b9a5694204e992456decbc811d2b2cbc81
,
0x97f00476fe7fe69bd248dcc53973ce9ddc3b674aa5ff6520ebb882a72d5c8adb
,
0x05445c3c602242fd120e83b7d041540cd8808a037b61ab362ddbb360cee81874
,
0x0f3a84cab92dcf8013e008741c3a073f611459f1b48ca4300fae21522b35a535
,
0xb5ea95d67a91dc475adc51b4bc78081e408fc19370711229e1149805a77ddb3f
,
0x5a110bbc81076123f449f8213bafc277611ff459f44df829da01a6c182612734
,
0x03ed824da1206c81b6415b51ee07ef8c9d4746e80c07a037d65d875fe80ed813
,
0xf05122bcb71e13106be4a7aad9df93b76375fbe2af1dafdb6775db0f7d9176b1
,
0x0bc81bbbe881a7b6b814a2e67c544d824d60b38f1943947213ce27f6dbbf01db
,
0x5e4a180000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000
End
PrtDevNames = Begin
0x08002600440001004850204c617365724a657420343030302053657269657320
,
0x50434c2036004850204c617365724a6574203430303020536572696573205043
,
0x4c2036004c5054313a00
End
Begin
Begin Label
BackStyle =0
TextFontFamily =2
FontName ="Arial"
End
Begin TextBox
OldBorderStyle =0
TextFontFamily =2
FontName ="Arial"
End
Begin BreakLevel
ControlSource ="Case"
End
Begin FormHeader
KeepTogether = NotDefault
Visible = NotDefault
Height =0
Name ="ReportHeader"
End
Begin PageHeader
Height =1815
Name ="PageHeader"
Begin
Begin Label
TextFontFamily =18
Left =30
Top =375
Width =3390
Height =285
FontSize =10
Name ="Label15"
Caption ="10 Day Listing"
FontName ="Times New Roman"
End
Begin Label
TextFontFamily =18
Width =3420
Height =345
FontSize =12
FontWeight =700
Name ="Label17"
Caption ="Cobb Mediation Program"
FontName ="Times New Roman"
End
Begin TextBox
TextAlign =1
TextFontFamily =18
Left =1680
Top =705
Width =2775
Height =255
FontSize =10
Name ="Text23"
ControlSource
="=[Forms]![frmCaseManagement]![txtStartDate]"
Format ="dddd mmm dd\", \"yyyy"
FontName ="Times New Roman"
Begin
Begin Label
TextFontFamily =18
Left =30
Top =705
Width =1590
Height =285
FontSize =10
Name ="Label24"
Caption ="Date on or Before:"
FontName ="Times New Roman"
End
End
End
Begin Label
BackStyle =1
OldBorderStyle =1
TextFontFamily =18
Left =30
Top =1170
Width =1230
Height =570
FontSize =10
BackColor =12632256
Name ="Label9"
Caption ="\015\012Case Number"
FontName ="Times New Roman"
End
Begin Line
BorderWidth =2
Top =1785
Width =10710
Name ="Line8"
End
Begin Label
BackStyle =1
OldBorderStyle =1
TextFontFamily =18
Left =1260
Top =1170
Width =3165
Height =570
FontSize =10
BackColor =12632256
Name ="Label10"
Caption ="\015\012 Case Title"
FontName ="Times New Roman"
End
Begin Label
BackStyle =1
OldBorderStyle =1
TextFontFamily =18
Left =4425
Top =1170
Width =1230
Height =570
FontSize =10
BackColor =12632256
Name ="Label11"
Caption ="Referred Date\015\012Coordinator"
FontName ="Times New Roman"
End
Begin Label
BackStyle =1
OldBorderStyle =1
TextFontFamily =18
Left =5655
Top =1170
Width =4995
Height =570
FontSize =10
BackColor =12632256
Name ="Label12"
Caption ="\015\01210-Day Notes"
FontName ="Times New Roman"
End
End
End
Begin Section
KeepTogether = NotDefault
CanGrow = NotDefault
Height =690
Name ="Detail"
Begin
Begin TextBox
TextFontFamily =18
Left =60
Top =30
Width =1185
Height =270
FontSize =10
Name ="Text0"
ControlSource ="Case"
FontName ="Times New Roman"
End
Begin TextBox
TextFontFamily =18
Left =1290
Top =30
Width =3135
Height =270
FontSize =10
TabIndex =1
Name ="Text2"
ControlSource ="casCaseTitleA"
FontName ="Times New Roman"
End
Begin TextBox
TextFontFamily =18
Left =1290
Top =330
Width =3135
Height =270
FontSize =10
TabIndex =2
Name ="Text3"
ControlSource ="casCaseTitle_B"
FontName ="Times New Roman"
End
Begin TextBox
TextAlign =1
TextFontFamily =18
Left =4455
Top =30
Width =1185
Height =270
FontSize =10
TabIndex =3
Name ="Text4"
ControlSource ="casReferredDate"
Format ="mm/dd/yyyy"
FontName ="Times New Roman"
End
Begin TextBox
TextAlign =1
TextFontFamily =18
Left =4455
Top =330
Width =1185
Height =270
FontSize =10
TabIndex =4
Name ="Text5"
ControlSource ="casCordinatorLinkccoInitials"
FontName ="Times New Roman"
End
Begin TextBox
CanGrow = NotDefault
TextFontFamily =18
Left =5685
Top =30
Width =5010
Height =570
FontSize =10
TabIndex =5
Name ="Text6"
ControlSource ="casNotesTenDay"
FontName ="Times New Roman"
End
Begin Line
Left =45
Top =645
Width =10710
Name ="Line7"
End
End
End
Begin PageFooter
Visible = NotDefault
Height =0
Name ="PageFooter"
End
Begin FormFooter
KeepTogether = NotDefault
Height =375
Name ="ReportFooter"
Begin
Begin TextBox
TextAlign =1
TextFontFamily =34
Left =1260
Top =105
Width =915
Height =225
FontWeight =700
Name ="Text13"
ControlSource ="=Count([Case])"
Begin
Begin Label
TextFontFamily =34
Left =90
Top =105
Width =1080
Height =225
FontWeight =700
Name ="Label14"
Caption ="Total Cases"
End
End
End
Begin Line
BorderWidth =2
Top =30
Width =10710
Name ="Line15"
End
End
End
End
End
Click to expand...
 
T

Tom Collins

Here's the code that reloads the objects. There are a total of 230 objects
to bo imported. All but 23 of them were sucessful. Any ideas?

Public Sub ImportDatabaseObjects()
On Error GoTo Err_ImportDatabaseObjects

Dim Filename As String
Dim ObjName As String
Dim ObjType As String
Dim acObjType As Integer
Dim Index As Integer
Dim ImportLocation As String

ImportLocation = "F:\ADR\Export\2002\"

Filename = Dir(ImportLocation)
Do
Index = InStr(Filename, "_")
If Index >= 0 Then
ObjType = Left(Filename, Index - 1)
ObjName = Mid(Filename, Index + 1)
ObjName = Left(ObjName, Len(ObjName) - 4)
Filename = ImportLocation & Filename
If Left(ObjName, 3) <> "~sq" Then
Select Case ObjType
Case "Form"
acObjType = acForm
Case "Report"
acObjType = acReport
Case "Macro"
acObjType = acMacro
Case "Module"
acObjType = acModule
Case "Query"
acObjType = acQuery
Case Else
Stop
End Select
Application.LoadFromText acObjType, ObjName, Filename
End If
End If
Filename = Dir
Loop Until Filename = ""
Exit_ImportDatabaseObjects:
Exit Sub
Err_ImportDatabaseObjects:
Debug.Print ObjName & "." & ObjType & "." & Err.Number & "." &
Err.Description
Resume Next
End Sub

Douglas J. Steele said:
What does the code look like that's trying to load this file?

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)



Tom Collins said:
Someone here pointed me to an undocumented tool called SaveAsText. Using
this, I was able to save every object as text. I was also able to load
most
of them back up into a new database using LoadFromText.
However, I had some forms and several reports that would not load. So far
I
can't see anything wrong with the text doing cursory glance.
The error I get is 2285 - Microsoft Access can't create the output file.
Not a whole lot of information to go on. Couldn't find anything doing a
web
search or a search of Microsoft's site.

I was hoping one of you had some experience with this and could help me
out.
I have posted one of them below.

Thanks
Tom Collins

Version =20
VersionRequired =20
Checksum =-824162889
Begin Report
LayoutForPrint = NotDefault
DefaultView =0
DateGrouping =1
GrpKeepTogether =1
PictureAlignment =2
DatasheetGridlinesBehavior =3
GridX =24
GridY =24
Width =10800
DatasheetFontHeight =10
ItemSuffix =16
Left =600
Top =324
Right =5136
Bottom =6204
DatasheetGridlinesColor =12632256
RecSrcDt = Begin
0x069f35a97384e240
End
RecordSource ="qryCaseManagementList10Day"
DatasheetFontName ="Arial"
PrtMip = Begin
0xd0020000d0020000d0020000d002000000000000302a0000b202000001000000
,
0x010000006801000000000000a10700000100000001000000
End
PrtDevMode = Begin
0x4850204c617365724a65742034303030205365726965732050434c2036000000
,
0x010418009c00b803031f00000100010000000000640001000700fcff02000100
,
0x5802000000004c65747465720000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000001000000
,
0x0000000000000000000000000000000000000000000000000000000094042e00
,
0x4850204c617365724a65742034303030205365726965732050434c2036000000
,
0x0000000000000400320035018603789c6550cd2e834114bd67a6ed508a052542
,
0xd4ff4fa89f17b0c0a20f80da7721c8b9a5694204e992456decbc811d2b2cbc81
,
0x97f00476fe7fe69bd248dcc53973ce9ddc3b674aa5ff6520ebb882a72d5c8adb
,
0x05445c3c602242fd120e83b7d041540cd8808a037b61ab362ddbb360cee81874
,
0x0f3a84cab92dcf8013e008741c3a073f611459f1b48ca4300fae21522b35a535
,
0xb5ea95d67a91dc475adc51b4bc78081e408fc19370711229e1149805a77ddb3f
,
0x5a110bbc81076123f449f8213bafc277611ff459f44df829da01a6c182612734
,
0x03ed824da1206c81b6415b51ee07ef8c9d4746e80c07a037d65d875fe80ed813
,
0xf05122bcb71e13106be4a7aad9df93b76375fbe2af1dafdb6775db0f7d9176b1
,
0x0bc81bbbe881a7b6b814a2e67c544d824d60b38f1943947213ce27f6dbbf01db
,
0x5e4a180000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000000000000000000000000000
,
0x0000000000000000000000000000000000000000
End
PrtDevNames = Begin
0x08002600440001004850204c617365724a657420343030302053657269657320
,
0x50434c2036004850204c617365724a6574203430303020536572696573205043
,
0x4c2036004c5054313a00
End
Begin
Begin Label
BackStyle =0
TextFontFamily =2
FontName ="Arial"
End
Begin TextBox
OldBorderStyle =0
TextFontFamily =2
FontName ="Arial"
End
Begin BreakLevel
ControlSource ="Case"
End
Begin FormHeader
KeepTogether = NotDefault
Visible = NotDefault
Height =0
Name ="ReportHeader"
End
Begin PageHeader
Height =1815
Name ="PageHeader"
Begin
Begin Label
TextFontFamily =18
Left =30
Top =375
Width =3390
Height =285
FontSize =10
Name ="Label15"
Caption ="10 Day Listing"
FontName ="Times New Roman"
End
Begin Label
TextFontFamily =18
Width =3420
Height =345
FontSize =12
FontWeight =700
Name ="Label17"
Caption ="Cobb Mediation Program"
FontName ="Times New Roman"
End
Begin TextBox
TextAlign =1
TextFontFamily =18
Left =1680
Top =705
Width =2775
Height =255
FontSize =10
Name ="Text23"
ControlSource
="=[Forms]![frmCaseManagement]![txtStartDate]"
Format ="dddd mmm dd\", \"yyyy"
FontName ="Times New Roman"
Begin
Begin Label
TextFontFamily =18
Left =30
Top =705
Width =1590
Height =285
FontSize =10
Name ="Label24"
Caption ="Date on or Before:"
FontName ="Times New Roman"
End
End
End
Begin Label
BackStyle =1
OldBorderStyle =1
TextFontFamily =18
Left =30
Top =1170
Width =1230
Height =570
FontSize =10
BackColor =12632256
Name ="Label9"
Caption ="\015\012Case Number"
FontName ="Times New Roman"
End
Begin Line
BorderWidth =2
Top =1785
Width =10710
Name ="Line8"
End
Begin Label
BackStyle =1
OldBorderStyle =1
TextFontFamily =18
Left =1260
Top =1170
Width =3165
Height =570
FontSize =10
BackColor =12632256
Name ="Label10"
Caption ="\015\012 Case Title"
FontName ="Times New Roman"
End
Begin Label
BackStyle =1
OldBorderStyle =1
TextFontFamily =18
Left =4425
Top =1170
Width =1230
Height =570
FontSize =10
BackColor =12632256
Name ="Label11"
Caption ="Referred Date\015\012Coordinator"
FontName ="Times New Roman"
End
Begin Label
BackStyle =1
OldBorderStyle =1
TextFontFamily =18
Left =5655
Top =1170
Width =4995
Height =570
FontSize =10
BackColor =12632256
Name ="Label12"
Caption ="\015\01210-Day Notes"
FontName ="Times New Roman"
End
End
End
Begin Section
KeepTogether = NotDefault
CanGrow = NotDefault
Height =690
Name ="Detail"
Begin
Begin TextBox
TextFontFamily =18
Left =60
Top =30
Width =1185
Height =270
FontSize =10
Name ="Text0"
ControlSource ="Case"
FontName ="Times New Roman"
End
Begin TextBox
TextFontFamily =18
Left =1290
Top =30
Width =3135
Height =270
FontSize =10
TabIndex =1
Name ="Text2"
ControlSource ="casCaseTitleA"
FontName ="Times New Roman"
End
Begin TextBox
TextFontFamily =18
Left =1290
Top =330
Width =3135
Height =270
FontSize =10
TabIndex =2
Name ="Text3"
ControlSource ="casCaseTitle_B"
FontName ="Times New Roman"
End
Begin TextBox
TextAlign =1
TextFontFamily =18
Left =4455
Top =30
Width =1185
Height =270
FontSize =10
TabIndex =3
Name ="Text4"
ControlSource ="casReferredDate"
Format ="mm/dd/yyyy"
FontName ="Times New Roman"
End
Begin TextBox
TextAlign =1
TextFontFamily =18
Left =4455
Top =330
Width =1185
Height =270
FontSize =10
TabIndex =4
Name ="Text5"
ControlSource ="casCordinatorLinkccoInitials"
FontName ="Times New Roman"
End
Begin TextBox
CanGrow = NotDefault
TextFontFamily =18
Left =5685
Top =30
Width =5010
Height =570
FontSize =10
TabIndex =5
Name ="Text6"
ControlSource ="casNotesTenDay"
FontName ="Times New Roman"
End
Begin Line
Left =45
Top =645
Width =10710
Name ="Line7"
End
End
End
Begin PageFooter
Visible = NotDefault
Height =0
Name ="PageFooter"
End
Begin FormFooter
KeepTogether = NotDefault
Height =375
Name ="ReportFooter"
Begin
Begin TextBox
TextAlign =1
TextFontFamily =34
Left =1260
Top =105
Width =915
Height =225
FontWeight =700
Name ="Text13"
ControlSource ="=Count([Case])"
Begin
Begin Label
TextFontFamily =34
Left =90
Top =105
Width =1080
Height =225
FontWeight =700
Name ="Label14"
Caption ="Total Cases"
End
End
End
Begin Line
BorderWidth =2
Top =30
Width =10710
Name ="Line15"
End
End
End
End
End
Click to expand...
Click to expand...
 
D

Douglas J. Steele

Any consistency about the 23 that weren't imported? Are they all of the same
type, for instance, or are there similar characters in their names?
 
T

Tom Collins

No pattern I've been able to see yet. The names are normal enough. The text
files look normal enough.

I'm wondering in the objects may have been corrupted enough to allow
exporting but not importing. Seems unlikely since the only binary output has
to do with printers and margins.
 
T

Tom Collins

Using the decompile and then using the SaveAsText worked. I now have a
database I'm confident that is corruption free.

Thanks.


Douglas J. Steele said:
Go to the horse's mouth: MichKa's explanation at
http://www.trigeminal.com/usenet/usenet004.asp

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)



Tom Collins said:
I don't know much about decompiling. Can you explain more please?
Thanks.


Douglas J. Steele said:
Possible. Why not check whether a decompile does anything?

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)



"Tom Collins" <tom.collins[at]cobbcounty.org> wrote in message
No pattern I've been able to see yet. The names are normal enough. The
text
files look normal enough.

I'm wondering in the objects may have been corrupted enough to allow
exporting but not importing. Seems unlikely since the only binary
output
has
to do with printers and margins.


message
Any consistency about the 23 that weren't imported? Are they all of
the
same
type, for instance, or are there similar characters in their names?
Click to expand...
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

commandbutton does not answer 0
How to associate a second label to an Option group option? 6
creating frame and option buttons programmatically 2
getting text out of TextBox into code 0
Error message "An error has occured in the script on this page" 1
Adding a Large Number of Shapes is Very Slow in Word 2002 9
Why doesn't this work in Excel 2007? Is this a bug? 2
Using Detail.Print 6

Top