Planet Source Code Jumbo Resource CD Visual Basic 1 to 7

home *** CD-ROM | disk | FTP | other *** search

/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD15746332001.psc / DBofADO.frm (.txt) < prev next >

Wrap

Visual Basic Form | 2001-03-03 | 28.2 KB | 718 lines

VERSION 5.00 Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" Begin VB.Form frmDBofADO BorderStyle = 3 'Fixed Dialog Caption = "Database Structure - ADO" ClientHeight = 5985 ClientLeft = 2760 ClientTop = 3750 ClientWidth = 8985 Icon = "DBofADO.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 5985 ScaleWidth = 8985 ShowInTaskbar = 0 'False Begin VB.OptionButton optJetVersion Caption = "3.51" Height = 315 Index = 0 Left = 3840 TabIndex = 18 Top = 30 Value = -1 'True Width = 885 End Begin VB.OptionButton optJetVersion Caption = "3.6" Height = 315 Index = 1 Left = 4920 TabIndex = 17 Top = 30 Width = 735 End Begin VB.OptionButton optJetVersion Caption = "4.0" Height = 315 Index = 2 Left = 5850 TabIndex = 16 Top = 30 Width = 735 End Begin VB.ComboBox cboQueryTemplate BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 345 Left = 150 Style = 2 'Dropdown List TabIndex = 15 Top = 4230 Width = 1215 End Begin VB.ComboBox cboSelectView Enabled = 0 'False Height = 315 Left = 7230 TabIndex = 7 Text = "cboSelectView" Top = 975 Width = 1560 End Begin VB.CommandButton cmdQuery Enabled = 0 'False BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 405 Left = 5730 Picture = "DBofADO.frx":030A Style = 1 'Graphical TabIndex = 6 Top = 4215 Width = 1005 End Begin VB.CommandButton cmdQueryExecute Height = 345 Left = 3390 Picture = "DBofADO.frx":12C4 Style = 1 'Graphical TabIndex = 5 ToolTipText = "Execute query statement" Top = 4260 Width = 1035 End Begin VB.CommandButton cmdQueryAbort Height = 345 Left = 2400 Picture = "DBofADO.frx":2026 Style = 1 'Graphical TabIndex = 4 ToolTipText = "Abort query" Top = 4260 Width = 975 End Begin VB.TextBox txtQuery BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1065 Left = 150 MultiLine = -1 'True TabIndex = 3 Text = "DBofADO.frx":2D88 Top = 4695 Visible = 0 'False Width = 8655 End Begin VB.CommandButton cmdQueryClear Height = 345 Left = 1410 Picture = "DBofADO.frx":2D91 Style = 1 'Graphical TabIndex = 2 ToolTipText = "Clear query statement" Top = 4260 Width = 975 End Begin VB.CommandButton cmdTable BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 405 Left = 6750 Picture = "DBofADO.frx":39B3 Style = 1 'Graphical TabIndex = 1 Top = 4215 Width = 1005 End Begin VB.CommandButton cmdClose BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 405 Left = 7770 Picture = "DBofADO.frx":496D Style = 1 'Graphical TabIndex = 0 Top = 4215 Width = 1005 End Begin MSComctlLib.ImageList ImageList1 Left = 4260 Top = 1380 _ExtentX = 1005 _ExtentY = 1005 BackColor = -2147483643 ImageWidth = 16 ImageHeight = 16 MaskColor = 12632256 _Version = 393216 BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} NumListImages = 12 BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "DBofADO.frx":5927 Key = "imgDatabase" EndProperty BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "DBofADO.frx":5B73 Key = "imgClosed" EndProperty BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "DBofADO.frx":5C6F Key = "imgOpen" EndProperty BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "DBofADO.frx":5D83 Key = "imgTable" EndProperty BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "DBofADO.frx":609F Key = "imgTableOpen" EndProperty BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "DBofADO.frx":63BB Key = "imgField" EndProperty BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "DBofADO.frx":64CD Key = "imgProp" EndProperty BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "DBofADO.frx":67E9 Key = "imgIndex" EndProperty BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "DBofADO.frx":6945 Key = "imgQueries" EndProperty BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "DBofADO.frx":6C99 Key = "imgQuery" EndProperty BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "DBofADO.frx":7365 Key = "imgRelations" EndProperty BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "DBofADO.frx":76B9 Key = "imgRelation" EndProperty EndProperty End Begin MSComctlLib.TreeView tvwDB Height = 2760 Left = 150 TabIndex = 8 Top = 1365 Width = 3930 _ExtentX = 6932 _ExtentY = 4868 _Version = 393217 Indentation = 529 LabelEdit = 1 LineStyle = 1 Style = 7 ImageList = "ImageList1" Appearance = 1 End Begin MSComctlLib.ListView lvwProperties Height = 2130 Left = 4470 TabIndex = 9 Top = 2025 Width = 4305 _ExtentX = 7594 _ExtentY = 3757 View = 3 LabelEdit = 1 LabelWrap = -1 'True HideSelection = 0 'False FullRowSelect = -1 'True _Version = 393217 Icons = "ImageList1" SmallIcons = "ImageList1" ForeColor = -2147483640 BackColor = -2147483643 BorderStyle = 1 Appearance = 1 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty NumItems = 0 End Begin VB.Label lblJetVersion Caption = "Jet.OLEDB version:" Height = 315 Left = 2190 TabIndex = 19 Top = 60 Width = 1485 End Begin VB.Label lblDatabase Caption = "Database:" Height = 420 Left = 150 TabIndex = 14 Top = 510 Width = 8625 End Begin VB.Label lblTableList Caption = "Tables && Fields:" Height = 195 Left = 150 TabIndex = 13 Top = 1050 Width = 2310 End Begin VB.Label lblFieldProperties Caption = "Field properties:" Height = 195 Left = 4530 TabIndex = 12 Top = 1065 Width = 1140 End Begin VB.Label lblTableName BorderStyle = 1 'Fixed Single Height = 285 Left = 6630 TabIndex = 11 Top = 1350 Width = 2130 End Begin VB.Label lblFieldName BorderStyle = 1 'Fixed Single Height = 285 Left = 6630 TabIndex = 10 Top = 1665 Width = 2130 End Attribute VB_Name = "frmDBofADO" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False ' DBofADO.frm ' By Herman Liu ' An extract from an actual application of mine (with modifications to reduce some of its ' features, e.g. option to use query and allowance for change of fields, etc.). ' ======================================================================================== ' PURPOSES: ' ---------------------------------------------------------------------------------------- ' (1) To show how to use the ADO Schema to obtain a list of tables of a database. ' (2) To show how to provide a re-usable single form (the same form can be used for any ' MDB file name, and another form can be used to display as many tables as there are ' in that database. Otherwise, you will need 10 forms if there are 10 tables). ' (3) To show the possible techniques to enable opening several tables on the screen in ' the same session (using the same form) yet without conflict. ' (4) To show how to display various attributes/properties in descriptive text which is ' more understandable, rather than the VB's original numeric codes. ' ======================================================================================== ' NOTES: ' ---------------------------------------------------------------------------------------- ' (a) For a study of DAO, refer my "DBofDAO". ' (b) Use of Access 97 is assumed: PROVIDER=Microsoft.Jet.OLEDB.3.51 (though you may change ' it to "3.6" if you installed "3.6"). If you are using Access 2000, you must change it ' from "3.51" to "3.6". If you do not have the "3.6", download a copy of "Acjet40sp4.exe" ' ("http://support.microsoft.com/support/kb/articles/q239/1/14.asp?FinishURL=%2Fdownloads% ' 2Frelease%2Easp%3FReleaseID%3D1264 4%26redirect%3Dno"). After the update, remember to ' change the Reference of your project to "Microsoft DAO 3.6 Object Library". ' ---------------------------------------------------------------------------------------- ' (c) Subsequent to the original posting of this code, MS has made availble the OLEDB 4.0. ' If you wish to use Jet.OLEDB.4.0, you have to download "Microsoft Jet 4.0 Service ' Pack 3" which contains the complete Jet 4.0 components up to Service Pack 3 (SP3). This ' is the same version of Jet shipped with Windows 2000 and Windows Millennium. ("http:// ' www.microsoft.com/data/download_Jet4SP3.htm". Before you can install Jet40SP3_Comp.exe, ' you have to install MDAC 2.6 first - "http://www.microsoft.com/data/download_260SDK.htm") ' ---------------------------------------------------------------------------------------- ' (d) ADOX have some collections not available in ADO. It includes objects for schema ' creation and modification. The type library reference is "Microsoft ADO Ext. for DDL ' and Security". The ADOX library file name is Msadox.dll, and the program ID (ProgID) ' is "ADOX". If you have included ADOX in the project References, then instead of using ' the table Schema method as adopted in this program, you may use ADOX, however you must ' also use Jet.OLEDB.4.0 in this case. ' Dim X As New ADOX.Catalog, tbls As ADOX.Tables, tbl As ADOX.Table ' gAcnn.ConnectionString = (whatever our connection string) ' gAcnn.Open (whatever our connection string) ' Set X.ActiveConnection = gAcnn ' Set tbls = X.Tables ' then loop through each tbl in tbles. ' ---------------------------------------------------------------------------------------- ' (e) The Count property of TreeView is limited to 32767. It would return an incorrect ' value if you add more than 32767 nodes to the TreeView. The Index property of a Node ' object also returns an incorrect value for the same reason. If you add more than 65535 ' nodes, the TreeView's scrollbar may disappear and the TreeView may experience redraw ' problems. (To work around, you may use SendMessage API to obtain the true node count. ' Alternately, you can use a variable to keep track of how many nodes. Each time you add ' or remove a node, +/- the variable by one. But performance will become extremely slow ' as you add more and more nodes.) ' ---------------------------------------------------------------------------------------- ' ======================================================================================== ' REMARKS: ' ---------------------------------------------------------------------------------------- ' MDI form ' "Window" menu is provided so that you can switch between tables opened, if you open ' more than one on the screen. ' TABLES form ' Double click a table name will invokd the GRID form (alternatively highlight that ' table name and click "Table" button). ' GRID form ' Click the tiny colored buttons below the Grid will show various attributes/properties. ' ----------------------------------------------------------------------------------------- Option Explicit Dim rsSchema As adodb.Recordset Dim rs As adodb.Recordset Dim mNodeDB As Node Dim mNodeTables As Node Dim mnodeFields As Node Dim mListItem As ListItem Dim arrQueryTemplate(9) As String Dim mCurrListRef ' Flag to assure this node is already clicked Dim mSuspend As Boolean Private Sub Form_Load() On Error Resume Next Dim i As Integer, n As Integer, j As Integer Dim mctn As Integer Dim mType As Long Dim mAttr As Integer Dim mstrType As String Dim mstrAttr As String Dim mtblName As String Dim mNumTables As Integer Dim mFldName As String Dim tmp As String Dim mSeq As Integer mSuspend = True lblDatabase = "Database: " & gFileSpec ' Configure cboSelectView control. cboSelectView.Clear With cboSelectView .AddItem "Icon View" ' 0 .AddItem "SmallIcon View" ' 1 .AddItem "List View" ' 2 .AddItem "Report View" ' 3 .ListIndex = 3 End With ' Configure cboQueryTemplate control. cboQueryTemplate.Clear With cboQueryTemplate .AddItem "Select" ' e.g. crosstab, parameter, summary .AddItem "Action" ' e.g. append, delete, update .AddItem "Make-table" .AddItem "SQL" ' In a client/server environment .ListIndex = 3 End With ' Configure ListView control. lvwProperties.ListItems.Clear lvwProperties.Icons = ImageList1 lvwProperties.SmallIcons = ImageList1 lvwProperties.ColumnHeaders.Clear lvwProperties.ColumnHeaders.Add , , "Property", 1700 lvwProperties.ColumnHeaders.Add , , "Value", lvwProperties.Width - 100 - 1700 lvwProperties.View = lvwReport ' we want to show coloumn headers lvwProperties.HideColumnHeaders = False ' We don't want shade/highlight any item at start lvwProperties.HideSelection = True 'Configure TreeView tvwDB.Nodes.Clear tvwDB.Indentation = 5 Set gAcnn = New adodb.Connection gAcnn.CursorLocation = adUseClient If optJetVersion(0).Value = True Then gAcnn.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & gFileSpec & ";" ElseIf optJetVersion(1).Value = True Then gAcnn.Open "PROVIDER=Microsoft.Jet.OLEDB.3.6;Data Source=" & gFileSpec & ";" ElseIf optJetVersion(2).Value = True Then gAcnn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & gFileSpec & ";" End If Set rsSchema = gAcnn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE")) Me.MousePointer = vbHourglass '-------------------------------------------------------------------- ' Set root node of TreeView. '-------------------------------------------------------------------- Set mNodeDB = tvwDB.Nodes.Add(, , "RootDB", "Database", "imgDatabase") mNodeDB.Tag = "RootDB" '------------------------ ' Set table nodes. '------------------------ Do Until rsSchema.EOF ' Since MS current schema returns tables named "MSys...." ' as well as their TABLE_TYPE is also "TABLE", we exclude them. If UCase(Left(rsSchema!Table_name, 4)) <> "MSYS" Then If UCase(Left(rsSchema!Table_name, 11)) <> "SWITCHBOARD" Then mtblName = rsSchema!Table_name Set mNodeTables = tvwDB.Nodes.Add("RootDB", tvwChild, "X" & mtblName, _ mtblName, "imgTable") mNodeTables.Tag = "Tables" End If End If rsSchema.MoveNext Loop rsSchema.Close If mNodeTables Is Nothing Then Me.MousePointer = vbDefault MsgBox "No table in the database" Exit Sub End If ' REDIM gstrFields and gstrFieldsOrig according to No. of tables in DB mNumTables = tvwDB.Nodes("RootDB").Children ReDim gstrFields(mNumTables, 2) As String ReDim gstrFieldsOrig(mNumTables, 2) As String '---------------------------------------------------------------------- ' Set field nodes for each table (at the same time fill first dimension ' of gstrFields and gstrFieldsOrig) ' We only want field Name, Type, DefinedSize, Attributes & NumericScale ' totalling 6. '---------------------------------------------------------------------- Set rs = New adodb.Recordset mctn = tvwDB.Nodes("RootDB").Children ' We begin with the first table, but what is its node index in Nodex? n = tvwDB.Nodes("RootDB").Child.FirstSibling.Index ' The Nodes collection is a 1-based collection. mSeq = 0 For i = n To mctn + n - 1 mtblName = tvwDB.Nodes(i).Text ' We have the table name, so we Query that table in order to get ' the field names. 1 record is more than good enough, hence the ' second argument is 1. Set rs = gAcnn.Execute("SELECT * FROM [" & mtblName & "]", 1, 1) For j = 0 To rs.Fields.Count - 1 mFldName = rs.Fields(j).Name Set mnodeFields = tvwDB.Nodes.Add("X" & mtblName, tvwChild, _ mFldName & "X" & CStr(mSeq), mFldName, "imgField") mnodeFields.Tag = "Fields" mSeq = mSeq + 1 Next rs.Close ' Fill first dimension of gstrFields and gstrFieldsOrig with table name ' (starting with subscript 0) gstrFields(i - n, 1) = mtblName gstrFieldsOrig(i - n, 1) = mtblName Next i ' Sort the top group of nodes. tvwDB.Nodes(1).Sorted = True ' Expand top node. tvwDB.Nodes(1).Expanded = True ' Hide these buttons cboQueryTemplate.Visible = False cmdQueryExecute.Visible = False cmdQueryClear.Visible = False cmdQueryAbort.Visible = False txtQuery.Visible = False Me.MousePointer = vbDefault mSuspend = False Exit Sub End Sub Private Sub Form_Activate() ' Effectively continued from Form_load If mNodeTables Is Nothing Then Unload Me End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim i As Integer For i = Forms.Count - 1 To 0 Step -1 If Forms(i).Name <> "frmFrame" Then Unload Forms(i) End If Next End Sub Private Sub cmdQuery_Click() ' Allow/disallow buttons cboQueryTemplate.Visible = True cmdQueryAbort.Visible = True cmdQueryClear.Visible = True cmdQueryExecute.Visible = True cmdQuery.Visible = False cmdTable.Visible = False cmdClose.Visible = False txtQuery.Visible = True txtQuery.SetFocus End Sub ' Called from tvwDB_Dblclick Private Sub GetProperties(mtblName, mFldName, mNodeKey) ' Query that retrieves the fields Set rs = gAcnn.Execute("SELECT * FROM [" & mtblName & "]", 1, 1) lvwProperties.ListItems.Clear Dim i As Integer Dim mthisFldName As String Dim mType As Long Dim mAttr Dim mstrType As String Dim mstrAttr As String Dim mDefinedSize Dim mNumericScale Dim mPrecision For i = 0 To rs.Fields.Count - 1 If CStr(rs.Fields(i).Name) = mFldName Then mthisFldName = rs.Fields(i).Name mType = rs.Fields(i).Type mstrType = ConvType(mType) mAttr = rs.Fields(i).Attributes mstrAttr = ConvAttr(mAttr) mDefinedSize = rs.Fields(i).DefinedSize mNumericScale = rs.Fields(i).NumericScale mPrecision = rs.Fields(i).Precision Set mListItem = lvwProperties.ListItems.Add(, , _ Text:="Name:", SmallIcon:="imgProp") mListItem.SubItems(1) = mthisFldName Set mListItem = lvwProperties.ListItems.Add(, , _ Text:="Type:", SmallIcon:="imgProp") mListItem.SubItems(1) = mstrType Set mListItem = lvwProperties.ListItems.Add(, , _ Text:="Attributes:", SmallIcon:="imgProp") mListItem.SubItems(1) = mstrAttr Set mListItem = lvwProperties.ListItems.Add(, , _ Text:="DefinedSize:", SmallIcon:="imgProp") mListItem.SubItems(1) = mDefinedSize Set mListItem = lvwProperties.ListItems.Add(, , _ Text:="NumericScale:", SmallIcon:="imgProp") mListItem.SubItems(1) = mNumericScale Set mListItem = lvwProperties.ListItems.Add(, , _ Text:="Precision:", SmallIcon:="imgProp") mListItem.SubItems(1) = mPrecision Exit For End If Next i lblTableName.Caption = Space(4) & mtblName lblFieldName.Caption = Space(4) & mFldName rs.Close Set rs = Nothing mCurrListRef = mNodeKey End Sub Private Sub tvwDB_Click() Dim tmpNode As Node Dim tmtes' mSeqDefinedSizmes.List Next i ema e As NodeB_ClicyExecute.Visible = Truems(1) = mNumevate Sub tvwn.Visibl = mNVisible =bs.List NeADO.frx":39B3 gAcnn.le =bs.Lme.Caption = Space(4) & mFldName rs.Close Set r rs.Fiel.le =bs.Lmm = lvwProperties.ListItems.Add(, , _ Text:="Precision:", Smlaec(1) = mNumericScale rop") mListItem.SubItems(1) iems(1) iScaended = True ' HideeeeeeeeeeeeeeeeeeeeeeeeeeeeeIle =bs.List NeADO.frx":39B3 List =bs.List NNNNNNNNNv lvwPrope=bs.LieryClear.VisimCu(efinedSize,erties.L.frx":39B3 List le =bs.Lme.Caption = Spa) = mNumericScpeeeeeIle =bsning seaec(1) x":39Bt NNTreeView. '-----------------------==========eeeeIe==eeeeIe==eeeeIe==eeeeIe==et'Configure T Set mLis g Then O.frx":39 Set mLis g The tv es' mSeqDefinedSizmes.List Next i ema e As NodeB_ClicyExecute.Visible = Truems(1) = mNumevate Sub tvwn.Visibl = mNVisible =bs.List NeADO.frx":39B3 gAcnn.le =bs.Lme.Caption = Space(4) & mFldName rs.Close Set r rs.Fiel.le =bs.L.le =bs.Lme.Caption =t ption =t ption Node Di=bs.Lme..le =bs.Lme.Lme.Captit r rs.Fiel"Precision:", Smlaec(1) = = mNumevataption =t p O.frs.List s.Add(, , _ ="imgPrnrst dime .le '(, , _-------------------------------------- ' (1) To show how tmFldName, dd(, , _ ="imgPrnrst dime Set mLima e As NodeB_ClicyExe = = = = = =. =bs.st NeA & mFldName s.List stItemsAs NoeeeeIe==eeeeIe=bs.lts nodlme ' In a c.l(1) r------- ' (1) To sties.ListItems.Add(, , _ Oset , , _ v = SiaTicScale s.L.frx------ " & mtblNaDB_Click() cmdQuer vole = rs.Fields(i).NumericScalme.Captit t '.Ca cmdQuer cmdQue- _d:As Boolean bs.List N _d:sylT mDefinedS-- ' (1).ks.lts nodlm ' (1).ks.l,,,,,,,,,,,,,, = SiaTicScale s.L.frx-TicScale s.L.frx-TicScale s.L.frx-------- ' (1) TTicScale s.L.frx-------- .Visible =DaVisible =bs.Lis- SeLme..le =bs.Lme.Lme.Captit r rs.Fiel"Precision:", Smlaec(1)-- ' (1) To sties.ListItems.Add(, , _ c mF ' es.ListItems.AdL.frx":39B3 , = SiaTicScale Do Until rsScale DoicScale l 0 T (1) TTicScale s.L.frx-------- .Visible =DaVisible =bs.Li- 1 Captit mallIcx-------- tablel,,,,,,,,,sipt 0) tc l 0 ' (1).ks.lts n--- " blel,,,,,,,Prope"Fields" mtblNacale ,,,,Prope"abs.Lm,,Prope"FietblNa ,,Prop n--- ale Do Until rsScaietblNa ,,ProropevwDBXsible =DaV sScaiet1) dd= rs.FielDaV pe"Fities.ListItem = = = ' (1) TTirDaV pe"FeqDefcoloumnG' 393216 gAcnn.le =b Di=bs.Lme..le aiet1tabase =-- icScalme.Captit f End Su Me.MousePointer = vbDefault mSuspend = False Exit Sub End S rle aip ",Prope"pend, delete) To stcision:".Captionf optJetVersil----ce(4) & mFldN4) & mFldN4) & mFldN4) =