Reply to thread

Message: [QUOTE="EmmaLawton, post: 1868, member: 168"] I have a form with 3 frames with numerous text boxes and combo boxes on them. My code loops through each control on each frame on the form and captures the value of the text property of each textbox. Except that for all but 2 of the textboxes, the value of the text property is an empty string, irrespective of what the user has input into the textbox. Here is the code... [size=2][color=#0000ff]Private[/color][/size][size=2][color=#0000ff]Sub[/color][/size][size=2] CaptureScreen([/size][size=2][color=#0000ff]ByRef[/color][/size][size=2] rarySQLFields(,), _ [/size][size=2][color=#0000ff]ByRef[/color][/size][size=2] raryOraFields(,)) [/size][size=2][color=#008000] [/color][/size][size=2][color=#0000ff]Dim[/color][/size][size=2] ctrl [/size][size=2][color=#0000ff]As[/color][/size][size=2] Control [/size][size=2][color=#0000ff]Dim[/color][/size][size=2] grpctrl [/size][size=2][color=#0000ff]As[/color][/size][size=2] Control [/size][size=2][color=#0000ff]Dim[/color][/size][size=2] intPos [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]Integer [/color][/size][size=2][color=#0000ff]ReDim[/color][/size][size=2] rarySQLFields(18, 1) [/size][size=2][color=#0000ff]Try [/color][/size][size=2][color=#0000ff]For[/color][/size][size=2][color=#0000ff]Each[/color][/size][size=2] ctrl [/size][size=2][color=#0000ff]In[/color][/size][size=2][color=#0000ff]Me[/color][/size][size=2].Controls [/size][size=2][color=#0000ff]If[/color][/size][size=2] ctrl.GetType.Name = "GroupBox" [/size][size=2][color=#0000ff]Then [/color][/size][size=2][color=#0000ff]For[/color][/size][size=2][color=#0000ff]Each[/color][/size][size=2] grpctrl [/size][size=2][color=#0000ff]In[/color][/size][size=2] ctrl.Controls [/size][size=2][color=#0000ff]Select[/color][/size][size=2][color=#0000ff]Case[/color][/size][size=2] grpctrl.GetType.Name [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "TextBox" [/size][size=2][color=#0000ff]Select[/color][/size][size=2][color=#0000ff]Case[/color][/size][size=2] grpctrl.Name [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtFEID" rarySQLFields(2, 0) = grpctrl.Text rarySQLFields(2, 1) = "@FE" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtRMGRef" rarySQLFields(4, 0) = grpctrl.Text rarySQLFields(4, 1) = "@ClientRef" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtCName" rarySQLFields(12, 0) = grpctrl.Text rarySQLFields(12, 1) = "@Name" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtCWork" rarySQLFields(14, 0) = grpctrl.Text rarySQLFields(14, 1) = "@POW" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtCOcc" rarySQLFields(13, 0) = grpctrl.Text rarySQLFields(13, 1) = "@Occupation" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtCAccidentDt" [/size][size=2][color=#0000ff]If[/color][/size][size=2] grpctrl.Text <> "" [/size][size=2][color=#0000ff]Then [/color][/size][size=2]rarySQLFields(15, 0) = Format([/size][size=2][color=#0000ff]CDate[/color][/size][size=2](grpctrl.Text), "mm/dd/yyyy") [/size][size=2][color=#0000ff]Else [/color][/size][size=2]rarySQLFields(15, 0) = "" [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2]rarySQLFields(15, 1) = "@AccidentDate" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtCNature" [/size][size=2][color=#008000]'nature of accident [/color][/size][size=2]rarySQLFields(16, 0) = grpctrl.Text rarySQLFields(16, 1) = "@AccidentNature" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtType" [/size][size=2][color=#008000]'type of injury [/color][/size][size=2]rarySQLFields(17, 0) = grpctrl.Text rarySQLFields(17, 1) = "@Injury" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtPCode" rarySQLFields(18, 0) = grpctrl.Text rarySQLFields(18, 1) = "@PostCode" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtBPRef" rarySQLFields(11, 0) = grpctrl.Text rarySQLFields(11, 1) = "@BPRef" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtCSettlementDt" [/size][size=2][color=#0000ff]If[/color][/size][size=2] grpctrl.Text <> "" [/size][size=2][color=#0000ff]Then [/color][/size][size=2]rarySQLFields(10, 0) = Format([/size][size=2][color=#0000ff]CDate[/color][/size][size=2](grpctrl.Text), "mm/dd/yyyy") [/size][size=2][color=#0000ff]Else [/color][/size][size=2]rarySQLFields(10, 0) = "" [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2]rarySQLFields(10, 1) = "@SettlementDate" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtClosedDt" [/size][size=2][color=#0000ff]If[/color][/size][size=2] grpctrl.Text <> "" [/size][size=2][color=#0000ff]Then [/color][/size][size=2]rarySQLFields(9, 0) = Format([/size][size=2][color=#0000ff]CDate[/color][/size][size=2](grpctrl.Text), "mm/dd/yyyy") [/size][size=2][color=#0000ff]Else [/color][/size][size=2]rarySQLFields(9, 0) = "" [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2]rarySQLFields(9, 1) = "@ClosedDate" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "txtOpenedDt" [/size][size=2][color=#0000ff]If[/color][/size][size=2] grpctrl.Text <> "" [/size][size=2][color=#0000ff]Then [/color][/size][size=2]rarySQLFields(8, 0) = Format([/size][size=2][color=#0000ff]CDate[/color][/size][size=2](grpctrl.Text), "mm/dd/yyyy") [/size][size=2][color=#0000ff]Else [/color][/size][size=2]rarySQLFields(8, 0) = "" [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2]rarySQLFields(8, 1) = "@OpenedDate" [/size][size=2][color=#0000ff]Case[/color][/size][size=2][color=#0000ff]Else [/color][/size][size=2]Debug.WriteLine("Missed " & grpctrl.Name) [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Select [/color][/size][size=2][color=#0000ff]Case[/color][/size][size=2] "ComboBox" [/size][size=2][color=#0000ff]Select[/color][/size][size=2][color=#0000ff]Case[/color][/size][size=2] grpctrl.Name [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "cboClientID" [/size][size=2][color=#0000ff]If[/color][/size][size=2] IsNothing(raryOraFields) [/size][size=2][color=#0000ff]Then [/color][/size][size=2][color=#0000ff]ReDim[/color][/size][size=2] raryOraFields(1, 1) [/size][size=2][color=#0000ff]Else [/color][/size][size=2]intPos = GetPosition(raryOraFields) [/size][size=2][color=#0000ff]If[/color][/size][size=2] intPos < 0 [/size][size=2][color=#0000ff]Then [/color][/size][size=2]Err.Raise(999, "frmDetails.CaptureScreen", "Error gather search criteria") [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2]raryOraFields(intPos, 0) = grpctrl.Text raryOraFields(intPos, 1) = "CLIENT_MATTER.CLIENT_ID" rarySQLFields(1, 0) = [/size][size=2][color=#0000ff]CInt[/color][/size][size=2](grpctrl.Text) rarySQLFields(1, 1) = "@ClientID" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "cboMatterNum" [/size][size=2][color=#008000]'0 [/color][/size][size=2][color=#0000ff]If[/color][/size][size=2] IsNothing(raryOraFields) [/size][size=2][color=#0000ff]Then [/color][/size][size=2][color=#0000ff]ReDim[/color][/size][size=2] raryOraFields(1, 1) [/size][size=2][color=#0000ff]Else [/color][/size][size=2]intPos = GetPosition(raryOraFields) [/size][size=2][color=#0000ff]If[/color][/size][size=2] intPos < 0 [/size][size=2][color=#0000ff]Then [/color][/size][size=2]Err.Raise(999, "frmDetails.CaptureScreen", "Error gather search criteria") [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2]raryOraFields(intPos, 0) = grpctrl.Text raryOraFields(intPos, 1) = "CLIENT_MATTER.MATTER_NUM" rarySQLFields(0, 0) = grpctrl.Text rarySQLFields(0, 1) = "@MatterNum" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "cboClass" rarySQLFields(6, 0) = grpctrl.Text rarySQLFields(6, 1) = "@ClassCode" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "cboBCodes" rarySQLFields(5, 0) = grpctrl.Text rarySQLFields(5, 1) = "@BudgetCode" [/size][size=2][color=#0000ff]Case[/color][/size][size=2] "cboClientName" rarySQLFields(3, 0) = grpctrl.Text rarySQLFields(3, 1) = "@RMGClient" [/size][size=2][color=#0000ff]Case[/color][/size][size=2][color=#0000ff]Else [/color][/size][size=2]Debug.WriteLine("Missed " & grpctrl.Name) [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Select [/color][/size][size=2][color=#0000ff]Case[/color][/size][size=2] "NumericUpDown" rarySQLFields(7, 0) = nudProbability.Value rarySQLFields(7, 1) = "@Probability" [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Select [/color][/size][size=2][color=#0000ff]Next[/color][/size][size=2] grpctrl [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2][color=#0000ff]Next [/color][/size][size=2][color=#0000ff]Catch[/color][/size][size=2] ex [/size][size=2][color=#0000ff]As[/color][/size][size=2] Exception Debug.WriteLine(ex.Message) [/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Try [/color][/size][size=2][color=#0000ff] [/color][/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Sub[/color][/size] [color=#0000ff][/color] [color=#0000ff][/color] [size=2][color=black]I've run out of time on my project and need to resolve this issue ASAP. Has anyone experienced anything similar?[/color][/size] [color=black][/color] [size=2][color=black]Many Thanks[/color][/size] [size=2][color=#0000ff] [/color][/size] [/QUOTE]

Verification