Good morning,
Thanks in advanced.... and
Here are the basics:
VB 6.3 on W2K,
Using for WRQ Reflections for IBM (v 13.0)
Visual Basic Editor (built into the above mainframe)
- As most stories go, a guy created a GUI as a macro using VB and saved everything under the shared folder for our clients' server, which then was deleted. Since he saved it as a macro it saved the .rsf file - but did not save any of the modules, or forms, that came with it... and now he's no longer with the company.
So, about a month ago I decided to copy & paste over the files that I had access too - never thinking I should've just exported the .cls and .frm files (d'oh!) ... anyway, I have all the code, and I've rebuilt the GUI creating the objects based on the names from the actual code.... so, Method or Data member not found error would mean that I'm not naming things right... 'cept, they are named correctly, I think.
Design:
main type (name)
1 form (MainMenu.frm)
4 modules (eagle, main, netview, tso)
1 class module ( OperatorID )
just giving the few in the example, once I figure those out I can pass the fix over the other objects (quiet a few of them) - and mind you, I know he didn't follow standard naming what-have-you... but hey... I'll fix that once I get it running again!
main objects (names)
MultiPage (MultiPage1, MultiPage2)
TextBox (OperatorIDBox, FrequentIDBox)
OptionButton (SLRButton, BIButton)
CheckBox (TestBox)
CommandButton (UnlockButton, OPIDClearButton )
Here is the main code for the form, not the modules. The application loads on full compile, but then crashes when attempting to use any of the controls (ie: UnlockButton_Cl ick() gives above error, even with the correct name, even if I delete and rebuilt the block by double clicking from the design element)
I have a sneaky feeling I'm missing some sort of reference file... unfortunately the IBM system only lets me save the file as a .rfs under a shared directory.
Any help would be appreciated - although I answer phone calls (tech support /sigh) for a living, I volunteered to document the code thinking "hey when I get out of school I'll have some technical writing experience..".. . now that it stopped working due to some profile changes they did on our Citrix server, I was handed the project with expectation of re-creating the GUI.
I got it to load, and connect, and read the password from a file. So now if I can just figure out why it's saying method/class not found...
thanks again
- edit: code below, seems there's a size limit to posts..
5 2471 -
-
Private Sub BIButton_Change()
-
If BIButton.Value Then
-
TestBox.Enabled = False
-
Else
-
TestBox.Enabled = True
-
End If
-
End Sub
-
-
Private Sub FaceSheetBox_Change()
-
If FaceSheetBox.Value Then
-
SLRFaceSheetButton.Enabled = True
-
BIFaceSheetButton.Enabled = True
-
LICHFaceSheetButton.Enabled = True
-
SLRFaceSheetButton.Value = True
-
MedicalRecordsBox.Enabled = True
-
Else
-
SLRFaceSheetButton.Enabled = False
-
BIFaceSheetButton.Enabled = False
-
LICHFaceSheetButton.Enabled = False
-
MedicalRecordsBox.Enabled = False
-
SLRFaceSheetButton.Value = True
-
SLRFaceSheetButton.Value = False
-
End If
-
End Sub
-
-
Private Sub LICHFaceSheetButton_Change()
-
If LICHFaceSheetButton.Value Then
-
MedicalRecordsBox.Enabled = False
-
MedicalRecordsBox.Value = False
-
Else
-
MedicalRecordsBox.Enabled = True
-
End If
-
End Sub
-
-
Private Sub OPIDClearButton_ButtonClick()
-
FrequentIDBox.ListIndex = -1
-
OperatorIDBox.Text = ""
-
SLRButton.Value = True
-
TestBox.Value = False
-
End Sub
-
-
Private Sub AccountClearButton_Click()
-
UserList.ListIndex = -1
-
ResetButton.Visible = False
-
UnsuspendBox.Visible = False
-
UnsuspendBox.Value = False
-
SearchButton.Visible = True
-
UserList.Clear
-
UserList.Enabled = False
-
Label10.Enabled = False
-
UserIDBox.Value = ""
-
FirstNameBox.Value = ""
-
LastNameBox.Value = ""
-
MainMenu.MultiPage2.Enabled = True
-
End Sub
-
-
Private Sub FrequentIDBox_Click()
-
OperatorIDBox.Text = FrequentIDBox.List(FrequentIDBox.ListIndex, 1)
-
-
If FrequentIDBox.List(FrequentIDBox.ListIndex, 2) = "STL" Then
-
SLRButton.Value = True
-
Else
-
BIButton.Value = True
-
End If
-
-
TestBox.Value = FrequentIDBox.List(FrequentIDBox.ListIndex, 3)
-
UnlockButton.SetFocus
-
End Sub
-
-
'Private Sub MultiPage1_Click(ByVal Index As Long)
-
' FrequentIDBox.ListIndex = -1
-
' UserList.ListIndex = -1
-
' End Sub
-
-
Private Sub OperatorIDBox_Change()
-
OperatorIDBox.Text = UCase(OperatorIDBox.Text)
-
End Sub
-
-
-
-
Private Sub PrinterClearButton_Click()
-
PrinterResetButton.Visible = False
-
PrinterSearchButton.Visible = True
-
MainMenu.Label19.Enabled = False
-
MainMenu.SelectedPrinterBox.Enabled = False
-
MainMenu.Label18.Enabled = False
-
MainMenu.PrinterStatusBox.Enabled = False
-
SelectedPrinterBox.Text = ""
-
PrinterStatusBox.Text = ""
-
PrinterIDBox.Text = ""
-
PrinterIDBox.Enabled = True
-
FaceSheetBox.Value = False
-
FaceSheetBox.Enabled = True
-
FaceSheetLabel.Visible = False
-
Label17.Enabled = True
-
MedicalRecordsBox.Value = False
-
End Sub
-
-
Private Sub PrinterResetButton_Click()
-
If Not Session.Connected Then
-
Session.Connect
-
End If
-
-
With Session
-
If Not MainMenu.FaceSheetBox.Value Then
-
Call AccessTSO
-
Call AccessVPS
-
-
.TransmitANSI "1"
-
Call SendPrinterID(MainMenu.PrinterIDBox.Text)
-
.TransmitTerminalKey rcIBMEnterKey
-
.WaitForEvent rcKbdEnabled, "120", "0", 1, 1
-
.WaitForDisplayString "REACTIVATE", "1", 21, 13
-
-
' reactivate first
-
.TransmitANSI "14"
-
.TransmitTerminalKey rcIBMEnterKey
-
-
' then stop / start a few times
-
For i = 1 To 5
-
.TransmitANSI "4"
-
.TransmitTerminalKey rcIBMEnterKey
-
.TransmitANSI "f"
-
.TransmitTerminalKey rcIBMEnterKey
-
.TransmitANSI "3"
-
.TransmitTerminalKey rcIBMEnterKey
-
Next i
-
-
.TransmitANSI "3"
-
.TransmitTerminalKey rcIBMEnterKey
-
-
-
.TransmitTerminalKey rcIBMPf3Key
-
.WaitForEvent rcKbdEnabled, "120", "0", 1, 1
-
.WaitForDisplayString "COMMAND", "1", 2, 2
-
-
Call UpdateVPSPrinterStatus
-
-
UpdateStatus ("Reset VPS printer " & MainMenu.SelectedPrinterBox.Text & ".")
-
Call AccessMainMenu
-
Else
-
Call ResetFaceSheetStep1
-
-
If UCase(MainMenu.PrinterStatusBox.Text) <> "ACQ" And Not MedicalRecordsBox.Value Then
-
UpdateStatus ("Printer still not ACQ")
-
Dim Site As String
-
If LICHFaceSheetButton.Value Then
-
Site = "42"
-
ElseIf Not MedicalRecordsBox.Value And SLRFaceSheetButton.Value Then
-
Site = "5"
-
ElseIf Not MedicalRecordsBox.Value And BIFaceSheetButton.Value Then
-
Site = "48"
-
Else
-
Site = "33"
-
End If
-
Call ResetFaceSheetStep2(Site)
-
Call ResetFaceSheetStep1
-
End If
-
-
If UCase(MainMenu.PrinterStatusBox.Text) <> "ACQ" And Not LICHFaceSheetButton.Value Then
-
UpdateStatus ("Printer still not ACQ")
-
Call ResetFaceSheetStep3(MainMenu.SelectedPrinterBox.Text)
-
Call ResetFaceSheetStep1
-
End If
-
End If
-
End With
-
End Sub
-
-
And there's more, but I hope the idea comes through. Any of the above subs will give me the data/method error not found.. again, even if I delete the block and use the design-to-code double click sub creation method.
danp129 323
Recognized Expert Contributor
I would comment all code and add a new button and see if it will call it's _click() function, if not then I'd start a new project in case something is corrupted and add code/import settings (connection settings/keyboard mappings?) a peice at a time. I have not used Reflection for a few years and it was version 9 back then connecting to an Definity G3r PBX.
Good morning,
Thanks in advanced.... and
Here are the basics:
VB 6.3 on W2K,
Using for WRQ Reflections for IBM (v 13.0)
Visual Basic Editor (built into the above mainframe)
...- edit: code below, seems there's a size limit to posts..
I sent you a Private Message about this. -e
Ignore me - just registering an interest in this thread.
Sign in to post your reply or Sign up for a free account.
Similar topics |
by: Junkmail |
last post by:
I have an application with highly compressable strings (gzip encoding
usually does somewhere between 20-50X reduction.) My base 350MB
database is mostly made up of these slowly (or even static) strings. I
would like to compress these so that my disk I/O and memory footprint
is greatly reduced.
Some databases have the ability to provide a compressed
table, compressed column, or provide a user defined function to
compress an indvidual...
|
by: Erik-Jan Bakker |
last post by:
Hi
I am not a javascript expert and I have a problem that the guru's
in this newsgroup probably can solve quickly. ;-)
I've made a webpage with three frames: top, left and mainframe.
I defined this in a frameset called index.htm.
Each frame is loaded with a specific page: top:title.htm, left:menu.htm
and mainframe:start.htm.
So far so good...
|
by: kartik |
last post by:
Hi ,
I am in need to find a way, to mass copy the data from db2 table
running in mainframe to universal database db2 on NT. I know that DB2
connect gives the flexiblity of connecting and communicate the db2
application running in mainframe. but i want to know that whether i
can do mass transfer data between the two system . i like to do as a
night job that runs for many hrs.I like to know any protocol is used
for such connectivity and...
|
by: Dan |
last post by:
Could someone please help me with auto importing a series of data
files into an Access table. I tried to follow code given below in a
previous messagebut i'm getting error messages.
Here's my database stats:
Path: C:\Database (contains the database and all the text files to
be imported)
Text files to import: (SampleData4.txt and SampleData3.txt as testing
examples)
|
by: Ced |
last post by:
Hi,
i'm not an expert in C but i try to compile BTNG software under linux
kernel 2.4.2-2. I get these errors at the very first stage. Does
someone could have a rapid look on this and tell me what's wrong
regards
I get this error:
| |
by: Frank Swarbrick |
last post by:
Is Websphere Information Integrator supported on Linux for zSeries?
Here's the deal... We are a VSE mainframe shop. We do not currently have
access to any relational databases from VSE. We use VSAM and DL/I for our
mainframe data.
Our "distributed applications" side uses Oracle 9i and 10g.
We have two distinct but related goals.
1) Have a relational database for our mainframe data.
2) Access our existing Oracle databases from our...
|
by: MarkusJNZ |
last post by:
Hi, we have some datafeeds which pull info from external sources.
Unfortunately, we have to use screen scraping as there are no XML
feeds. The data feeds are located in a variety of different
applications located on different servers. I have to design a new
architecture, I have a fair idea of how I would do it but if anyone has
any pointers to a good existing architecure design or *things not to
do*, please post.
TIA
Markus
|
by: db2admin |
last post by:
Hi,
I am getting error when exporting data from mainframe using db2
connect while i am on db2 on linux.
Here is what error looks like
==============================================================
$ db2 "export to abc.ixf of ixf lobs to /tmp modified by lobsinfile
select * from temp"
SQL3104N The Export utility is beginning to export data to file
|
by: Bill Schanks |
last post by:
I have a couple of users that are running a vb.net 2005 application,
and @ 6:00am when they are trying to run the automation they are
getting the below error. But when I get in and they try to run it
again there is no error.
The actual code that is running I think is this line (I can't tell the
actual line, as I can't replicate the error):
iNamesCount = CShort(.ActiveWorkbook.Names.Count)
Any ideas what would cause this? I am running...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed.
This is as boiled down as I can make it.
Here is my compilation command:
g++-12 -std=c++20 -Wnarrowing bit_field.cpp
Here is the code in...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth.
The Art of Business Website Design
Your website is...
| |
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own....
Now, this would greatly impact the work of software developers. The idea...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one.
At the time of converting from word file to html my equations which are in the word document file was convert into image.
Globals.ThisAddIn.Application.ActiveDocument.Select();...
|
by: TSSRALBI |
last post by:
Hello
I'm a network technician in training and I need your help.
I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs.
The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols.
I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
| |
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...
| | |