STRING SUMMARY FOR Visdata.vbp

STRING PROCESSING SUMMARY FOR VB PROJECT Visdata.vbp

Made on Tuesday, Apr 8, 2003 at 9:43 AM

http://www.resourcemining.com

(No Resource File) had no strings moved to the resource file.

(No Resource File) has no strings strings remaining in source code.

(No Master Res) had no strings moved to the resource file.

(No Master Res) has no strings strings remaining in source code.

ABOUTBOX.FRM had 11 strings moved to the resource file.
FORMCAPTION = "About Visual Data Manager"
LABEL0 = "Microsoft Visual Basic"
Label1 = "Visual Data Manager"
Label2 = "Version 6.0"
LABEL3 = "Copyright © Microsoft Corp. 1996-98"
Me.Caption = "About Visual Data Manager"
cmdOK.Caption = "&OK"
lblLabels(3).Caption = "Copyright © Microsoft Corp. 1996-98"
lblLabels(2).Caption = "Version 6.0"
lblLabels(1).Caption = "Visual Data Manager"
lblLabels(0).Caption = "Microsoft Visual Basic"

ABOUTBOX.FRM has 1 string strings remaining in source code.
BUTTON1 = "&OK"

ADDFIELD.FRM had 24 strings moved to the resource file.
cboFieldType.AddItem "Boolean"
cboFieldType.AddItem "Text"
cboFieldType.AddItem "Binary"
cboFieldType.AddItem "Memo"
MsgBox "'" fld.Name & "'" & MSG1
MsgBox "'" & fld.Name & "'" MSG1
FORMCAPTION = "Add Field"
BUTTON2 = "&Close"
MSG1 = " Already exists!"
Me.Caption = "Add Field"
optVariable.Caption = "VariableField"
optFixedField.Caption = "FixedField"
chkAutoInc.Caption = "AutoIncrField"
chkAllowZeroLen.Caption = "AllowZeroLength"
chkRequired.Caption = "Required"
cmdOK.Caption = "&OK"
cmdClose.Caption = "&Close"
lblLabels(0).Caption = " Name: "
lblLabels(2).Caption = " Type: "
lblLabels(3).Caption = " Size: "
lblLabels(4).Caption = "OrdinalPosition: "
lblLabels(5).Caption = "ValidationText: "
lblLabels(6).Caption = "ValidationRule: "
lblLabels(7).Caption = "DefaultValue: "

ADDFIELD.FRM has 10 strings strings remaining in source code.
cboFieldType.AddItem "Byte"
cboFieldType.AddItem "Integer"
cboFieldType.AddItem "Long"
cboFieldType.AddItem "Currency"
cboFieldType.AddItem "Single"
cboFieldType.AddItem "Double"
cboFieldType.AddItem "Date/Time"
txtFieldSize.Text = "50"
txtFieldSize.Text = "50"
BUTTON1 = "&OK"

Addindex.frm had 16 strings moved to the resource file.
Me.Caption = Me.Caption & " to " frmTblStruct.txtTableName
Me.Caption = Me.Caption & " to " StripConnect(gnodDBNode2.Text)
FORMCAPTION = "Add Index"
BUTTON2 = "&Close"
LABEL0 = "Name:"
Label1 = "Indexed Fields:"
Label2 = "Available Fields:"
Me.Caption = "Add Index"
chkIgnoreNulls.Caption = "IgnoreNulls"
chkPrimary.Caption = "Primary"
chkUnique.Caption = "Unique"
cmdOK.Caption = "&OK"
cmdClose.Caption = "&Close"
lblLabels(2).Caption = "Available Fields: "
lblLabels(1).Caption = "Indexed Fields:"
lblLabels(0).Caption = "Name: "

Addindex.frm has 2 strings strings remaining in source code.
txtFields.Text = sTmp & "" lstFields
BUTTON1 = "&OK"

ATTACH.FRM had 9 strings moved to the resource file.
MsgBar "Attaching " .txtAttachName.Text, True
FORMCAPTION = "Attachments"
BUTTON1 = "&New"
BUTTON2 = "&ReAttach"
BUTTON3 = "&Close"
Me.Caption = "Attachments"
cmdNew.Caption = "&New"
cmdReAttach.Caption = "&ReAttach"
cmdClose.Caption = "&Close"

