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!!!!
3 1263
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.
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...
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
Sign in to post your reply or Sign up for a free account.
Similar topics |
by: HolaGoogle |
last post by:
hi all,
can you please tell me what i should do to avoid session timeout when
displaying my database info in my asp form
(DisplayUserDatabase.asp)???
** actualy it does load and display the database randomly....otherwise
it's always runs into a session time out....
**Also when i save new account info (You'll notice that i've been
asked to put a save button near each record...so, it's not one global
save it's by record), i'd like to be...
|
by: Frances |
last post by:
Hi All,
I'm having a problem trying to add a record to a simple Access 2000 db
(db is very similar to an address book but with more info than the
usual address, phone, etc.).
The database is one table, 36 fields. The record_id field is an
autonumber field (long int) and primary key. The rest of the fields
comprise of 30 text fields, 3 memo fields, 1 date field and 1 currency
field. Text fields vary in number of characters allowed. ...
|
by: edself |
last post by:
I have a form which displays a subform datasheet of information. I'd like
to be able to quickly click on a particular record and open up another form
showing more detailed information about that record from a related table.
Is there a way to do this? It would be nice to be able to right click on a
cell in a datasheet and then select menu choice to open a form with related
information, but it seems like to right click menues in Access...
|
by: Michael Eisner |
last post by:
I have an MS Access 8.0 (Office97) program that has a form called
FO-008 that I need to replace on several users computers in different
locations without me being there doing it manually.
I'm trying to perform the replacement by using an external MS Access
program that contains the replacement form also called FO-008. I need
to keep the same form name since the form contains relationships to
other forms and quarries in the program.
...
|
by: Cro |
last post by:
Dear Access Developers,
I am developing a form with 'default view' set to "continuous forms".
I am suffering with a problem I can't yet see a solution too.
Each record has many fields. Two fields I would like to add a little
extra functionality to are a check box and a combo box. More
explicitly, I would like the 'enabled' property of a combo box control
to be dependent on the value of a check box (a 'yes/no' field) in the
same...
| |
by: Dica |
last post by:
i've used the sample code from msdn to create an encyption/decryption
assembly as found here:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnnetsec/html/SecNetHT10.asp
i'm able to encrypt and then decrypt data okay as in the following code:
// encrypt the data //
Encryptor enc = new Encryptor(EncryptionAlgorithm.TripleDes);
byte key = Encoding.ASCII.GetBytes("0123456789012345");
|
by: dBNovice |
last post by:
Hi all! I have 3 separate forms: Tasks, Subtasks, and Elements. All 3
is related by TaskId and Subtasks and Elements are related by
SubtaskID. In the DB after I add a task, I want to be able to add one
or more subtasks and then one or more elements. I need the subtasks
and elements to be have the same taskid as the task; also I want the
element to have the same subtaskId as the subtask. I have been able to
design the system to include...
|
by: rdemyan |
last post by:
My app creates a building report.
My users have requested that I provide functionality to e-mail these
"building reports" to building managers once a month.
So assuming that I have the following table that lists a building manager's
name, e-mail address and their building, is there a way that I can automate
this to send these monthly e-mails from Outlook. Ideally this would be a
click one button type of action:
|
by: southoz |
last post by:
Good ay all ,
I'm fairly new to access(a little over 5 weeks now). Since I'v started I have picked up a lot of useful information from forums such as this and in doing so will share that information with others. I have seen many request for information on mail merging an how to send data to word documents this is something I have put together with the answers given by others and I hope this will help a few newbies , I know there are easier ways...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it.
First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
| |
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: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules.
He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms.
Adolph will...
|
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: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
| |
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...
| |