azcomputerguru/claudetools
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
0a264ee3fabfdfded7e2bb64dc86ece16c31d99e
claudetools/clients/valleywide/app-modernization/source-code/SOURCE-HOLD/frmScaffold.frm
Mike Swanson 5359e7c49e feat(valleywide): recover VWP Orders VB6 source from D: backup drive 
Recovered Darv's VB6 source for the Valley Wide Plastering Orders
application from the D: backup drive (label "Backup", 8 TB, 5.3 TB used).
This is the first time we've had the actual source — prior session only
had a single frmPayroll.frm from the AD server.

Three project variants identified across two snapshots:
- Full-Project/   (2,129 files, 124 MB) — D:\Office-Estimates\Darv\Full\Project\
- Kingston-Project/ (2,189 files, 130 MB) — D:\Office-Estimates\Darv\Kingston\Project\
- Source/         (170 files, 559 MB)   — D:\Office-Estimates\Darv\Source\ wholesale
- SOURCE-HOLD/    (3 files, 1 MB)       — D:\Office-Estimates\Darv\SOURCE HOLD\

Latest ORDERS_C.vbp date is 2020-06-09 (Kingston snapshot). Production
Orders_10A.exe was live as of April 2024 — open question whether newer
source exists on other backup drives Mike will scan next.

