renegade Posted April 21, 2003 Posted April 21, 2003 (edited) I'm creating a Multi form program that save all input information to a Ramdom Access file. I need to save all information on all forms from each form. I made the main form save all information on 3 forms but I can't get form2 and form3 to save all information on all 3 forms. The save button on Form2 and Form3 only will save informtion on their respective form. How do I make form2 and form3 save all informtion on all 3 forms? My forms are declared Public, I have tried Me.DialagResult = DialogResult.Yes, nothing seams to work. Any ideas? Help!! Edited April 21, 2003 by renegade Quote
*Experts* Nerseus Posted April 21, 2003 *Experts* Posted April 21, 2003 I'd have to see some of your code to know how you're saving things from Form1. Only then can I suggest something for Forms 2 and 3. -Nerseus Quote "I want to stand as close to the edge as I can without going over. Out on the edge you see all the kinds of things you can't see from the center." - Kurt Vonnegut
renegade Posted April 21, 2003 Author Posted April 21, 2003 Module 1 Structure Members <VBFixedString(15)> Dim Fname1, Lname1, EmpNum1, RecNum1, DoB, Age, Phone, City, State, Zip, Ssn, Hire, Service, Jt, Hr, Shift, Facility, HealthIns, DentalIns, LifeIns, Retirement As String <VBFixedString(20)> Dim Address As String End Structure Public Record(30) As Members Public f1 As New Form1() Public f2 As New Form2() Public f3 As New Form3() Form 1 'Save all input data from all forms Dim Record As Members Record.Fname1 = txtFname1.Text Record.Fname1 = f2.txtFname2.Text Record.Fname1 = f3.txtFname3.Text Record.Lname1 = txtLname1.Text Record.Lname1 = f2.txtLname2.Text Record.Lname1 = f3.txtLname3.Text Record.DoB = txtDoB.Text Record.Age = txtAge.Text Record.Phone = txtPhone.Text Record.Address = txtAddress.Text Record.City = txtCity.Text Record.State = txtState.Text Record.Zip = txtZip.Text Record.EmpNum1 = txtEmpNum1.Text Record.EmpNum1 = f2.txtEmpNum2.Text Record.EmpNum1 = f3.txtEmpNum3.Text Record.Ssn = txtSsn.Text Record.Hire = txtHire.Text Record.Service = txtService.Text Record.RecNum1 = txtRecNum1.Text Record.Jt = f2.txtJt.Text Record.Hr = f2.txtHr.Text Record.Shift = f2.txtShift.Text Record.Facility = f2.txtFacility.Text Record.HealthIns = f3.cbHealthIns.Text Record.DentalIns = f3.cbDentalIns.Text Record.LifeIns = f3.cbLifeIns.Text Record.Retirement = f3.cb401K.Text Form 2 'Save all input data after editting (doesn't work) Dim Record As Members Record.Jt = txtJt.Text Record.Shift = txtShift.Text Record.Hr = txtHr.Text Record.Facility = txtFacility.Text f1.txtFname1.Text = Record.Fname1 Record.Lname1 = f1.txtLname1.Text Record.EmpNum1 = f1.txtEmpNum1.Text Record.RecNum1 = f1.txtRecNum1.Text Record.DoB = f1.txtDoB.Text Record.Age = f1.txtAge.Text Record.Phone = f1.txtPhone.Text Record.Address = f1.txtAddress.Text Record.City = f1.txtCity.Text Record.State = f1.txtState.Text Record.Zip = f1.txtZip.Text Record.Ssn = f1.txtSsn.Text Record.Hire = f1.txtHire.Text Record.Service = f1.txtService.Text Record.HealthIns = f3.cbHealthIns.Text Record.DentalIns = f3.cbDentalIns.Text Record.LifeIns = f3.cbLifeIns.Text Record.Retirement = f3.cb401K.Text When saved from Form 2 it save form 2 and Form3 information but not form1, all form 1 data fields are empty. Thanks Renegade Quote
*Experts* Nerseus Posted April 21, 2003 *Experts* Posted April 21, 2003 I'm confused about your variable Record. You have a global one declared as an array, and another one declared in each form? -Nerseus Quote "I want to stand as close to the edge as I can without going over. Out on the edge you see all the kinds of things you can't see from the center." - Kurt Vonnegut
renegade Posted April 21, 2003 Author Posted April 21, 2003 Multi form issues I have it declared as a Structure isn't that different than an array? If I remove it locally it says that it's not a member of my "system array" Is my Global Declaration incorrect? Because I have to declare it locally to not have an error? Quote
*Experts* Nerseus Posted April 21, 2003 *Experts* Posted April 21, 2003 Your global definition is: Public Record(30) As Members your local definition is: Dim Record As Members Your code is using: Record.Jt = txtJt.Text which means it's using the local Record variable, not the global one. If you delete the local variable, you'd have to change your code to: Record(0).Jt = txtJt.Text Or use whatever index you want instead of 0 (zero). The code you posted only shows how you're filling the structure. I'm not sure how you're doing the saving, so it's impossible to say why one form would save and another would not. -Nerseus Quote "I want to stand as close to the edge as I can without going over. Out on the edge you see all the kinds of things you can't see from the center." - Kurt Vonnegut
renegade Posted April 21, 2003 Author Posted April 21, 2003 Multi form issues So if I change my Global declaration to Record(1) As Members and change all my records locally by Record(1).txtJt.Text then that would be correct? I'll do it right now and get back to you. Thanks! Renegade Quote
*Experts* Nerseus Posted April 22, 2003 *Experts* Posted April 22, 2003 Well, I'm not sure why you have a global array. Maybe you want your global version of the Record variable to NOT be an array? Only YOU can answer that :) If you do change the global reference to NOT be an array, I'd delete all your local instances since I'm pretty sure that's not what you want. -Ner Quote "I want to stand as close to the edge as I can without going over. Out on the edge you see all the kinds of things you can't see from the center." - Kurt Vonnegut
renegade Posted April 22, 2003 Author Posted April 22, 2003 Multi form issues I changed all references locally to my global declaration of Record(30) and took out all local declarations and now everything saves just fine. Thanks for pointing out my error on my declarations that was my down fall. Thanks again! renegade Quote
renegade Posted April 24, 2003 Author Posted April 24, 2003 I'm Still having trouble saving data from Form2 and Form3 , it just saves Form 2 and 3 data but not Form1 data, all form1 fields are blank when I recall the saved record. Help! Quote
*Experts* Nerseus Posted April 24, 2003 *Experts* Posted April 24, 2003 Can you post the whole project as a zip file? It would be a lot easier to see the problem that way. Make sure you only zip the root folder, don't include the bin folder (no executables in the zip, please). -Nerseus Quote "I want to stand as close to the edge as I can without going over. Out on the edge you see all the kinds of things you can't see from the center." - Kurt Vonnegut
renegade Posted April 24, 2003 Author Posted April 24, 2003 There is an .exe file in the object/debug folder also. By root file you mean the whole file except the .exe files? Renegade Quote
*Experts* Nerseus Posted April 24, 2003 *Experts* Posted April 24, 2003 Don't include the object folder either - it gets created when you compile the project. -Ner Quote "I want to stand as close to the edge as I can without going over. Out on the edge you see all the kinds of things you can't see from the center." - Kurt Vonnegut
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.