ATTACH.FRM has 4 strings strings remaining in source code.
lstTables.AddItem tdf.Name & String(32 - Len(tdf.Name), " "& vbTab & tdf.SourceTableName & "=>" & tdf.Connect
lstTables.AddItem tdf.Name & String(32 - Len(tdf.Name), " ") & vbTab & tdf.SourceTableName & "=&lt" tdf.Connect
lstTables.AddItem .txtAttachName.Text & String(32 - Len(.txtAttachName.Text), " "& vbTab & .cboTableName.Text & "=>" & sConnect
lstTables.AddItem .txtAttachName.Text & String(32 - Len(.txtAttachName.Text), " ") & vbTab & .cboTableName.Text & "=&lt" sConnect

CPYSTRU.FRM had 24 strings moved to the resource file.
MsgBox (StripConnect(lstTables.List(i))) & ": " MSG3, vbInformation, Me.Caption
MsgBox (StripConnect(lstTables.List(i))) & ": " MSG4, vbInformation, Me.Caption
MsgBox (StripConnect(lstTables.List(i))) & ": " MSG3, vbInformation, Me.Caption
FORMCAPTION = "Copy Structure"
BUTTON2 = "&Close"
LABEL0 = "Tables:"
Label1 = "Target Database:"
Label2 = "Target Connect String:"
LABEL3 = "(Note: Export is Faster)"
CHKBOX1 = "Copy Indexes"
CHKBOX2 = "Copy Data"
MSG1 = "Copying Table(s)"
MSG2 = "Enter New Table Name:"
MSG3 = "Copy of Data was Unsuccessful!"
MSG4 = "Copy of Structure was Successful!"
Me.Caption = "Copy Structure"
chkCopyData.Caption = "Copy Data "
cmdClose.Caption = "&Close"
cmdOK.Caption = "&OK"
chkCopyIndexes.Caption = "Copy Indexes"
lblLabels(3).Caption = "(Note:Export is Faster)"
lblLabels(2).Caption = " Target Connect String: "
lblLabels(1).Caption = " Target Database: "
lblLabels(0).Caption = " Tables: "

CPYSTRU.FRM has 1 string strings remaining in source code.
BUTTON1 = "&OK"

Database.frm had 3 strings moved to the resource file.
Set nodX = tvDatabase.Nodes.Add("T" & sTBLName, tvwChild, _ sTBLName & ">AttachType", _ sTmp & " Table"ATTACHED_STR)
FORMCAPTION = "Database Window"
Me.Caption = "Database"

Database.frm has 39 strings strings remaining in source code.
Set nodX = tvDatabase.Nodes.Add(, , "&lt" PROPERTIES_STR, PROPERTIES_STR, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add(, , "T" tblObj.Name, tblObj.Name, ATTACHED_STR)
Set nodX = tvDatabase.Nodes.Add(, , "T" tblObj.Name, tblObj.Name, TABLE_STR)
Set nodX = tvDatabase.Nodes.Add("T" sTBLName, tvwChild, _ sTBLName & ">Fields", _ FIELDS_STR, FIELD_STR)
Set nodX = tvDatabase.Nodes.Add("T" & sTBLName, tvwChild, _ sTBLName & "&ltFields"_ FIELDS_STR, FIELD_STR)
Set nodX = tvDatabase.Nodes.Add("T" sTBLName, tvwChild, _ sTBLName & ">Indexes", _ INDEXES_STR, INDEX_STR)
Set nodX = tvDatabase.Nodes.Add("T" & sTBLName, tvwChild, _ sTBLName & "&ltIndexes"_ INDEXES_STR, INDEX_STR)
Set nodX = tvDatabase.Nodes.Add("T" sTBLName, tvwChild, _ sTBLName & ">" & PROPERTIES_STR, _ PROPERTIES_STR, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add("T" & sTBLName, tvwChild, _ sTBLName & "&lt" PROPERTIES_STR, _ PROPERTIES_STR, PROPERTY_STR)
sTmp = Left(sTmp, InStr(sTmp, ""- 1)
Set nodX = tvDatabase.Nodes.Add("T" sTBLName, tvwChild, _ sTBLName & ">AttachType", _ sTmp & " Table", ATTACHED_STR)
Set nodX = tvDatabase.Nodes.Add("T" & sTBLName, tvwChild, _ sTBLName & "&ltAttachType"_ sTmp & " Table", ATTACHED_STR)
Set nodX = tvDatabase.Nodes.Add(sQRYName, tvwChild, _ sQRYName & "&lt" PROPERTIES_STR, _ PROPERTIES_STR, PROPERTY_STR)
Me.Height = Val(GetRegistryString("DBWindowHeight""3870"))
Me.Height = Val(GetRegistryString("DBWindowHeight", "3870"
Me.Width = Val(GetRegistryString("DBWindowWidth""3835"))
Me.Width = Val(GetRegistryString("DBWindowWidth", "3835"
Me.Top = Val(GetRegistryString("DBWindowTop""0"))
Me.Top = Val(GetRegistryString("DBWindowTop", "0"
Me.Left = Val(GetRegistryString("DBWindowLeft""0"))
Me.Left = Val(GetRegistryString("DBWindowLeft", "0"
SaveSetting APP_CATEGORY, APPNAME, "DBWindowTop"Me.Top
SaveSetting APP_CATEGORY, APPNAME, "DBWindowLeft"Me.Left
SaveSetting APP_CATEGORY, APPNAME, "DBWindowWidth"Me.Width
SaveSetting APP_CATEGORY, APPNAME, "DBWindowHeight"Me.Height
Set nodX = tvDatabase.Nodes.Add(Node.Key, _ tvwChild, _ Node.Parent.Key & "&lt" FIELDS_STR & ">" & fldObj.Name, _ fldObj.Name, FIELD_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _ tvwChild, _ Node.Parent.Key & ">" & FIELDS_STR & "&lt" fldObj.Name, _ fldObj.Name, FIELD_STR)
If prpObj.Name <> "Value"hen
Set nodX = tvDatabase.Nodes.Add(Node.Key, _ tvwChild, _ Node.Parent.Key & Node.Key & "&lt" prpObj.Name, _ prpObj.Name & "=" & vTmp, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _ tvwChild, _ Node.Parent.Key & Node.Key & ">" & prpObj.Name, _ prpObj.Name & "=" vTmp, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _ tvwChild, _ Node.Parent.Key & "&lt" INDEXES_STR & ">" & idxObj.Name, _ idxObj.Name, INDEX_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _ tvwChild, _ Node.Parent.Key & ">" & INDEXES_STR & "&lt" idxObj.Name, _ idxObj.Name, INDEX_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _ tvwChild, _ Node.Parent.Key & Node.Key & "&lt" prpObj.Name, _ prpObj.Name & "=" & vTmp, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _ tvwChild, _ Node.Parent.Key & Node.Key & ">" & prpObj.Name, _ prpObj.Name & "=" vTmp, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _ tvwChild, _ Node.Key & "&lt" prpObj.Name, _ prpObj.Name & "=" & vTmp, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _ tvwChild, _ Node.Key & ">" & prpObj.Name, _ prpObj.Name & "=" vTmp, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _ tvwChild, _ Node.Parent.Key & "&lt" prpObj.Name, _ prpObj.Name & "=" & vTmp, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _ tvwChild, _ Node.Parent.Key & ">" & prpObj.Name, _ prpObj.Name & "=" vTmp, PROPERTY_STR)
GetPropertyValue = "N/A"

DATAFORM.FRM had 35 strings moved to the resource file.
lblFieldName(i).Caption = recTmp.Fields(i).Name & ":"
MsgBox "Error:" Err & " " & Error
MsgBox "Error:" & Err & " " Error
BUTTON1 = "&Cancel"
BUTTON2 = "&Update"
BUTTON3 = "&Delete"
BUTTON4 = "&Find"
BUTTON5 = "&Refresh"
BUTTON6 = "&Close"
BUTTON7 = "&Add"
Label1 = "Field Name:"
Label2 = "Value:"
MSG1 = "New Record"
MSG2 = "Select a Picture File to Load"
MSG3 = "Data error event hit Err:"
MSG4 = "Save New Record?"
MSG5 = "Commit Changes?"
MSG6 = "Commit Changes before Closing?"
MSG7 = "Delete Current Record?"
MSG8 = "Enter Seek Value:"
MSG9 = "Enter Search Expression:"
MSG10 = " Rows"
MSG11 = " Rows (Forward Only Recordset)"
MSG12 = " [Not Updatable]"
MSG13 = "Function not available for paramaterized query!"
Me.Caption = "Data Control"
cmdCancelAdd.Caption = "C&ancel"
cmdRefresh.Caption = "&Refresh"
cmdFind.Caption = "&Find"
cmdClose.Caption = "&Close"
cmdDelete.Caption = "&Delete"
cmdAdd.Caption = "&Add"
cmdUpdate.Caption = "&Update"
lblFieldHeader.Caption = "Field Name:"
lblFieldValue.Caption = " Value:"

DATAFORM.FRM has 8 strings strings remaining in source code.
SendKeys "{Tab}"
.Filter = "Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Metafiles (*.wmf)|*.wmf|All Files (*.*)|*.*"
datDataCtl.Recordset.Seek "="sFindStr
If datDataCtl.Tag = "OLE"hen
If datDataCtl.Tag = "OLE"hen
sCurrStat = "(BOF)/" mlNumRows
sCurrStat = "(EOF)/" mlNumRows
sCurrStat = lCurrRec & "/" mlNumRows

DATAGRID.FRM had 4 strings moved to the resource file.
MsgBox "Error:" Err & " " & Error$
MsgBox "Error:" & Err & " " Error$
MSG8 = "Delete Current Row?"
Me.Caption = "Data Grid"

DATAGRID.FRM has no strings strings remaining in source code.

DATATYPE.FRM had 19 strings moved to the resource file.
lstTypes.AddItem "Access MDB"
lstTypes.AddItem "Dbase IV"
lstTypes.AddItem "Dbase III"
lstTypes.AddItem "FoxPro 2.6"
lstTypes.AddItem "FoxPro 2.5"
lstTypes.AddItem "FoxPro 2.0"
lstTypes.AddItem "Paradox 4.X"
lstTypes.AddItem "Paradox 3.X"
lstTypes.AddItem "Btrieve"
lstTypes.AddItem "Excel 5.0"
lstTypes.AddItem "Excel 4.0"
lstTypes.AddItem "Excel 3.0"
lstTypes.AddItem "Text"
BUTTON2 = "&Cancel"
Label1 = "Data Source:"
Me.Caption = "Data Type"
cmdCancel.Caption = "&Cancel"
cmdOK.Caption = "&OK"
lblLabel1.Caption = " Data Source: "

DATATYPE.FRM has 4 strings strings remaining in source code.
If Tag <> "LOADED"hen
Tag = "LOADED"
lstTypes.AddItem "ODBC"
BUTTON1 = "&OK"

DBPwd.FRM had 7 strings moved to the resource file.
FORMCAPTION = "Password Required"
BUTTON2 = "&Cancel"
Label1 = "&Enter database password:"
Me.Caption = "Password"
cmdCancel.Caption = "&Cancel"
cmdOK.Caption = "&OK"
lblLabels(0).Caption = "Enter database password:"

DBPwd.FRM has 1 string strings remaining in source code.
BUTTON1 = "&OK"

DCPROP.FRM had 42 strings moved to the resource file.
FORMCAPTION = "Data Control Properties"
BUTTON1 = "&Refresh Data Control"
BUTTON2 = "&Cancel"
Label1 = "Database Properties"
Label2 = "Recordset Properties"
LABEL3 = "Data Control Properties"
LABEL4 = "Bound Binary Control Type:"
Me.Caption = "Data Control Properties"
optOLECtl.Caption = "OLE"
optPictureCtl.Caption = "PictureBox"
chkForwardOnly.Caption = "ForwardOnly"
chkFailOnError.Caption = "FailOnError"
chkSQLPassthrough.Caption = "SQLPassthru"
chkConsistent.Caption = "Consistent"
chkInconsistent.Caption = "Inconsistent"
chkAppendOnly.Caption = "AppendOnly"
chkReadOnly.Caption = "ReadOnly"
chkDenyRead.Caption = "DenyRead"
chkDenyWrite.Caption = "DenyWrite"
chkDBReadOnly.Caption = "ReadOnly"
chkExclusive.Caption = "Exclusive"
cmdCancel.Caption = "&Cancel"
cmdRefresh.Caption = "&Refresh Data Control"
optRSType(1).Caption = "1 - Dynaset"
optRSType(0).Caption = "0 - Table"
optRSType(2).Caption = "2 - Snapshot"
optEOFAction(2).Caption = "2 - AddNew"
optEOFAction(0).Caption = "0 - MoveLast"
optEOFAction(1).Caption = "1 - EOF"
optBOFAction(1).Caption = "1 - BOF"
optBOFAction(0).Caption = "0 - MoveFirst"
lblLabels(9).Caption = "Bound Binary Control Type: "
lblLabels(8).Caption = "Data Control Properties"
lblLabels(10).Caption = "Recordset Properties"
lblLabels(7).Caption = "Database Properties"
lblLabels(6).Caption = "Options: "
lblLabels(5).Caption = "RecordSource: "
lblLabels(4).Caption = "Connect: "
lblLabels(3).Caption = "Name: "
lblLabels(2).Caption = "RecordsetType: "
lblLabels(1).Caption = "EOFAction: "
lblLabels(0).Caption = "BOFAction: "

DCPROP.FRM has 3 strings strings remaining in source code.
gDataCtlObj.Tag = IIf(optOLECtl.Value, "OLE""PIC")
gDataCtlObj.Tag = IIf(optOLECtl.Value, "OLE", "PIC"
optOLECtl.Value = IIf(gDataCtlObj.Tag = "OLE"True, False)

DFD.FRM had 44 strings moved to the resource file.
.Properties!DataSource = "Data1"
.Properties!DataSource = "Data1"
.Properties!DataSource = "Data1"
sCode = sCode & vbCrLf & "End Sub"
sCode = sCode & vbCrLf & "End Sub"
sCode = sCode & vbCrLf & "End Sub"
sCode = sCode & vbCrLf & " Data1.Recordset.Bookmark = Data1.Recordset.LastModified"
sCode = sCode & vbCrLf & "End Sub"
sCode = sCode & vbCrLf & " Unload Me"
sCode = sCode & vbCrLf & "End Sub"
sCode = sCode & vbCrLf & " MsgBox ""Data error event hit err:"" & Error$(DataErr)"
sCode = sCode & vbCrLf & " Response = 0 'throw away the error"
sCode = sCode & vbCrLf & "End Sub"
sCode = sCode & vbCrLf & " Screen.MousePointer = vbDefault"
sCode = sCode & vbCrLf & " On Error Resume Next"
sCode = sCode & vbCrLf & " Data1.Caption = ""Record: "" & (Data1.Recordset.AbsolutePosition + 1)"
sCode = sCode & vbCrLf & "End Sub"
sCode = sCode & vbCrLf & " Select Case Action"
sCode = sCode & vbCrLf & " End Select"
sCode = sCode & vbCrLf & " Screen.MousePointer = vbHourglass"
sCode = sCode & vbCrLf & "End Sub"
sCode = sCode & vbCrLf & "End Sub" vbCrLf
FORMCAPTION = "Data Form Designer"
BUTTON1 = "&Build the Form"
BUTTON2 = "&Close"
Label1 = "Form Name (w/o Extension):"
LABEL4 = "Available Fields:"
LABEL5 = "Included Fields:"
MSG1 = "Form Name cannot be blank!"
MSG2 = "You must enter a RecordSource!"
MSG3 = "You must include some Columns!"
CTLNAME1 = "&Add"
CTLNAME2 = "&Delete"
CTLNAME3 = "&Refresh"
CTLNAME4 = "&Update"
CTLNAME5 = "&Close"
Me.Caption = "Data Form Designer"
cmdBuildForm.Caption = "&Build the Form"
cmdClose.Caption = "&Close"
lblLabels(2).Caption = "Select a Table/QueryDef from the list or enter a SQL statement."
lblLabels(4).Caption = "Included Fields: "
lblLabels(1).Caption = "RecordSource: "
lblLabels(3).Caption = "Available Fields: "
lblLabels(0).Caption = "Form Name (w/o Extension): "

DFD.FRM has 66 strings strings remaining in source code.
.Properties!Name = "frm" txtFormName.Text
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("Label"Nothing)
.Properties!Caption = sTmp & ":"
.Properties!Name = "lblLabels"
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("CheckBox"Nothing)
.Properties!Name = "chkFields"
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("OLE"Nothing)
.Properties!Name = "oleFields"
If .Properties("Index"= -1 Then
.Properties("Index"= 0
SendKeys "{Esc}"
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("TextBox"Nothing)
.Properties!Name = "txtFields"
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("Data"Nothing)
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("CommandButton"Nothing)
.Properties!Name = "cmdAdd"
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("CommandButton"Nothing)
.Properties!Name = "cmdDelete"
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("CommandButton"Nothing)
.Properties!Name = "cmdRefresh"
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("CommandButton"Nothing)
.Properties!Name = "cmdUpdate"
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("CommandButton"Nothing)
.Properties!Name = "cmdClose"
sCode = "Private Sub cmdAdd_Click()"
sCode = sCode & vbCrLf & " Data1.Recordset.AddNew"
sCode = sCode & vbCrLf & "Private Sub cmdDelete_Click()"
sCode = sCode & vbCrLf & " 'this may produce an error if you delete the last"
sCode = sCode & vbCrLf & " 'record or the only record in the recordset"
sCode = sCode & vbCrLf & " Data1.Recordset.Delete"
sCode = sCode & vbCrLf & " Data1.Recordset.MoveNext"
sCode = sCode & vbCrLf & "Private Sub cmdRefresh_Click()"
sCode = sCode & vbCrLf & " 'this is really only needed for multi user apps"
sCode = sCode & vbCrLf & " Data1.Refresh"
sCode = sCode & vbCrLf & "Private Sub cmdUpdate_Click()"
sCode = sCode & vbCrLf & " Data1.UpdateRecord"
sCode = sCode & vbCrLf & "Private Sub cmdClose_Click()"
sCode = sCode & vbCrLf & "Private Sub Data1_Error(DataErr As Integer, Response As Integer)"
sCode = sCode & vbCrLf & " 'This is where you would put error handling code"
sCode = sCode & vbCrLf & " 'If you want to ignore errors, comment out the next line"
sCode = sCode & vbCrLf & " 'If you want to trap them, add code here to handle them"
sCode = sCode & vbCrLf & "Private Sub Data1_Reposition()"
sCode = sCode & vbCrLf & " 'This will display the current record position"
sCode = sCode & vbCrLf & " 'for dynasets and snapshots"
sCode = sCode & vbCrLf & " 'for the table object you must set the index property when"
sCode = sCode & vbCrLf & " 'the recordset gets created and use the following line"
sCode = sCode & vbCrLf & " 'Data1.Caption = ""Record: "" & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1"
sCode = sCode & vbCrLf & "Private Sub Data1_Validate(Action As Integer, Save As Integer)"
sCode = sCode & vbCrLf & " 'This is where you put validation code"
sCode = sCode & vbCrLf & " 'This event gets called when the following actions occur"
sCode = sCode & vbCrLf & " Case vbDataActionMoveFirst"
sCode = sCode & vbCrLf & " Case vbDataActionMovePrevious"
sCode = sCode & vbCrLf & " Case vbDataActionMoveNext"
sCode = sCode & vbCrLf & " Case vbDataActionMoveLast"
sCode = sCode & vbCrLf & " Case vbDataActionAddNew"
sCode = sCode & vbCrLf & " Case vbDataActionUpdate"
sCode = sCode & vbCrLf & " Case vbDataActionDelete"
sCode = sCode & vbCrLf & " Case vbDataActionFind"
sCode = sCode & vbCrLf & " Case vbDataActionBookMark"
sCode = sCode & vbCrLf & " Case vbDataActionClose"
sCode = sCode & vbCrLf & "Private Sub oleFields_DblClick(Index As Integer)"
sCode = sCode & vbCrLf & " 'this is the way to get data into an empty ole control"
sCode = sCode & vbCrLf & " 'and have it saved back to the table"
sCode = sCode & vbCrLf & " oleFields(Index).InsertObjDlg"
Label2 = "RecordSource:"
LABEL3 = "Select a Table/QueryDef from the list or enter a SQL statement."

DYNASNAP.FRM had 41 strings moved to the resource file.
MsgBar "Getting Memo Field Data"True
lblFieldName(i).Caption = mrsFormRecordset(i).Name & ":"
BUTTON1 = "&Add"
BUTTON2 = "&Edit"
BUTTON3 = "&Delete"
BUTTON4 = "&Close"
BUTTON5 = "&Sort"
BUTTON6 = "F&ilter"
BUTTON7 = "&Move"
BUTTON8 = "&Find"
BUTTON9 = "&Cancel"
BUTTON10 = "&Update"
Label1 = "Field Name:"
Label2 = "Value (F4=Zoom)"
MSG1 = "Add record"
MSG2 = "Enter number of Rows to Move:"
MSG3 = "(Use negative value to move backwards)"
MSG4 = "Field Length Exceeded, Data Truncated!"
MSG5 = "Delete Current Record?"
MSG6 = "Edit record"
MSG7 = "Enter Filter Expression:"
MSG8 = "Setting New Filter"
MSG9 = "Enter Search Parameters"
MSG10 = "Searching for New Record"
MSG11 = "Record Not Found"
MSG12 = "Resizing Form"
MSG13 = "Enter Sort Column:"
MSG14 = "Setting New Sort Order"
Me.Caption = "Dynaset/Snapshot"
cmdMove.Caption = "&Move"
cmdSort.Caption = "&Sort"
cmdFilter.Caption = "F&ilter"
cmdClose.Caption = "&Close"
cmdDelete.Caption = "&Delete"
cmdEdit.Caption = "&Edit"
cmdAdd.Caption = "&Add"
cmdFind.Caption = "&Find"
cmdUpdate.Caption = "&Update"
cmdCancel.Caption = "&Cancel"
lblFieldValue.Caption = " Value (F4=Zoom)"
lblFieldHdr.Caption = "Field Name:"

DYNASNAP.FRM has 8 strings strings remaining in source code.
SendKeys "{Tab}"
If (mbAddNewFlag Or mbEditFlag) And gsZoomData <> "__CANCELLED__"hen
sTmp = AddBrackets((mrsFormRecordset(i).Name)) & " " gsFindOp & " '" & gsFindExpr & "'"
sTmp = AddBrackets((mrsFormRecordset(i).Name)) & " " & gsFindOp & " '" gsFindExpr & "'"
sTmp = AddBrackets((mrsFormRecordset(i).Name)) & " " & gsFindOp & " '" & gsFindExpr & "'"
sTmp = AddBrackets((mrsFormRecordset(i).Name)) & " " gsFindOp & " #" & gsFindExpr & "#"
sTmp = AddBrackets((mrsFormRecordset(i).Name)) & " " & gsFindOp & " #" gsFindExpr & "#"
sTmp = AddBrackets((mrsFormRecordset(i).Name)) & " " & gsFindOp & " #" & gsFindExpr & "#"

ERRORS.FRM had 6 strings moved to the resource file.
FORMCAPTION = "Errors"
BUTTON1 = "&Refresh"
BUTTON2 = "&Close"
Me.Caption = "Errors"
cmdClose.Caption = "&Close"
cmdRefresh.Caption = "&Refresh"

ERRORS.FRM has no strings strings remaining in source code.

EXPNAME.FRM had 5 strings moved to the resource file.
FORMCAPTION = "Export"
BUTTON2 = "&Cancel"
Me.Caption = "Export Name"
cmdCancel.Caption = "&Cancel"
cmdOK.Caption = "&OK"

EXPNAME.FRM has 1 string strings remaining in source code.
BUTTON1 = "&OK"

FIND.FRM had 16 strings moved to the resource file.
lstOperators.AddItem "Like"
FORMCAPTION = "Find Record"
BUTTON2 = "&Cancel"
Label1 = "&Fields:"
Label2 = "&Operators:"
LABEL3 = "&Value or Expression:"
Me.Caption = "Find"
optFindType(3).Caption = "FindLast"
optFindType(2).Caption = "FindPrevious"
optFindType(1).Caption = "FindNext"
optFindType(0).Caption = "FindFirst"
cmdOK.Caption = "&OK"
cmdCancel.Caption = "&Cancel"
lblLabels(1).Caption = "Operators: "
lblLabels(0).Caption = "Fields: "
lblLabels(2).Caption = "Value or Expression: "

FIND.FRM has 7 strings strings remaining in source code.
lstOperators.AddItem "="
lstOperators.AddItem "&gt&lt"
lstOperators.AddItem "&lt="
lstOperators.AddItem "&gt="
lstOperators.AddItem "&lt"
lstOperators.AddItem "&gt"
BUTTON1 = "&OK"

GRPSUSRS.FRM had 42 strings moved to the resource file.
Label2 = "Groups Belonged to:"
LABEL3 = "Members:"
LABEL4 = "Owner:"
BUTTON1 = "&New"
BUTTON2 = "&Delete"
BUTTON3 = "&Set/Clear Password"
BUTTON4 = "&Assign"
BUTTON5 = "&Close"
OPTION1 = "Users"
OPTION2 = "Groups"
FRAME1 = "Permissions"
MSG1 = "You do not have permission to change the Owner!"
MSG2 = "No Group Selected!"
MSG3 = "Delete Group?"
MSG4 = "No User Selected!"
MSG5 = "Delete User?"
MSG6 = "New Group"
MSG7 = "New User"
MSG8 = "Clear the Password?"
MSG9 = "No Object Selected!"
Me.Caption = "Groups/Users"
fraPermissions.Caption = "Permissions"
cmdAssign.Caption = "&Assign"
chkDeleteData.Caption = "DeleteData"
chkInsertData.Caption = "InsertData"
chkUpdateData.Caption = "UpdateData"
chkReadData.Caption = "ReadData"
chkAdminister.Caption = "Administer"
chkModifyDesign.Caption = "ModifyDesign"
chkReadDesign.Caption = "ReadDesign"
optGroups.Caption = "Groups"
optUsers.Caption = "Users"
cmdClose.Caption = "&Close"
cmdPassword.Caption = "&Set/Clear Password"
cmdDeleteUser.Caption = "&Delete"
cmdNewUser.Caption = "&New"
lblLabels(1).Caption = "Groups Belonged to:"
cmdDeleteGroup.Caption = "&Delete"
cmdNewGroup.Caption = "&New"
lblLabels(2).Caption = "Members:"
lblLabels(3).Caption = "Owner:"
lblLabels(0).Caption = "Tables/Querys:"

GRPSUSRS.FRM has 12 strings strings remaining in source code.
gdbCurrentDB.Containers("Tables"UserName = sUserGroup
lPermissions = gdbCurrentDB.Containers("Tables"Permissions
gdbCurrentDB.Containers("Tables"Permissions = lPermissions
ShowOwner gdbCurrentDB.Containers("Tables"
Set mobjCurrObject = gdbCurrentDB.Containers("Tables"
gdbCurrentDB.Containers("Tables"Documents(sObject).UserName = sUserGroup
lPermissions = gdbCurrentDB.Containers("Tables"Documents(sObject).Permissions
gdbCurrentDB.Containers("Tables"Documents(sObject).Permissions = lPermissions
ShowOwner gdbCurrentDB.Containers("Tables"Documents(sObject)
Set mobjCurrObject = gdbCurrentDB.Containers("Tables"Documents(sObject)
FORMCAPTION = "Groups/Users/Permissions"
Label1 = "Tables/Querys:"

IMPTBLS.FRM had 8 strings moved to the resource file.
FORMCAPTION = "Import Tables"
Label1 = "Tables In:"
BUTTON1 = "&Import"
BUTTON2 = "&Close"
Me.Caption = "Import Tables"
cmdClose.Caption = "Close"
cmdImport.Caption = "Import"
lblLabel1.Caption = " Tables in "

IMPTBLS.FRM has no strings strings remaining in source code.

JOIN.FRM had 12 strings moved to the resource file.
FORMCAPTION = "Join Tables"
Label1 = "Select Table Pair:"
Label2 = "Select Fields to Join on:"
BUTTON1 = "&Add Join to Query"
BUTTON2 = "C&lear All Joins"
BUTTON3 = "&Close"
Me.Caption = "Join"
cmdClearJoins.Caption = "C&lear All Joins"
cmdClose.Caption = "&Close"
cmdAddJoin.Caption = "&Add Join to Query"
lblLabels(1).Caption = "Select Fields to Join on: "
lblLabels(0).Caption = "Select Table Pair: "

JOIN.FRM has 3 strings strings remaining in source code.
frmQuery.lstJoinFields.AddItem AddBrackets(mtblTable1) & "." AddBrackets(lstFields1) & "=" & AddBrackets(mtblTable2) & "." & AddBrackets(lstFields2)
frmQuery.lstJoinFields.AddItem AddBrackets(mtblTable1) & "." & AddBrackets(lstFields1) & "=" AddBrackets(mtblTable2) & "." & AddBrackets(lstFields2)
frmQuery.lstJoinFields.AddItem AddBrackets(mtblTable1) & "." & AddBrackets(lstFields1) & "=" & AddBrackets(mtblTable2) & "." AddBrackets(lstFields2)

Loginfrm.frm had 9 strings moved to the resource file.
FORMCAPTION = "Login"
BUTTON2 = "&Cancel"
Label1 = "Login Name:"
Label2 = "Password:"
Me.Caption = "Login"
cmdCancel.Caption = "&Cancel"
cmdOK.Caption = "&OK"
lblLabels(1).Caption = "Password: "
lblLabels(0).Caption = "Login Name: "

Loginfrm.frm has 2 strings strings remaining in source code.
Set wsp = DBEngine.CreateWorkspace("MainWS"txtLoginName.Text, txtPassword.Text)
BUTTON1 = "&OK"

NEWATTCH.FRM had 31 strings moved to the resource file.
cboConnect.AddItem "Access MDB"
cboConnect.AddItem "Dbase III"
cboConnect.AddItem "Dbase IV"
cboConnect.AddItem "FoxPro 2.0"
cboConnect.AddItem "FoxPro 2.5"
cboConnect.AddItem "FoxPro 2.6"
cboConnect.AddItem "Paradox 3.X"
cboConnect.AddItem "Paradox 4.X"
cboConnect.AddItem "Excel 5.0"
cboConnect.AddItem "Excel 4.0"
cboConnect.AddItem "Excel 3.0"
cboConnect.AddItem "Text Files"
sTmp = sTmp & "database=" txtDatabase
FORMCAPTION = "New Attached Table"
BUTTON1 = "&Attach"
BUTTON2 = "&Cancel"
Label1 = "Attachment &Name:"
Label2 = "&Database Name:"
LABEL3 = "C&onnect String:"
LABEL4 = "&Table to Attach:"
CHECK1 = "AttachSave&PWD"
CHECK2 = "Attach&Exclusive"
Me.Caption = "New Attachment"
chkExclusive.Caption = "AttachExclusive"
chkSavePassword.Caption = "AttachSavePWD"
cmdCancel.Caption = "&Cancel"
cmdAttach.Caption = "&Attach"
lblLabels(1).Caption = "Database Name: "
lblLabels(3).Caption = "Table to Attach: "
lblLabels(2).Caption = "Connect String: "
lblLabels(0).Caption = "Attachment Name: "

NEWATTCH.FRM has 4 strings strings remaining in source code.
cboConnect.AddItem "ODBC"
Set db = gwsMainWS.OpenDatabase(vbNullString, 0, 0, sDataType & "" cboConnect.Text)
sTmp = ""
sTmp = cboConnect.Text & ""

NEWPW.FRM had 11 strings moved to the resource file.
BUTTON2 = "&Cancel"
Label1 = "&Old Password:"
Label2 = "&New Passsord:"
LABEL3 = "&Verify:"
MSG1 = "Invalid New Password Verification, try again."
Me.Caption = "New Password"
cmdCancel.Caption = "&Cancel"
cmdOK.Caption = "&OK"
lblLabels(2).Caption = "Verify:"
lblLabels(1).Caption = "New Password:"
lblLabels(0).Caption = "Old Password:"

NEWPW.FRM has 2 strings strings remaining in source code.
Const FORMCAPTION = "Set Password"
BUTTON1 = "&OK"

NEWUG.FRM had 8 strings moved to the resource file.
BUTTON2 = "&Cancel"
Label1 = "&Name:"
MSG1 = "PID must be between 4 and 20 characters!"
Me.Caption = "New User Group"
cmdCancel.Caption = "&Cancel"
cmdOK.Caption = "&OK"
lblLabels(1).Caption = "PID:"
lblLabels(0).Caption = "Name:"

NEWUG.FRM has 3 strings strings remaining in source code.
gwsMainWS.Groups("Users"Users.Append usr
BUTTON1 = "&OK"
Label2 = "&PID:"

ODBCLogn.Frm had 34 strings moved to the resource file.
If Len(cboDSNList.Text) = 0 Or cboDSNList.Text = "(None)"hen
frmMDI.Caption = "VisData:" gsDBName & "." & gsODBCDatabase
frmMDI.Caption = "VisData:" & gsDBName & "." gsODBCDatabase
cboDSNList.AddItem "(None)"
FORMCAPTION = "ODBC Logon"
BUTTON2 = "&Cancel"
BUTTON3 = "&Register"
FRAME1 = "Connect Values:"
LABEL3 = "&Password:"
LABEL4 = "Data&base:"
LABEL5 = "Dri&ver:"
LABEL6 = "&Server:"
MSG1 = "Enter ODBC Connection Parameters"
MSG2 = "Opening ODBC Database"
MSG3 = "Enter Driver Name:"
MSG4 = "Driver Name"
MSG5 = "This Datasource has not been Registered, this will now be attempted for you!"
MSG7 = "Invalid Parameter(s), Please try again!"
MSG8 = "Query Timeout Could not be set, default will be used!"
MSG9 = "Datasource Registration Succeeded, proceed with Open."
MSG10 = "Please enter a DSN!"
MSG11 = "Please select a Driver!"
MSG12 = "You must Close First!"
Me.Caption = "ODBC Logon"
cmdRegister.Caption = "&Register"
cmdCancel.Caption = "Cancel"
cmdOK.Caption = "&OK"
fraConnection.Caption = "Connection Values"
lblLabels(0).Caption = "&DSN:"
lblLabels(1).Caption = "&UID:"
lblLabels(2).Caption = "&Password:"
lblLabels(3).Caption = "Data&base:"
lblLabels(4).Caption = "Dri&ver:"
lblLabels(5).Caption = "&Server:"

ODBCLogn.Frm has 20 strings strings remaining in source code.
sConnect = "ODBC;DSN=" cboDSNList.Text & ";"
sConnect = "ODBC;DSN=" & cboDSNList.Text & ""
sConnect = "ODBC;Driver={" cboDrivers.Text & "};"
sConnect = "ODBC;Driver={" & cboDrivers.Text & "};"
sConnect = sConnect & "Server=" txtServer.Text & ";"
sConnect = sConnect & "Server=" & txtServer.Text & ""
sConnect = sConnect & "UID=" txtUID.Text & ";"
sConnect = sConnect & "UID=" & txtUID.Text & ""
sConnect = sConnect & "PWD=" txtPWD.Text & ";"
sConnect = sConnect & "PWD=" & txtPWD.Text & ""
sConnect = sConnect & "Database=" txtDatabase.Text & ";"
sConnect = sConnect & "Database=" & txtDatabase.Text & ""
If InStr(1, Error, "ODBC--connection to '" cboDSNList.Text & "' failed") > 0 Then
If InStr(1, Error, "ODBC--connection to '" & cboDSNList.Text & "' failed"> 0 Then
ElseIf InStr(1, Error, "Login failed"> 0 Then
ElseIf InStr(1, Error, "QueryTimeout property"> 0 Then
BUTTON1 = "&OK"
Label1 = "&DSN:"
Label2 = "&UID:"
cboDSNList.Text = "È"

Property.frm had 8 strings moved to the resource file.
FORMCAPTION = " Property Value"
BUTTON2 = "&Cancel"
Label1 = "&Enter property value:"
Me.Caption = "Property Value"
cmdCancel.Caption = "&Cancel"
cmdOK.Caption = "&OK"
chkPropValue.Caption = "Check1"
lblLabel.Caption = "&Enter property value:"

Property.frm has 1 string strings remaining in source code.
BUTTON1 = "&OK"

QUERY.FRM had 63 strings moved to the resource file.
txtCriteria.Text = txtCriteria.Text & vbCrLf & "And "
cboOperator.AddItem "Like"
MsgBar "Getting Possible Values"True
txtCriteria.Text = txtCriteria.Text & vbCrLf & " Or "
sWhere = " Where " sWhere
sWhere = sWhere & " Where "
sWhere = sWhere & " And "
sWhere = sWhere + lstJoinFields.List(i) & " And "
sWhere = sWhere & " Group By " cboGroupByField
sWhere = sWhere & " Order By " cboOrderByField
sWhere = sWhere & " Desc "
MsgBox sSQLString, 0, "SQL Query"
FORMCAPTION = "Query Builder"
BUTTON1 = "&And into Criteria"
BUTTON2 = "&Or into Criteria"
BUTTON3 = "List &Possible Values"
BUTTON5 = "&Run"
BUTTON6 = "&Show"
BUTTON7 = "Cop&y"
BUTTON8 = "Sa&ve"
BUTTON9 = "C&lear"
BUTTON10 = "&Close"
Label1 = "Field Name:"
Label2 = "Operator:"
LABEL3 = "Value:"
LABEL4 = "Tables:"
LABEL5 = "Fields to Show:"
LABEL6 = "Group By:"
LABEL7 = "Order By:"
LABEL8 = "Top N Value:"
LABEL9 = "Criteria:"
CHECK1 = "Top Percent"
MSG1 = "Updating Form Fields"
MSG2 = "(none)"
MSG3 = "You Must Have at Least 2 Tables Selected!"
MSG4 = "Choose Joins"
MSG5 = "No Query Entered!"
MSG6 = "Building Query"
MSG7 = "Running Query"
MSG8 = "Enter QueryDef Name:"
Me.Caption = "Query"
optOrder(1).Caption = "Desc"
optOrder(0).Caption = "Asc"
chkTopPercent.Caption = "Top Percent"
cmdGetValues.Caption = "List &Possible Values"
cmdOr.Caption = "&Or into Criteria"
cmdAnd.Caption = "&And into Criteria"
cmdSaveQDF.Caption = "Sa&ve"
cmdJoin.Caption = "Set Table &Joins"
cmdCopySQL.Caption = "Cop&y"
cmdShowSQL.Caption = "&Show"
cmdClose.Caption = "&Close"
cmdRunQuery.Caption = "&Run"
cmdClear.Caption = "C&lear"
lblLabels(7).Caption = "Top N Value:"
lblLabels(1).Caption = "Operator:"
lblLabels(2).Caption = "Value:"
lblLabels(0).Caption = "Field Name:"
lblLabels(6).Caption = "Order By: "
lblLabels(5).Caption = "Group By: "
lblLabels(3).Caption = "Tables: "
lblLabels(4).Caption = "Fields to Show: "
lblLabels(8).Caption = "Criteria: "

QUERY.FRM has 55 strings strings remaining in source code.
Const BUTTON4 = "Set Table &Joins"
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " cboOperator.Text & " '" & cboValue.Text & "'"
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " & cboOperator.Text & " '" cboValue.Text & "'"
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " & cboOperator.Text & " '" & cboValue.Text & "'"
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " cboOperator.Text & " " & cboValue.Text
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " & cboOperator.Text & " " cboValue.Text
sTmp = AddBrackets((lstTables.List(ii))) & "." AddBrackets((fld.Name))
sTmp = AddBrackets((lstTables.List(ii))) & "." AddBrackets((fld.Name))
cboOperator.AddItem "="
cboOperator.AddItem "&gt&lt"
cboOperator.AddItem "&lt"
cboOperator.AddItem "&lt="
cboOperator.AddItem "&gt"
cboOperator.AddItem "&gt="
Set rec = gdbCurrentDB.OpenRecordset("select Distinct " StripOwner(cboField) & " from " & stSTF((cboField), 0))
Set rec = gdbCurrentDB.OpenRecordset("select Distinct " & StripOwner(cboField) & " from " stSTF((cboField), 0))
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " cboOperator.Text & " '" & cboValue.Text & "'"
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " & cboOperator.Text & " '" cboValue.Text & "'"
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " & cboOperator.Text & " '" & cboValue.Text & "'"
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " cboOperator.Text & " " & cboValue.Text
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " & cboOperator.Text & " " cboValue.Text
sWhere = "AND " LTrim(txtCriteria.Text)
sTmp = sTmp & " "
sTmp = stGetToken(sWhere2, " "
sTmp = sTmp & " "
If bMatchParen = False And UCase(sTmp) = "AND "hen
sNewWhere = sNewWhere + sTmp & "("
ElseIf bMatchParen And UCase(sTmp) = "AND "hen
sNewWhere = sNewWhere & ") " sTmp & "("
sNewWhere = sNewWhere & ") " & sTmp & "("
If UCase(sTmp) = "OR"r UCase(sTmp) = "IN " Or UCase(sTmp) = "LIKE" Then
If UCase(sTmp) = "OR" Or UCase(sTmp) = "IN "r UCase(sTmp) = "LIKE" Then
If UCase(sTmp) = "OR" Or UCase(sTmp) = "IN " Or UCase(sTmp) = "LIKE"hen
sNewWhere = sNewWhere & " " sTmp
sWhere = sNewWhere & ")"
If Mid(sWhere, 2, 2) = "OR"hen
sTmp = stGetToken(sWhere, " "
fs = fs + lstShowFields.List(i%) & ","
fs = fs + AddBrackets((lstTables.List(i%))) & ".*,"
fs = "*"
ts = ts + AddBrackets((lstTables.List(i%))) & ","
sSQLString = "Select "
sSQLString = sSQLString & " TOP " txtTopNValue.Text & " "
sSQLString = sSQLString & " TOP " & txtTopNValue.Text & " "
sSQLString = sSQLString & " PERCENT "
sSQLString = sSQLString & fs & " From " ts + sWhere
iOpenQuote = InStr(1, rsLine, """"
iCloseQuote = InStr(iOpenQuote + 1, rsLine, """"
If (Mid(stToken, 1, 1) = """" Then
If (Mid(stToken, Len(stToken), 1) = """" Then
If InStr(InStr(1, rsName, "."+ 1, rsName, ".") > 1 Then
If InStr(InStr(1, rsName, ".") + 1, rsName, "."> 1 Then
stSTF = Mid(rsName, 1, InStr(1, rsName, "."- 1)
stSTF = Mid(rsName, InStr(1, rsName, "."+ 1, Len(rsName))
cboValue.Text = "cValue"

REPLACE.FRM had 15 strings moved to the resource file.
sWhereCondition = " where " txtCondition
FORMCAPTION = "Global Replace"
BUTTON2 = "&Cancel"
Label1 = "&Table:"
Label2 = "&Field:"
LABEL3 = "&Replace With:"
LABEL4 = "Cr&iteria:"
MSG1 = "Replacing Records"
Me.Caption = "Replace"
cmdOK.Caption = "&OK"
cmdCancel.Caption = "&Cancel"
lblLabels(0).Caption = "Table:"
lblLabels(3).Caption = "Criteria:"
lblLabels(2).Caption = "Replace With:"
lblLabels(1).Caption = "Field:"

REPLACE.FRM has 9 strings strings remaining in source code.
sReplaceTxt = "'" txtReplaceWith & "'"
sReplaceTxt = "'" & txtReplaceWith & "'"
gdbCurrentDB.Execute "update " StripConnect(lstTables.Text) & " set " & lstFields.Text & "=" & sReplaceTxt & sWhereCondition, dbSQLPassThrough
gdbCurrentDB.Execute "update " & StripConnect(lstTables.Text) & " set " lstFields.Text & "=" & sReplaceTxt & sWhereCondition, dbSQLPassThrough
gdbCurrentDB.Execute "update " & StripConnect(lstTables.Text) & " set " & lstFields.Text & "=" sReplaceTxt & sWhereCondition, dbSQLPassThrough
gdbCurrentDB.Execute "update " StripConnect(lstTables.Text) & " set [" & lstFields.Text & "]=" & sReplaceTxt & sWhereCondition
gdbCurrentDB.Execute "update " & StripConnect(lstTables.Text) & " set [" lstFields.Text & "]=" & sReplaceTxt & sWhereCondition
gdbCurrentDB.Execute "update " & StripConnect(lstTables.Text) & " set [" & lstFields.Text & "]=" sReplaceTxt & sWhereCondition
BUTTON1 = "&OK"

SEEK.FRM had 9 strings moved to the resource file.
FORMCAPTION = "Seek Parameters"
BUTTON2 = "&Cancel"
Label1 = "Operator:"
Label2 = "&Value:"
Me.Caption = "Seek"
cmdCancel.Caption = "&Cancel"
cmdOK.Caption = "&OK"
lblLabels(1).Caption = "Value: "
lblLabels(0).Caption = "Operator: "

SEEK.FRM has 6 strings strings remaining in source code.
gsSeekOperator = "="
gsSeekOperator = "&lt="
gsSeekOperator = "&gt="
gsSeekOperator = "&lt"
gsSeekOperator = "&gt"
BUTTON1 = "&OK"

SQL.FRM had 13 strings moved to the resource file.
If MsgBox(MSG1 & " '" gnodDBNode.Text & "'?", vbYesNo + vbQuestion) = vbYes Then
If MsgBox(MSG1 & " '" & gnodDBNode.Text & "'?"vbYesNo + vbQuestion) = vbYes Then
BUTTON1 = "&Execute"
BUTTON2 = "&Clear"
BUTTON3 = "&Save"
MSG1 = "Update"
MSG2 = "Enter QueryDef Name:"
MSG4 = "Enter Connect property value:"
MSG5 = "Is the Query Row Returning?"
Me.Caption = "SQL"
cmdSaveQueryDef.Caption = "&Save"
cmdExecuteSQL.Caption = "&Execute"
cmdClearSQL.Caption = "&Clear"

SQL.FRM has 16 strings strings remaining in source code.
SaveSetting APP_CATEGORY, APPNAME, "SQLStatement"frmSQL.txtSQLStatement.Text
SaveSetting APP_CATEGORY, APPNAME, "SQLWindowTop"frmSQL.Top
SaveSetting APP_CATEGORY, APPNAME, "SQLWindowLeft"frmSQL.Left
SaveSetting APP_CATEGORY, APPNAME, "SQLWindowWidth"frmSQL.Width
SaveSetting APP_CATEGORY, APPNAME, "SQLWindowHeight"frmSQL.Height
txtSQLStatement.Text = GetRegistryString("SQLStatement"vbNullString)
Me.Height = Val(GetRegistryString("SQLWindowHeight""3000"))
Me.Height = Val(GetRegistryString("SQLWindowHeight", "3000"
Me.Width = Val(GetRegistryString("SQLWindowWidth""5370"))
Me.Width = Val(GetRegistryString("SQLWindowWidth", "5370"
Me.Top = Val(GetRegistryString("SQLWindowTop""0"))
Me.Top = Val(GetRegistryString("SQLWindowTop", "0"
Me.Left = Val(GetRegistryString("SQLWindowLeft""3850"))
Me.Left = Val(GetRegistryString("SQLWindowLeft", "3850"
FORMCAPTION = "SQL Statement"
MSG3 = "Is this a SQLPassThrough QueryDef?"

TABLEOBJ.FRM had 33 strings moved to the resource file.
MsgBar "Getting Memo Field Data"True
lblFieldName(i).Caption = mrsFormRecordset(i).Name & ":"
BUTTON1 = "&Add"
BUTTON2 = "&Edit"
BUTTON3 = "&Delete"
BUTTON4 = "&Close"
BUTTON5 = "&Seek"
BUTTON6 = "F&ilter"
BUTTON7 = "&Cancel"
BUTTON8 = "&Update"
Label1 = "Field NAme:"
Label2 = "Value (F4=Zoom)"
MSG1 = "Add record"
MSG2 = "Field Length Exceeded, Data Truncated!"
MSG3 = "Delete Current Record?"
MSG4 = "Edit record"
MSG5 = "Enter Filter Expression:"
MSG6 = "Opening Table"
MSG7 = "Resizing Form"
MSG8 = "Enter Seek Parameters"
MSG9 = "Record Not Found"
Me.Caption = "Table Object"
cmdSeek.Caption = "&Seek"
cmdFilter.Caption = "F&ilter"
cmdClose.Caption = "&Close"
cmdDelete.Caption = "&Delete"
cmdEdit.Caption = "&Edit"
cmdAdd.Caption = "&Add"
lblIndex.Caption = "Index:"
lblFieldValue.Caption = " Value (F4=Zoom) "
lblFieldHdr.Caption = "Field Name:"
cmdUpdate.Caption = "&Update"
cmdCancel.Caption = "&Cancel"

TABLEOBJ.FRM has 10 strings strings remaining in source code.
SendKeys "{Tab}"
If (mbAddNewFlag Or mbEditFlag) And gsZoomData <> "__CANCELLED__"hen
If mrsFormRecordset.Index = Mid(cboIndexes.Text, 1, InStr(1, cboIndexes.Text, ":"- 1) Then Exit Sub
mrsFormRecordset.Index = Mid(cboIndexes.Text, 1, InStr(1, cboIndexes.Text, ":"- 1)
gsTableDynaFilter = "select * from " AddBrackets(msTableName) & " where " & sFilter
gsTableDynaFilter = "select * from " & AddBrackets(msTableName) & " where " sFilter
sIndex = sIndex & ":" idx.Fields
sIndex = sIndex & ":Unique"
sIndex = sIndex & ":Non-Unique"
sIndex = sIndex & ":Primary"

TBLSTRU.FRM had 60 strings moved to the resource file.
cboFieldType.AddItem "Boolean"
cboFieldType.AddItem "Text"
cboFieldType.AddItem "Binary"
cboFieldType.AddItem "Memo"
Printer.Print "Database: " gsDBName
Printer.Print "Table Definition for " txtTableName
Printer.Print "Fields: (Name - Type - Size)"
Printer.Print "Indexes (Name - Fields - Unique)"
sTmp = sTmp & IIf(chkUnique = 1, "True""False")
sTmp = sTmp & IIf(chkUnique = 1, "True", "False"
FORMCAPTION = "Table Structure"
BUTTON1 = "&Add Field"
BUTTON2 = "&Remove Field"
BUTTON3 = "Add &Index"
BUTTON4 = "Re&move Index"
BUTTON5 = "&Build the Table"
BUTTON6 = "&Close"
BUTTON7 = "&Print Structure"
Label1 = "Table &Name:"
Label2 = "&Field List:"
LABEL3 = "Inde&x List:"
MSG1 = "Enter New Field Parameters, Press 'Close' when finished"
MSG2 = "Enter New Index Parameters, Press 'Close' when finished"
MSG3 = "Adding the New Table to the Database"
MSG4 = "Remove Index?"
MSG5 = "Opening Design Form"
MSG6 = "Printing Table Structure"
MSG7 = "Remove Field?"
MSG8 = "Close without saving?"
Me.Caption = "Table Structure"
chkUnique.Caption = "Unique"
chkRequiredInd.Caption =