Also includes per-category and per-keyword analysis CSVs from a WizTree
file-list export, plus the analyzer script that produced them
(re-runnable for the next drive's CSV).

VMs (VWIN7-DW.vdi 8.3 GB + XP-for-ORDERS_copy.vdi 2.8 GB), the live
VWP.mdb, and the 393 MB raw WizTree CSV stay on disk only — gitignored.

Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>
2026-05-16 17:36:27 -07:00

926 lines
25 KiB
Plaintext
Raw Blame History

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmScaffold
Caption = "Scaffolding Information"
ClientHeight = 4260
ClientLeft = 60
ClientTop = 345
ClientWidth = 8760
KeyPreview = -1 'True
LinkTopic = "Form1"
ScaleHeight = 4260
ScaleWidth = 8760
StartUpPosition = 3 'Windows Default
Begin VB.CheckBox chkPaid
Caption = "Paid"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 7080
TabIndex = 36
Top = 60
Width = 855
End
Begin VB.TextBox txt108
Height = 315
Left = 6180
TabIndex = 31
Top = 3000
Width = 435
End
Begin VB.TextBox txt68
Height = 315
Left = 6180
TabIndex = 30
Top = 2640
Width = 435
End
Begin VB.ComboBox cboArea
Height = 315
ItemData = "frmScaffold.frx":0000
Left = 5820
List = "frmScaffold.frx":001C
Style = 2 'Dropdown List
TabIndex = 27
Top = 1380
Width = 1275
End
Begin MSComCtl2.DTPicker dtpScaffold
Height = 315
Left = 5820
TabIndex = 26
Top = 960
Width = 1275
_ExtentX = 2249
_ExtentY = 556
_Version = 393216
Format = 20381697
CurrentDate = 37103
End
Begin VB.ComboBox cboSCrew
Height = 315
Left = 5820
Style = 2 'Dropdown List
TabIndex = 25
Top = 540
Width = 2535
End
Begin VB.Frame fraStory
Caption = "House Size"
Height = 855
Left = 6900
TabIndex = 22
Top = 3360
Width = 1515
Begin VB.OptionButton optStory
Caption = "Single Story"
Height = 255
Index = 1
Left = 180
TabIndex = 24
Top = 480
Width = 1155
End
Begin VB.OptionButton optStory
Caption = "Two Story"
Height = 195
Index = 0
Left = 180
TabIndex = 23
Top = 240
Width = 1095
End
End
Begin VB.TextBox txtMin
Alignment = 1 'Right Justify
Height = 315
Left = 6420
TabIndex = 18
Top = 2040
Width = 435
End
Begin VB.TextBox txtHrs
Alignment = 1 'Right Justify
Height = 315
Left = 5820
TabIndex = 17
Top = 2040
Width = 435
End
Begin VB.CommandButton cmdDelete
Caption = "&Delete"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 7320
TabIndex = 14
TabStop = 0 'False
Top = 2100
Width = 1035
End
Begin VB.TextBox txtNotes
Height = 1335
Left = 180
TabIndex = 7
Top = 2820
Width = 5115
End
Begin VB.CommandButton cmdExit
Caption = "&Exit"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 7320
TabIndex = 12
TabStop = 0 'False
Top = 2700
Width = 1035
End
Begin VB.CommandButton cmdSave
Caption = "&Save"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 7320
TabIndex = 11
TabStop = 0 'False
Top = 1500
Width = 1035
End
Begin VB.CommandButton cmdAdd
Caption = "&Add"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 7320
TabIndex = 10
TabStop = 0 'False
Top = 900
Width = 1035
End
Begin VB.Frame fraUPDown
Caption = "Scaffold Action"
Height = 855
Left = 5460
TabIndex = 4
Top = 3360
Width = 1395
Begin VB.OptionButton optScaffold
Caption = "Take Down"
Height = 255
Index = 1
Left = 180
TabIndex = 6
Top = 480
Width = 1155
End
Begin VB.OptionButton optScaffold
Caption = "Put Up"
Height = 315
Index = 0
Left = 180
TabIndex = 5
Top = 180
Width = 1095
End
End
Begin VB.ListBox lstScaffold
Height = 2010
Left = 180
TabIndex = 0
TabStop = 0 'False
Top = 480
Width = 5055
End
Begin VB.Label lblL108
Alignment = 1 'Right Justify
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 195
Left = 6720
TabIndex = 35
Top = 3060
Width = 360
End
Begin VB.Label lblL68
Alignment = 1 'Right Justify
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 195
Left = 6720
TabIndex = 34
Top = 2700
Width = 360
End
Begin VB.Label lblFrames
Caption = "Frame Count"
Height = 195
Left = 5760
TabIndex = 33
Top = 2400
Width = 1035
End
Begin VB.Label lbl108
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "10'8"":"
Height = 195
Left = 5730
TabIndex = 32
Top = 3060
Width = 420
End
Begin VB.Label lbl68
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "6'8"":"
Height = 195
Left = 5820
TabIndex = 29
Top = 2700
Width = 330
End
Begin VB.Label lblArea
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Area:"
Height = 195
Left = 5355
TabIndex = 28
Top = 1440
Width = 375
End
Begin VB.Label lblColon
Caption = ":"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 6300
TabIndex = 21
Top = 1920
Width = 135
End
Begin VB.Label lblMin
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Min"
Height = 195
Left = 6540
TabIndex = 20
Top = 1800
Width = 255
End
Begin VB.Label lblHrs
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Hrs"
Height = 195
Left = 5940
TabIndex = 19
Top = 1800
Width = 240
End
Begin VB.Label lblTime
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Time:"
Height = 195
Left = 5340
TabIndex = 16
Top = 2100
Width = 390
End
Begin VB.Label lblYards
BorderStyle = 1 'Fixed Single
Height = 315
Left = 5460
TabIndex = 15
Top = 60
Width = 1275
End
Begin VB.Label lblNotes
AutoSize = -1 'True
Caption = "Notes"
Height = 195
Left = 180
TabIndex = 13
Top = 2580
Width = 420
End
Begin VB.Label lblProjCode
BorderStyle = 1 'Fixed Single
Height = 315
Left = 180
TabIndex = 9
Top = 60
Width = 1095
End
Begin VB.Label lblCrew
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Crew:"
Height = 195
Left = 5325
TabIndex = 8
Top = 600
Width = 405
End
Begin VB.Label lblLotNo
BorderStyle = 1 'Fixed Single
Caption = " "
Height = 315
Left = 3780
TabIndex = 3
Top = 60
Width = 1635
End
Begin VB.Label lblProject
BorderStyle = 1 'Fixed Single
Caption = " "
Height = 315
Left = 1320
TabIndex = 2
Top = 60
Width = 2415
End
Begin VB.Label lblDate
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Date:"
Height = 195
Left = 5340
TabIndex = 1
Top = 1020
Width = 390
End
End
Attribute VB_Name = "frmScaffold"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim moRS As Recordset
Dim moRSProj As Recordset
Dim moRSCREW As Recordset
Dim mintPRCREW As Integer
Dim mboolAdding As Boolean, mstrAREA As String
Private Sub cmdAdd_Click()
cmdAdd.Enabled = False
cmdSave.Enabled = True
cmdDelete.Enabled = False
mboolAdding = True
Call FormClear
End Sub
Private Sub cmdDelete_Click()
Dim strSQL As String, strYN As String
On Error GoTo Error_EH
strYN = MsgBox("Are You Sure You Want To Delete?", vbCritical + vbYesNo, "Delete?")
If strYN = vbNo Then
Exit Sub
End If
moRSCREW.Delete
Call ScaffoldLoad
cmdAdd.Enabled = True
cmdSave.Enabled = False
cmdDelete.Enabled = False
Exit Sub
Error_EH:
gstrMODULE = "Form Scaffold - Module cmdDelete"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdSave_Click()
cmdAdd.Enabled = True
cmdSave.Enabled = False
cmdDelete.Enabled = False
Call FormSave
End Sub
Private Sub Form_Activate()
Dim intResponse As Integer
Dim strSQL As String
On Error GoTo Error_EH
If lstScaffold.ListCount = 0 Then
intResponse = MsgBox("No Scaffolding Information, do you wish to add some?", vbYesNo + vbQuestion, "Add Records")
If intResponse = vbYes Then
strSQL = "SELECT * FROM tblscaffold WHERE Lot_Id = 1"
Set moRSCREW = New Recordset
moRSCREW.Open strSQL, goConn, adOpenKeyset, adLockOptimistic
Call cmdAdd_Click
Else
Unload Me
End If
End If
Exit Sub
Error_EH:
gstrMODULE = "FormScaffold - Module Form_Activate"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim ShiftDown, AltDown, CtrlDown
If Shift = 4 Then
Exit Sub
End If
ShiftDown = (Shift And vbShiftMask) > 0
AltDown = (Shift And vbAltMask) > 0
CtrlDown = (Shift And vbCtrlMask) > 0
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{TAB}"
KeyAscii = 0
End If
End Sub
Private Sub Form_Load()
On Error GoTo Error_EH
Call CrewLoad
Call ScaffoldLoad
Call ProjLoad
If lstScaffold.ListIndex <> -1 Then
If FormFindCrew() Then
Call FormShowCrew
End If
End If
Exit Sub
Error_EH:
gstrMODULE = "FormScaffold - Module Form_Load"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub ScaffoldLoad()
Dim oRS As Recordset
Dim strSQL As String
Dim strLine As String, strCREW As String
Dim strPAID As String, strAMT As String
On Error GoTo Error_EH
' strSQL = "SELECT crew, scaf_date, Scaf_id, up, down from tblScaffold WHERE Lot_id = " & gintLOTID & " ORDER BY Scaf_date"
strSQL = "SELECT * from tblScaffold WHERE Lot_id = " & gintLOTID & " ORDER BY Scaf_date"
Set oRS = New Recordset
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
lstScaffold.Clear
Do Until oRS.EOF
With lstScaffold
cboSCrew.ListIndex = oRS!crew - 1
If oRS!paid Then
strPAID = "PD"
Else
strPAID = " "
End If
strAMT = Format(Field2Str2(oRS!pdamt), "#,#")
If oRS!up Then
strLine = Field2Str(oRS!scaf_date) & " " & "UP " & " " & cboSCrew.Text & vbTab & strPAID & vbTab & strAMT
ElseIf oRS!down Then
strLine = Field2Str(oRS!scaf_date) & " " & "DOWN" & " " & cboSCrew.Text & vbTab & strPAID & vbTab & strAMT
Else
strLine = "INVALID SCAFFOLD ENTRY - FIX"
End If
.AddItem strLine
.ItemData(.NewIndex) = oRS!scaf_id
End With
oRS.MoveNext
Loop
If lstScaffold.ListCount Then
lstScaffold.ListIndex = 0
Else
lstScaffold.ListIndex = -1
Call FormClear
End If
Exit Sub
Error_EH:
gstrMODULE = "Form Scaffold - Module ScaffoldLoad"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Function FormFindCrew() As Boolean
Dim strSQL As String
On Error GoTo Error_EH
strSQL = "SELECT * "
strSQL = strSQL & "FROM tblScaffold "
strSQL = strSQL & "WHERE Scaf_Id = " & lstScaffold.ItemData(lstScaffold.ListIndex)
Set moRSCREW = New Recordset
moRSCREW.Open strSQL, goConn, adOpenDynamic, adLockOptimistic
If moRSCREW.EOF Then
FormFindCrew = False
Else
FormFindCrew = True
End If
Exit Function
Error_EH:
gstrMODULE = "FormScaffold - Module FormFindCrew"
Call ErrorHandler2
gstrMODULE = ""
Exit Function
End Function
Private Sub FormShowCrew()
Dim strSQL As String
Dim oRS As Recordset
On Error GoTo Error_EH
With moRSCREW
cboSCrew.ListIndex = Field2Integer(!crew) - 1
dtpScaffold.Value = Field2Str(!scaf_date)
txtNotes = Field2Str(!notes)
txtHrs = Field2Str(!hrs)
txtMin = Field2Str(!Min)
txt68 = Field2Str2(!frame6)
txt108 = Field2Str2(!frame10)
mstrAREA = Field2Str(!Area)
If !paid Then
chkPaid = vbChecked
chkPaid.BackColor = &HFFFF&
Else
chkPaid = vbUnchecked
chkPaid.BackColor = &H8000000F
End If
If mstrAREA = "W" Then
cboArea.Text = "West"
ElseIf mstrAREA = "N" Then
cboArea.Text = "North"
ElseIf mstrAREA = "S" Then
cboArea.Text = "South"
ElseIf mstrAREA = "X" Then
cboArea.Text = "Xtra"
ElseIf mstrAREA = "2" Then
cboArea.Text = "2-North"
ElseIf mstrAREA = "3" Then
cboArea.Text = "3-North"
ElseIf mstrAREA = "4" Then
cboArea.Text = "4-South"
ElseIf mstrAREA = "5" Then
cboArea.Text = "5-West"
Else
cboArea.ListIndex = -1
End If
If !up Then
optScaffold(0).Value = True
ElseIf !down Then
optScaffold(1).Value = True
Else
optScaffold(0).Value = False
optScaffold(1).Value = False
End If
If !Single Then
optStory(1).Value = True
ElseIf !Double Then
optStory(0).Value = True
Else
optStory(0).Value = False
optStory(1).Value = False
End If
End With
Exit Sub
Error_EH:
gstrMODULE = "FormScaffold - Module FormShowCrew"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub FormClear()
dtpScaffold.Value = Date
cboSCrew.ListIndex = -1
txtNotes = ""
txtHrs = 0
txtMin = 0
cboArea.ListIndex = -1
optStory(0).Value = False
optStory(1).Value = False
optScaffold(0).Value = False
optScaffold(1).Value = False
End Sub
Private Sub FieldsSave()
Dim strLOT As String, test As String
On Error GoTo Error_EH
With moRSCREW
!U_USER = gstrLOGIN
!U_date = Date
If cboSCrew.ListIndex = -1 Then
!crew = 0
mintPRCREW = 0
Else
!crew = cboSCrew.ItemData(cboSCrew.ListIndex)
Call GetCrew
End If
!prcrew = mintPRCREW
!scaf_date = dtpScaffold.Value
!hrs = Str2Field(txtHrs)
!Min = Str2Field(txtMin)
!Area = Left((cboArea.Text), 1)
!notes = Str2Field(txtNotes)
!proj_lot = Str2Field(Trim(lblProject) & " " & lblLotNo)
!up = Field2CheckBox(optScaffold(0))
!down = Field2CheckBox(optScaffold(1))
!Single = Field2CheckBox(optStory(1))
!Double = Field2CheckBox(optStory(0))
!frame6 = Str2Field(txt68)
!frame10 = Str2Field(txt108)
End With
moRSCREW.Update
Call ScaffoldLoad
If mboolAdding Then
Call ScaffoldLoad
If FormFindCrew() Then
Call FormShowCrew
End If
End If
Exit Sub
Error_EH:
If Err.Number = -2147467259 Then
MsgBox "Duplicate Lot Record - This will not be saved - ReEnter", , "Duplicate Record"
Resume Next
End If
gstrMODULE = "FormScaffold - Module FieldsSave"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub FormSave()
Dim strName As String
On Error GoTo Error_EH
If mboolAdding Then
moRSCREW.AddNew
moRSCREW!C_USER = gstrLOGIN
moRSCREW!Lot_id = gintLOTID
moRSCREW!proj_id = gintPROJID
End If
' Store the controls to the recordset
Call FieldsSave
If mboolAdding Then
mboolAdding = False
End If
Exit Sub
Error_EH:
Call ErrorHandler(moRSCREW.ActiveConnection)
Exit Sub
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim intResponse As Integer, strMSG As String
On Error GoTo Error_EH
If cmdSave.Enabled Then
strMSG = "Scaffold Data Has Been Changed"
strMSG = strMSG & Chr(13) & Chr(10)
strMSG = strMSG & "Save Changes ?"
intResponse = MsgBox(strMSG, vbQuestion + vbYesNoCancel, Me.Caption)
Select Case intResponse
Case vbYes
Call FormSave
Case vbNo
Case vbCancel
Cancel = True
Exit Sub
End Select
End If
If moRSCREW.State = adStateOpen Then
moRSCREW.Close
End If
Exit Sub
Error_EH:
If Err = 3219 Then
Resume Next
End If
End Sub
Private Sub lstScaffold_Click()
On Error GoTo Error_EH
If lstScaffold.ListIndex <> -1 Then
If FormFindCrew() Then
Call FormShowCrew
Else
lstScaffold.Clear
Call FormClear
End If
End If
Exit Sub
Error_EH:
gstrMODULE = "Form Crews - Module lstScaffold_Click"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub lstScaffold_DblClick()
cmdAdd.Enabled = False
cmdSave.Enabled = True
cmdDelete.Enabled = True
End Sub
Private Sub txtNotes_LostFocus()
txtNotes = UCase(txtNotes)
End Sub
Private Sub ProjLoad()
Dim strSQL As String
strSQL = "SELECT * FROM tblProject where proj_id = " & gintPROJID
Set moRSProj = New Recordset
moRSProj.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
strSQL = "SELECT Lot_no, Lot_id, Sq_Yd, Scaf6, Scaf10 FROM tblLotInfo WHERE lot_id = " & gintLOTID
Set moRS = New Recordset
moRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
lblProjCode = Field2Str(moRSProj!proj_code)
lblProject = Field2Str(moRSProj!proj_desc)
lblLotNo = Field2Str(moRS!lot_no)
lblYards = Field2Str(moRS!sq_yd)
lblL68 = Field2Str2(moRS!Scaf6)
lblL108 = Field2Str2(moRS!scaf10)
End Sub
Private Sub CrewLoad()
Dim oRSRCrew As Recordset
Dim strSQL As String, intRows As Integer
Dim row, col As Long
On Error GoTo Error_EH
strSQL = "SELECT Crew_ID, Name FROM tblSC_Crew"
Set oRSRCrew = New Recordset
oRSRCrew.Open strSQL, goConn, _
adOpenForwardOnly, adLockReadOnly
oRSRCrew.MoveLast
oRSRCrew.MoveFirst
intRows = oRSRCrew.RecordCount
Do Until oRSRCrew.EOF
cboSCrew.AddItem oRSRCrew("Name")
cboSCrew.ItemData(cboSCrew.NewIndex) = Field2Long(oRSRCrew("CREW_ID"))
oRSRCrew.MoveNext
Loop
oRSRCrew.Close
Exit Sub
Error_EH:
gstrMODULE = "Form Scaffold - Module CrewLoad"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub GetCrew()
Dim oRS As Recordset
Dim strSQL As String, intRows As Integer
Dim row, col As Long
On Error GoTo Error_EH
strSQL = "SELECT Crew_ID, PRCREW FROM tblSC_Crew WHERE Crew_ID =" & cboSCrew.ItemData(cboSCrew.ListIndex)
Set oRS = New Recordset
oRS.Open strSQL, goConn, _
adOpenForwardOnly, adLockReadOnly
If Not oRS.EOF Then
mintPRCREW = Field2Str2(oRS!prcrew)
Else
mintPRCREW = 0
End If
' Do Until oRSRCrew.EOF
' cboSCrew.AddItem oRSRCrew("Name")
' cboSCrew.ItemData(cboSCrew.NewIndex) = Field2Long(oRSRCrew("CREW_ID"))
' oRSRCrew.MoveNext
' Loop
oRS.Close
Exit Sub
Error_EH:
gstrMODULE = "Form Scaffold - Module GETCREW"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Reference in New Issue View Git Blame Copy Permalink