Hi
I found some code sometime ago and created a class to open a project and load a datagrid I am trying to create a new project with a similar startup but I cannot get it to work here is my original code
Please help its driving me nuts
I found some code sometime ago and created a class to open a project and load a datagrid I am trying to create a new project with a similar startup but I cannot get it to work here is my original code
Code:
VB6
Option Explicit
'clsTitles - wraps up Pension Titles Table. By keeping the
'interface cosistent it should be possible to move the class
'to a point at some other data source, such as RDO ResultTest,
'on a flat file, without the users of the class ever noticing.
Public Event DataChange()
'Public members to implement properties
'for Titles DB
Public strfName As String
Public strmName As String
Public strsName As String
Private m_PenName(5) As String
Private m_PenVal(7) As Currency
Public strPTSel1 As String
Public strPTSel2 As String
Public strPTSel3 As String
Public strPTSel4 As String
Public strYear As String
Public strMNum1 As String
Public strWNum1 As String
Public strMNum2 As String
Public strWNum2 As String
Public strMthly1 As String
Public strWkly1 As String
Public strMthly2 As String
Public strWkly2 As String
Public strValM1 As String
Public strValM2 As String
Public strValW1 As String
Public strValW2 As String
'Public members for Bank Control
Public strBSName As String
Public strBFName As String
Public strBMName As String
Public strBJFName As String
Public strBJMName As String
Public strBankName As String
Public strIbanNum As String
Private m_AccNum(11) As String
Public strYears As String
Private m_InterSum(11) As Currency
Private m_GrossSum(20) As Double
Private m_SortCode(5) As String
Public dteDate As Date 'Variant
Public strMyDate As String
Public strNumsAcc1 As String, strNumsAcc2 As String, strNumsAcc3 As String
'Public Members for Bank Sort Control
Public strSortName As String
Public strSortBName As String
Public strSortIban As String
Public strSortYear As String
'Public members for Bank Address
Public strAddress As String
Public strTown As String
Public strCounty As String
Public strPostCode As String
Public strCountry As String
Public strBICNum As String
'For Front Page and Login Control
Public strTitle As String
Public strID As String
Public strLogin As String
Public strPassWd As String
Public strGuid As String
'Private members to hold connection to Database
'and the recordset itself
Public strConn As ADODB.Connection 'My Connection
Public Rs As ADODB.Recordset 'My Recordset Pension
Public Rsb As ADODB.Recordset 'My Recordset Bank
Public Rst As ADODB.Recordset 'Search with Bankname
Public Rsa As ADODB.Recordset 'My Bank Address
Public Rsd As ADODB.Recordset 'My Data and Owner
Public Rsy As ADODB.Recordset 'My Year Search
Public strSQLData As String 'My Data and Owner
Public strSQLFind As String 'My Find on Pension
Public strQuery As String 'My Command Pension
Public strSQL As String 'My Command Bank
Public strSQLSort As String 'My Bank Name Sort
Public strSQLBank As String 'My Bank Address
Public strSQLYear As String 'My Bank by Year
'Get to use Private Array Account Number:- Banking
Public Property Get strAccNum(ByVal Index As Long) As String
strAccNum = m_AccNum(Index)
End Property
'Let to use Private Array Account Number:- Banking
Public Property Let strAccNum(ByVal Index As Long, ByVal New_strAccNum As String)
m_AccNum(Index) = New_strAccNum
End Property
'Get to use Private Array Interest :- Banking
Public Property Get strInterSum(ByVal Index As Long) As Single
strInterSum = m_InterSum(Index)
End Property
'Let to use Private Array Interest :- Banking
Public Property Let strInterSum(ByVal Index As Long, ByVal New_strInterSum As Single)
m_InterSum(Index) = New_strInterSum
End Property
'Get to use Private Array Balance :- Banking
Public Property Get strGrossSum(ByVal Index As Long) As Double 'Currency
strGrossSum = m_GrossSum(Index)
End Property
'Let to use Private Array Balance :- Banking
Public Property Let strGrossSum(ByVal Index As Long, ByVal New_strGrossSum As Double)
m_GrossSum(Index) = New_strGrossSum
End Property
'Get to use Private Array SortCode :- Banking
Public Property Get strSortCode(ByVal Index As Long) As String
strSortCode = m_SortCode(Index)
End Property
'Let to use Private Array Sort Code :- Banking
Public Property Let strSortCode(ByVal Index As Long, ByVal New_strSortCode As String)
m_SortCode(Index) = New_strSortCode
End Property
'Get to use Private Array Account Number :- Pension
Public Property Get strPenName(ByVal Index As Long) As String
strPenName = m_PenName(Index)
End Property
'Let to use Private Array Account Number :- Pension
Public Property Let strPenName(ByVal Index As Long, ByVal New_strPenName As String)
m_PenName(Index) = New_strPenName
End Property
'Get to use Private Array Account Number :- Pension
Public Property Get strPenVal(ByVal Index As Long) As Currency
strPenVal = m_PenVal(Index)
End Property
'Let to use Private Array Account Number :- Pension
Public Property Let strPenVal(ByVal Index As Long, ByVal New_strPenVal As Currency)
m_PenVal(Index) = New_strPenVal
End Property
Public Sub Class_Initialize()
'When an instance of the class is created, we want to
'connect to the Database and open up the Database Table.
'Set,describe,and open the connection to the database
'ReDim strMNum(1 To 2)
'ReDim strWNum(1 To 2)
'frmTopFront.Yr = 2008
'---------------Declarations----------------
Set frmTopFront.dgdControl.DataSource = Nothing
Set frmTopFront.dgdBanking.DataSource = Nothing
Set frmTopFront.dbgSo*****k.DataSource = Nothing
Set frmTopFront.dgdPass.DataSource = Nothing
'---------------Connection------------------
dbPath = App.Path '"C:\Program Files\Microsoft Visual Studio\VB98\Ron Files\Pension\"
Set strConn = New ADODB.Connection
'strConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & "Pension.accdb"
strConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\Rons VB Files\Pension\Pension.accdb"
strConn.CursorLocation = adUseClient
'Set and define your command
'Pension
strQuery = "SELECT * FROM Pension " & _
" ORDER BY Year ASC,LastName,FirstName"
'Banking 1
strSQL = "SELECT * FROM Banking " & _
" ORDER BY Year ASC,BankName,AccountName"
'Banking 2
strSQLSort = "SELECT * FROM Banking WHERE BankName = 'Halifax' ORDER BY Year DESC,AccountName,BankName"
'Data and Pass
strSQLData = "SELECT * FROM Pass"
'Set and Define RecordSet Pension
With frmTopFront
.adoControl.ConnectionString = strConn
.adoControl.RecordSource = strQuery
' Debug.Print dbPath
' Debug.Print strQuery
' Debug.Print strConn
Set .dgdControl.DataSource = .adoControl
.dgdControl.Columns(4).NumberFormat = "0.00"
.dgdControl.Columns(5).NumberFormat = "0.00"
.dgdControl.Columns(8).NumberFormat = "0.00"
.dgdControl.Columns(9).NumberFormat = "0.00"
.dgdControl.Columns(12).NumberFormat = "0.00"
.dgdControl.Columns(13).NumberFormat = "0.00"
.dgdControl.Columns(16).NumberFormat = "0.00"
.dgdControl.Columns(17).NumberFormat = "0.00"
.dgdControl.Columns(19).NumberFormat = "0000"
.dgdControl.Columns(20).NumberFormat = "00"
.dgdControl.Columns(21).NumberFormat = "00"
.dgdControl.Columns(22).NumberFormat = "00"
.dgdControl.Columns(23).NumberFormat = "00"
.dgdControl.Columns(28).NumberFormat = "0.00"
.dgdControl.Columns(29).NumberFormat = "0.00"
.dgdControl.Columns(30).NumberFormat = "0.000"
.dgdControl.Columns(31).NumberFormat = "0.000"
End With
'Set and Define Recordset Banking 1
With frmTopFront
.adoBanking.ConnectionString = strConn
.adoBanking.RecordSource = strSQL
Set .dgdBanking.DataSource = .adoBanking
.dgdBanking.Columns(6).NumberFormat = "0.00" 'i = Interest
.dgdBanking.Columns(7).NumberFormat = "0000" 'b = Balance
.dgdBanking.Columns(8).NumberFormat = "0000" 'b
.dgdBanking.Columns(9).NumberFormat = "0000" 'b
.dgdBanking.Columns(10).NumberFormat = "0000" 'b
.dgdBanking.Columns(13).NumberFormat = "0.00" 'i
.dgdBanking.Columns(14).NumberFormat = "0000" 'b
.dgdBanking.Columns(15).NumberFormat = "0000" 'b
.dgdBanking.Columns(16).NumberFormat = "0000" 'b
.dgdBanking.Columns(17).NumberFormat = "0000" 'b
.dgdBanking.Columns(20).NumberFormat = "0.00" 'i
.dgdBanking.Columns(21).NumberFormat = "0000" 'b
.dgdBanking.Columns(22).NumberFormat = "0000" 'b
.dgdBanking.Columns(23).NumberFormat = "0000" 'b
.dgdBanking.Columns(24).NumberFormat = "0000" 'b
.dgdBanking.Columns(27).NumberFormat = "0.00" 'i
.dgdBanking.Columns(30).NumberFormat = "0.00" 'i
.dgdBanking.Columns(33).NumberFormat = "0.00" 'i
End With
'Set and Define Recordset Banking 2
With frmTopFront
.adoSo*****k.ConnectionString = strConn
.adoSo*****k.RecordSource = strSQLSort
Set .dbgSo*****k.DataSource = .adoSo*****k
.dbgSo*****k.Columns(6).NumberFormat = "0.00" 'i = Interest
.dbgSo*****k.Columns(7).NumberFormat = "0000" 'b = Balance
.dbgSo*****k.Columns(8).NumberFormat = "0000" 'b
.dbgSo*****k.Columns(9).NumberFormat = "0000" 'b
.dbgSo*****k.Columns(10).NumberFormat = "0000" 'b
.dbgSo*****k.Columns(11).NumberFormat = "00" 'a = Account
.dbgSo*****k.Columns(13).NumberFormat = "0000" 'i
.dbgSo*****k.Columns(14).NumberFormat = "0000" 'b
.dbgSo*****k.Columns(15).NumberFormat = "0000" 'b
.dbgSo*****k.Columns(16).NumberFormat = "0000" 'b
.dbgSo*****k.Columns(17).NumberFormat = "0000" 'b
.dbgSo*****k.Columns(18).NumberFormat = "00" 'a
.dbgSo*****k.Columns(20).NumberFormat = "0.00" 'i
.dbgSo*****k.Columns(21).NumberFormat = "0000" 'b
.dbgSo*****k.Columns(22).NumberFormat = "0000" 'b
.dbgSo*****k.Columns(23).NumberFormat = "0000" 'b
.dbgSo*****k.Columns(24).NumberFormat = "0000" 'b
.dbgSo*****k.Columns(27).NumberFormat = "0.00" 'i
.dbgSo*****k.Columns(30).NumberFormat = "0.00" 'i
.dbgSo*****k.Columns(33).NumberFormat = "0.00" 'i
End With
'Set and Define Recordset Data
With frmTopFront
.adoPass.ConnectionString = strConn
.adoPass.RecordSource = strSQLData
Set .dgdPass.DataSource = .adoPass
End With
'Set and Define Recordset Address
With frmTopFront
End With
'Pension
Set Rs = New ADODB.Recordset
With Rs
.ActiveConnection = strConn
.CursorType = adOpenStatic
.Source = strQuery
End With
'Banking 1
Set Rsb = New ADODB.Recordset
With Rsb
.ActiveConnection = strConn
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Source = strSQL
.Open
' .Requery
End With
' Rsb.Requery
' frmTopFront.dgdBanking.Refresh
'Banking 2
Set Rst = New ADODB.Recordset
With Rst
.ActiveConnection = strConn
.CursorType = adOpenDynamic
.Source = strSQLSort
.Open
End With
'Bank Address
Set Rsa = New ADODB.Recordset
With Rsa
.ActiveConnection = strConn
.CursorType = adOpenDynamic
.Source = strSQLBank
End With
'Data and Pass
Set Rsd = New ADODB.Recordset
With Rsd
.ActiveConnection = strConn
.CursorType = adOpenDynamic
.Source = strSQLData
End With
With frmTopFront.dgdControl
strsName = "" & .Columns(0)
strfName = "" & .Columns(1)
strmName = "" & .Columns(2)
m_PenName(0) = "" & .Columns(3)
m_PenVal(0) = CCur(.Columns(4))
m_PenVal(1) = CCur(.Columns(5))
strPTSel1 = "" & .Columns(6)
m_PenName(1) = "" & .Columns(7)
m_PenVal(2) = CCur(.Columns(8))
m_PenVal(3) = CCur(.Columns(9))
strPTSel2 = "" & .Columns(10)
m_PenName(2) = "" & .Columns(11)
m_PenVal(4) = CCur(.Columns(12))
m_PenVal(5) = CCur(.Columns(13))
strPTSel3 = "" & .Columns(14)
m_PenName(4) = "" & .Columns(15)
m_PenVal(6) = CCur(.Columns(16))
m_PenVal(7) = CCur(.Columns(17))
strPTSel4 = "" & .Columns(18)
strYear = "" & .Columns(19)
strWNum1 = "" & .Columns(20)
strMNum1 = "" & .Columns(21)
strWNum2 = "" & .Columns(22)
strMNum2 = "" & .Columns(23)
strWkly1 = "" & .Columns(24)
strMthly1 = "" & .Columns(25)
strWkly2 = "" & .Columns(26)
strMthly2 = "" & .Columns(27)
strValM1 = "" & .Columns(28)
strValM2 = "" & .Columns(29)
strValW1 = "" & .Columns(30)
strValW2 = "" & .Columns(31)
End With
With frmTopFront.dgdBanking
strBSName = "" & .Columns(0)
strBankName = "" & .Columns(1)
strIbanNum = "" & .Columns(2)
strYears = "" & .Columns(3)
m_AccNum(0) = "" & .Columns(4)
m_SortCode(0) = "" & .Columns(5)
m_InterSum(0) = "" & .Columns(6)
m_GrossSum(0) = "" & .Columns(7)
m_GrossSum(1) = "" & .Columns(8)
m_GrossSum(2) = "" & .Columns(9)
m_GrossSum(3) = "" & .Columns(10)
m_AccNum(1) = "" & .Columns(11)
m_SortCode(1) = "" & .Columns(12)
m_InterSum(1) = "" & .Columns(13)
m_GrossSum(4) = "" & .Columns(14)
m_GrossSum(5) = "" & .Columns(15)
m_GrossSum(6) = "" & .Columns(16)
m_GrossSum(7) = "" & .Columns(17)
m_AccNum(2) = "" & .Columns(18)
m_SortCode(2) = "" & .Columns(19)
m_InterSum(2) = "" & .Columns(20)
m_GrossSum(8) = "" & .Columns(21)
m_GrossSum(9) = "" & .Columns(22)
m_GrossSum(10) = "" & .Columns(23)
m_GrossSum(11) = "" & .Columns(24)
m_AccNum(3) = "" & .Columns(25)
m_SortCode(3) = "" & .Columns(26)
m_InterSum(3) = "" & .Columns(27)
m_AccNum(4) = "" & .Columns(28)
m_SortCode(4) = "" & .Columns(29)
m_InterSum(4) = "" & .Columns(30)
m_AccNum(5) = "" & .Columns(31)
m_SortCode(5) = "" & .Columns(32)
m_InterSum(5) = "" & .Columns(33)
strAddress = "" & .Columns(34)
strTown = "" & .Columns(35)
strCounty = "" & .Columns(36)
strPostCode = "" & .Columns(37)
strCountry = "" & .Columns(38)
strBICNum = "" & .Columns(39)
' dteDate = "" & .Columns(40)
End With
With frmTopFront.dbgSo*****k
strBSName = "" & .Columns(0)
strSortBName = "" & .Columns(1)
strIbanNum = "" & .Columns(2)
strYears = "" & .Columns(3)
m_AccNum(0) = "" & .Columns(4)
m_SortCode(0) = "" & .Columns(5)
m_InterSum(0) = "" & .Columns(6)
m_GrossSum(0) = "" & .Columns(7)
m_GrossSum(1) = "" & .Columns(8)
m_GrossSum(2) = "" & .Columns(9)
m_GrossSum(3) = "" & .Columns(10)
m_AccNum(1) = "" & .Columns(11)
m_SortCode(1) = "" & .Columns(12)
m_InterSum(1) = "" & .Columns(13)
m_GrossSum(4) = "" & .Columns(14)
m_GrossSum(5) = "" & .Columns(15)
m_GrossSum(6) = "" & .Columns(16)
m_GrossSum(7) = "" & .Columns(17)
m_AccNum(2) = "" & .Columns(18)
m_SortCode(2) = "" & .Columns(19)
m_InterSum(2) = "" & .Columns(20)
m_GrossSum(8) = "" & .Columns(21)
m_GrossSum(9) = "" & .Columns(22)
m_GrossSum(10) = "" & .Columns(23)
m_GrossSum(11) = "" & .Columns(24)
m_AccNum(3) = "" & .Columns(25)
m_SortCode(3) = "" & .Columns(26)
m_InterSum(3) = "" & .Columns(27)
m_AccNum(4) = "" & .Columns(28)
m_SortCode(4) = "" & .Columns(29)
m_InterSum(4) = "" & .Columns(30)
m_AccNum(5) = "" & .Columns(31)
m_SortCode(5) = "" & .Columns(32)
m_InterSum(5) = "" & .Columns(33)
strAddress = "" & .Columns(34)
strTown = "" & .Columns(35)
strCounty = "" & .Columns(36)
strPostCode = "" & .Columns(37)
strCountry = "" & .Columns(38)
strBICNum = "" & .Columns(39)
' dteDate = "" & .Columns(40)
End With
With frmTopFront.dgdPass
strTitle = "" & .Columns(0)
strID = "" & .Columns(1)
End With
ourTitle = strTitle
End Sub
Public Sub Reload_Members()
'Reloads the member variables (Properties) with the Field
'values of the current record
On Error GoTo Reload_Members_Error
If RunPen = True Then
With frmTopFront.dgdControl
strsName = "" & .Columns(0)
strfName = "" & .Columns(1)
strmName = "" & .Columns(2)
m_PenName(0) = "" & .Columns(3)
m_PenVal(0) = "" & .Columns(4)
m_PenVal(1) = "" & .Columns(5)
strPTSel1 = "" & .Columns(6)
m_PenName(1) = "" & .Columns(7)
m_PenVal(2) = "" & .Columns(8)
m_PenVal(3) = "" & .Columns(9)
strPTSel2 = "" & .Columns(10)
m_PenName(2) = "" & .Columns(11)
m_PenVal(4) = "" & .Columns(12)
m_PenVal(5) = "" & .Columns(13)
strPTSel3 = "" & .Columns(14)
m_PenName(4) = "" & .Columns(15)
m_PenVal(6) = "" & .Columns(16)
m_PenVal(7) = "" & .Columns(17)
strPTSel4 = "" & .Columns(18)
strYear = "" & .Columns(19)
strWNum1 = "" & .Columns(20)
strMNum1 = "" & .Columns(21)
strWNum2 = "" & .Columns(22)
strMNum2 = "" & .Columns(23)
strWkly1 = "" & .Columns(24)
strMthly1 = "" & .Columns(25)
strWkly2 = "" & .Columns(26)
strMthly2 = "" & .Columns(27)
strValM1 = "" & .Columns(28)
strValM2 = "" & .Columns(29)
strValW1 = "" & .Columns(30)
strValW2 = "" & .Columns(31)
End With
Else
With frmTopFront.dgdBanking
strBSName = "" & .Columns(0)
strBankName = "" & .Columns(1)
strIbanNum = "" & .Columns(2)
strYears = "" & .Columns(3)
m_AccNum(0) = "" & .Columns(4)
m_SortCode(0) = "" & .Columns(5)
m_InterSum(0) = "" & .Columns(6)
m_AccNum(1) = "" & .Columns(11)
m_SortCode(1) = "" & .Columns(12)
m_InterSum(1) = "" & .Columns(13)
m_AccNum(2) = "" & .Columns(18)
m_SortCode(2) = "" & .Columns(19)
m_InterSum(2) = "" & .Columns(20)
m_AccNum(3) = "" & .Columns(25)
m_SortCode(3) = "" & .Columns(26)
m_InterSum(3) = "" & .Columns(27)
m_AccNum(4) = "" & .Columns(28)
m_SortCode(4) = "" & .Columns(29)
m_InterSum(4) = "" & .Columns(30)
m_AccNum(5) = "" & .Columns(31)
m_SortCode(5) = "" & .Columns(32)
m_InterSum(5) = "" & .Columns(33)
strAddress = "" & .Columns(34)
strTown = "" & .Columns(35)
strCounty = "" & .Columns(36)
strPostCode = "" & .Columns(37)
strCountry = "" & .Columns(38)
strBICNum = "" & .Columns(39)
End With
End If
' Exit Sub
Reload_Members_Error:
' Exit Sub
End Sub
Public Sub ReLoad_Sorted_Members()
With frmTopFront.dbgSo*****k
strBSName = "" & .Columns(0)
strSortBName = "" & .Columns(1)
strIbanNum = "" & .Columns(2)
strYears = "" & .Columns(3)
m_AccNum(0) = "" & .Columns(4)
m_SortCode(0) = "" & .Columns(5)
m_InterSum(0) = "" & .Columns(6)
m_GrossSum(0) = "" & .Columns(7)
m_GrossSum(1) = "" & .Columns(8)
m_GrossSum(2) = "" & .Columns(9)
m_GrossSum(3) = "" & .Columns(10)
m_AccNum(1) = "" & .Columns(11)
m_SortCode(1) = "" & .Columns(12)
m_InterSum(1) = "" & .Columns(13)
m_GrossSum(4) = "" & .Columns(14)
m_GrossSum(5) = "" & .Columns(15)
m_GrossSum(6) = "" & .Columns(16)
m_GrossSum(7) = "" & .Columns(17)
m_AccNum(2) = "" & .Columns(18)
m_SortCode(2) = "" & .Columns(19)
m_InterSum(2) = "" & .Columns(20)
m_GrossSum(8) = "" & .Columns(21)
m_GrossSum(9) = "" & .Columns(22)
m_GrossSum(10) = "" & .Columns(23)
m_GrossSum(11) = "" & .Columns(24)
m_AccNum(3) = "" & .Columns(25)
m_SortCode(3) = "" & .Columns(26)
m_InterSum(3) = "" & .Columns(27)
m_AccNum(4) = "" & .Columns(28)
m_SortCode(4) = "" & .Columns(29)
m_InterSum(4) = "" & .Columns(30)
m_AccNum(5) = "" & .Columns(31)
m_SortCode(5) = "" & .Columns(32)
m_InterSum(5) = "" & .Columns(33)
End With
End Sub
Public Sub Reload_ForPrint()
On Error GoTo Reload_Members_Error
With frmTopFront.dgdControl
frmTopFront.adoControl.Recordset.MoveNext
strsName = "" & .Columns(0)
strfName = "" & .Columns(1)
strmName = "" & .Columns(2)
frmDBD_Report.lblName = frmDBD_Report.lblName & Space(1) & "and" & Space(1) & strfName & Space(1) & strmName & Space(1) & strsName
m_PenName(0) = "" & .Columns(3)
m_PenVal(0) = "" & .Columns(4)
m_PenVal(1) = "" & .Columns(5)
strPTSel1 = "" & .Columns(6)
m_PenName(1) = "" & .Columns(7)
m_PenVal(2) = "" & .Columns(8)
m_PenVal(3) = "" & .Columns(9)
strPTSel2 = "" & .Columns(10)
m_PenName(2) = "" & .Columns(11)
m_PenVal(4) = "" & .Columns(12)
m_PenVal(5) = "" & .Columns(13)
strPTSel3 = "" & .Columns(14)
m_PenName(4) = "" & .Columns(15)
m_PenVal(6) = "" & .Columns(16)
m_PenVal(7) = "" & .Columns(17)
strPTSel4 = "" & .Columns(18)
strYear = "" & .Columns(19)
strWNum1 = "" & .Columns(20)
strMNum1 = "" & .Columns(21)
strWNum2 = "" & .Columns(22)
strMNum2 = "" & .Columns(23)
strWkly1 = "" & .Columns(24)
strMthly1 = "" & .Columns(25)
strWkly2 = "" & .Columns(26)
strMthly2 = "" & .Columns(27)
strValM1 = "" & .Columns(28)
strValM2 = "" & .Columns(29)
strValW1 = "" & .Columns(30)
strValW2 = "" & .Columns(31)
End With
Exit Sub
Reload_Members_Error:
Exit Sub
End Sub
Public Sub Update_Members()
'Used to update Edit
On Error GoTo Update_Members_Error
With frmTopFront.dgdControl
.Columns(1) = strfName
.Columns(2) = strmName
.Columns(4) = m_PenVal(0)
.Columns(5) = m_PenVal(1)
.Columns(8) = m_PenVal(2)
.Columns(9) = m_PenVal(3)
.Columns(11) = m_PenName(2)
.Columns(12) = m_PenVal(4)
.Columns(13) = m_PenVal(5)
.Columns(15) = m_PenName(4)
.Columns(16) = m_PenVal(6)
.Columns(17) = m_PenVal(7)
.Columns(19) = strYear
.Columns(20) = strWNum1
.Columns(21) = strMNum1
.Columns(22) = strWNum2
.Columns(23) = strMNum2
.Columns(24) = strWkly1
.Columns(25) = strMthly1
.Columns(26) = strValM1
.Columns(27) = strValM2
.Columns(28) = strValW1
.Columns(29) = strValW2
.Refresh
End With
Exit Sub
Update_Members_Error:
Exit Sub
End Sub
Public Sub myClrLabels()
'use by frmBrows_Pen
Dim i As Integer
For i = 1 To 8
If frmBrows_Pen.txtVal(i) <> "" Then frmBrows_Pen.txtVal(i) = ""
Next
End Sub
Public Sub myClrLabels2()
'use by frmBrows_Pen
Dim i As Integer
For i = 1 To 8
If frmDBS_Report.txtVal(i) <> "" Then frmDBS_Report.txtVal(i) = ""
Next
End Sub
Public Sub myLabelsClr()
'use by frmEditRecord
Dim i As Integer
With frmEditRecord
For i = 0 To 3
If .txtValA(i) <> "" Then .txtValA(i) = ""
If .txtValB(i) <> "" Then .txtValB(i) = ""
If .fmePDet(i).Visible = True Then .fmePDet(i).Visible = False
Next
End With
End Sub