Form code changes on its own!

[Jeff07]

No, I am not crazy. This code has worked for 3 years with out an issue.

The code should read:

strAccount_No = CLMain.txtAccount_No.Text

But instead it reads:

strAccount_No = FosterTrak_CLMain.txtAccount_No.Text

CLMain is a form. The code is located on another form which gets data from the CLMain form. The code is fine for the other forms such as FPMain.

The code suddenly changed today when I was working on something unrelated and when I change it back it reverts to iback to FosterTrak_CLMain.txtAccount_No.text.

I have no idea what I did wrong. Help would be appreciated.

Jeff



Public Function GetAccountNo()

Select Case strReportName.ToLower

Case "app contact note", "app contact notes", "app adopt checklist", "app cert approval", "app profile", "app percert", "trnhist app"
strAccount_No = AppMain.txtAcct_No2.Text

Case "cl docs", "cl contact note", "cl contact notes", "soc160"
strAccount_No = FosterTrak_CLMain.txtAccount_No.Text

Case "cl current", "fp contact note", "fp contact notes", "fp docs", "fp cert approval", "fp history fp", "fp profile", "prog detail"
strAccount_No = FPMain.txtFAcct2.Text

Case "cw history cl", "fp history cl", "loc history", "off history", "cl profile", "sw history cl"
strAccount_No = FosterTrak_CLMain.txtAccount_No.Text

Case "cw history cur", "cw history all"
strAccount_No = CWMain.txtCAcct.Text

Case "sw history cur", "sw history all"
strAccount_No = SWMain.txtSAcct.Text



End Select
Return strAccount_No
End Function





ISV using VB.net and SQL Server

Continue reading...