Challenged trying to send info from different forms to a single record in MS Access

[Zabooster]

Hi all,
I have to submit a project in 2 days' time and am currently challenged trying to send information inputted into textboxes, radiobuttons and checkboxes present in different forms to a sigle row in Access. In other words, a series of forms are interlinked and the final form is supposed to send the information in all the forms (including itself) to an Access file. I'm not sure whether the connection I've created using the dataadapter in this final form can serve all of the forms... I hope I am not referencing the other controls in a wrong manner (I don't think so.. coz I'm referring back to Public Shared variables I've earlier declared)...
Please help!!!!

[debasisdas]

You have two options

1.Store the input of all the data in variable and insert at the end .

2.Insert only the first data from first form and keep on updating as you keep on moving to next forms.

[Zabooster]

You have two options

1.Store the input of all the data in variable and insert at the end .

2.Insert only the first data from first form and keep on updating as you keep on moving to next forms.

Thanx for the reply debasisdas. I understand the second option but I don't want to do that... I guess the first option is exactly what I'm doing, but I'm getting an error. Is it because the connection to the MS Access file should be made in every form I am using, coz I've only made the connection in the last form. I hope my question is clear. N thanx again for the reply...

[Zabooster]

Here is the coding:

Private Sub Form5_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim pintrecords As Integer
        Dim bndTemp As Binding
        Dim frmPersonalInformation As New Form1
        Dim frmAbilities As New Form2
        Dim frmPersonalBackground As New Form3
        Dim frmPersonalBackgroundContinued As New Form4
        Dim frmPersonalBackgroundContinued1 As New Form5


        pintrecords = odbdaApplicants.Fill(DsApplicants1)


        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldfullname")
        frmPersonalInformation.FullName.DataBindings.Add(bndTemp)


        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldAddress")
        frmPersonalInformation.Address.DataBindings.Add(bndTemp)

        bndTemp = New Binding("value", DsApplicants1, "tblapplicants.fldAge")
        frmPersonalInformation.Age.DataBindings.Add(bndTemp)

        
        bndTemp = New Binding("checked", DsApplicants1, "tblapplicants.fldMale")
        frmPersonalInformation.Male.DataBindings.Add(bndTemp)

        bndTemp = New Binding("checked", DsApplicants1, "tblapplicants.fldFemale")
        frmPersonalInformation.Female.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldUniversityMajor")
        frmPersonalInformation.UniversityMajor.DataBindings.Add(bndTemp)

        bndTemp = New Binding("value", DsApplicants1, "tblApplicants.fldYearOfStudy")
        frmPersonalInformation.YearOfStudy.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldGraduationYear")
        frmPersonalInformation.GraduationYear.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldMobileCode")
        frmPersonalInformation.MobileCode.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldMobileNumber")
        frmPersonalInformation.MobileNumber.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldEmail")
        frmPersonalInformation.Email.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldEnglishWriting")
        frmAbilities.EnglishWriting.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldEnglishReading")
        frmAbilities.EnglishReading.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldEnglishSpeaking")
        frmAbilities.EnglishSpeaking.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldEnglishUnderstanding")
        frmAbilities.EnglishUnderstanding.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldLang2")
        frmAbilities.Lang2.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldLang2Writing")
        frmAbilities.Lang2Writing.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldLang2Reading")
        frmAbilities.Lang2Reading.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldLang2Speaking")
        frmAbilities.Lang2Speaking.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldLang2Understanding")
        frmAbilities.Lang2Understanding.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldLang3")
        frmAbilities.Lang3.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldLang3Writing")
        frmAbilities.Lang3Writing.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldLang3Reading")
        frmAbilities.Lang3Reading.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldLang3Speaking")
        frmAbilities.Lang3Speaking.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldLang3Understanding")
        frmAbilities.Lang3Understanding.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldLang4")
        frmAbilities.Lang4.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldLang4Writing")
        frmAbilities.Lang4Writing.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldLang4Reading")
        frmAbilities.Lang4Reading.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldLang4Speaking")
        frmAbilities.Lang4Speaking.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldLang4Understanding")
        frmAbilities.Lang4Understanding.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldMSOfficeSkill")
        frmAbilities.MSOfficeSkill.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldIESkill")
        frmAbilities.IESKill.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldMFSkill")
        frmAbilities.MFSkill.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldSoftware4")
        frmAbilities.Software4.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldSoftware4Skill")
        frmAbilities.Software4Skill.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldSoftware5")
        frmAbilities.Software5.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldSoftware5Skill")
        frmAbilities.Software5Skill.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldExtracurricular")
        frmPersonalBackground.Extracurricular.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldStrength1")
        frmPersonalBackground.Strength1.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldStrength2")
        frmPersonalBackground.Strength2.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldStrength3")
        frmPersonalBackground.Strength3.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldWeakness1")
        frmPersonalBackground.Weakness1.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldWeakness2")
        frmPersonalBackground.Weakness2.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldWeakness3")
        frmPersonalBackground.Weakness3.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldStrengthIdentification")
        frmPersonalBackground.StrengthIdentification.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldChallenge")
        frmPersonalBackground.Challenge.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldInternationalExperience")
        frmPersonalBackgroundContinued.InternationalExperience.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldGoodLeader")
        frmPersonalBackgroundContinued.GoodLeader.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldOrganizationUnderstanding")
        frmPersonalBackgroundContinued.OrganizationUnderstanding.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldReasonForJoining")
        frmPersonalBackgroundContinued.ReasonForJoining.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldTimeAllocated")
        frmPersonalBackgroundContinued.TimeAllocated.DataBindings.Add(bndTemp)

        bndTemp = New Binding("checked", DsApplicants1, "tblApplicants.fldComputerWork")
        frmPersonalBackgroundContinued1.ComputerWork.DataBindings.Add(bndTemp)

        bndTemp = New Binding("checked", DsApplicants1, "tblApplicants.fldFieldWork")
        frmPersonalBackgroundContinued1.Fieldwork.DataBindings.Add(bndTemp)

        bndTemp = New Binding("checked", DsApplicants1, "tblApplicants.fldMeetings")
        frmPersonalBackgroundContinued1.Meetings.DataBindings.Add(bndTemp)

        bndTemp = New Binding("checked", DsApplicants1, "tblApplicants.fldSales")
        frmPersonalBackgroundContinued1.Sales.DataBindings.Add(bndTemp)

        bndTemp = New Binding("checked", DsApplicants1, "tblApplicants.fldMarketing")
        frmPersonalBackgroundContinued1.Marketing.DataBindings.Add(bndTemp)

        bndTemp = New Binding("checked", DsApplicants1, "tblApplicants.fldOther")
        frmPersonalBackgroundContinued1.Other.DataBindings.Add(bndTemp)

        bndTemp = New Binding("checkstate", DsApplicants1, "tblApplicants.fld4-8Months")
        frmPersonalBackgroundContinued1.To8Months.DataBindings.Add(bndTemp)

        bndTemp = New Binding("checkstate", DsApplicants1, "tblApplicants.fld9-13Months")
        frmPersonalBackgroundContinued1.To13Months.DataBindings.Add(bndTemp)

        bndTemp = New Binding("checkstate", DsApplicants1, "tblApplicants.fldAfterGraduation")
        frmPersonalBackgroundContinued1.AfterGraduation.DataBindings.Add(bndTemp)

        bndTemp = New Binding("checkstate", DsApplicants1, "tblApplicants.fldNever")
        frmPersonalBackgroundContinued1.Never.DataBindings.Add(bndTemp)

        bndTemp = New Binding("checkstate", DsApplicants1, "tblApplicants.fldFlyers")
        frmPersonalBackgroundContinued1.Flyers.DataBindings.Add(bndTemp)

        bndTemp = New Binding("checkstate", DsApplicants1, "tblApplicants.fldInformationStands")
        frmPersonalBackgroundContinued1.InformationStands.DataBindings.Add(bndTemp)

        bndTemp = New Binding("checkstate", DsApplicants1, "tblApplicants.fldFriends")
        frmPersonalBackgroundContinued1.Friends.DataBindings.Add(bndTemp)

        bndTemp = New Binding("checkstate", DsApplicants1, "tblApplicants.fldInternet")
        frmPersonalBackgroundContinued1.Internet.DataBindings.Add(bndTemp)

        bndTemp = New Binding("checkstate", DsApplicants1, "tblApplicants.fldOther2")
        frmPersonalBackgroundContinued1.other2.DataBindings.Add(bndTemp)

        bndTemp = New Binding("text", DsApplicants1, "tblApplicants.fldOther3")
        frmPersonalBackgroundContinued1.Other3.DataBindings.Add(bndTemp)














    End Sub