Transfering Data of a form to a new form

14,534

Expert Mod 8TB

I'm not sure from your description exactly what you are looking for but.

You can have a form (frmSearch) with a combobox (cboDRID) and a command button (cmdOpenForm) to open the other form (frmHardware).

Assumptions: Hardware is the name of the table or query.

Set the Record Source of frmHardware to return all records i.e. the Hardware table or appropriate query.
Set the properties of the combobox as follows:
Column Count = 1
Row Source Type = "Table/Query"
Row Source = "SELECT id FROM Hardware ORDER BY id ASC"
Bound Column = 1
Put the following code behind the command button...

Expand|Select|Wrap|Line Numbers

 
Private Sub cmdOpenForm_Click()

   DoCmd.OpenForm "frmHardware", , , "[id]=" & Me.cboDRID

End Sub

Mary

Mar 13 '07 #2

For simple explanation
Form1(With Data) - DRF 00000 - ID
Form2 (No Data) - POR 00000 - ID
Form3 (List of DRF 00000 ID-

from Form2(No Data) i have a button if i click that button i will go to form3 which is the list of ID (DRF-00000) then from form3 i can pick a certain ID using combox if i choose for id for example DRF-00001 then i click generate i will go now to Form2 again

The Value of DRF 00001 from Form1(with Data) must transfer to Form2(No data)

am i making sense its rili hard for me to explain : ) sorry

Mar 13 '07 #3

14,534

Expert Mod 8TB

Ok you have to stop thinking of the data as being stored in the forms. They are only interfaces to allow you to view the records.

If you explain why you are doing what you are doing I may be able to help further.

Mary

Mar 13 '07 #4

hi mary my intial problem is kinda clear for
now my approach is i have a form (POR_FORM) with
a combobox that has a list of DR number
so if i choose a certain DR ID and click my
commandbutton i retrieve the value from other
table (DR_table) it works properly

in lower part of my form i have 3 field
which are particular,qty,and part number
it comes from subform table, how can i retrieve
thier data from a subform table?

DR_Table - ID,Customer,Date, ETC..
DR_Detail_Table_Subform - Particular,QTY,Partnumber

POR_FORM - This form is the one retriving data

this is my code in my commandbutton:

Expand|Select|Wrap|Line Numbers

 Private Sub Command24_Click()

Dim rs As New ADODB.Recordset

Dim cnn As New ADODB.Connection

Dim i As Integer

Dim sSql As String

Set cnn = CurrentProject.Connection

sSql = "select * from [DR_Table] where id =" & Text32.Value

rs.Open sSql, cnn, adOpenKeyset, adLockOptimistic

If rs.RecordCount > 0 Then

Company = rs!Company

Address = rs!Address

Contactperson = rs!Contactperson

Designation = rs!Designation

Telno = rs!Telno

Faxno = rs!Faxno

rs.Close

Else

Company = vbNullString

Address = vbNullString

Contactperson = vbNullString

Designation = vbNullString

Telno = vbNullString

Faxno = vbNullString

End If

End Sub

Mar 13 '07 #5

14,534

Expert Mod 8TB

DR_Table - ID,Customer,Date, ETC..
DR_Detail_Table_Subform - Particular,QTY,Partnumber

What is the relationship between these two tables?

Mar 13 '07 #6

They have the same DRF ID

Mar 14 '07 #7

the relationship of
Dr_table to Dr_Detail_Table is one to many

Mar 14 '07 #8

14,534

Expert Mod 8TB

Try this ...

Expand|Select|Wrap|Line Numbers

 Private Sub Command24_Click()

Dim rs As New ADODB.Recordset

Dim rs1 As New ADODB.Recordset

Dim cnn As New ADODB.Connection

Dim i As Integer

Dim sSql As String

Set cnn = CurrentProject.Connection

sSql = "select * from [DR_Table] where id =" & Text32.Value

rs.Open sSql, cnn, adOpenKeyset, adLockOptimistic

If rs.RecordCount > 0 Then

Company = rs!Company

Address = rs!Address

Contactperson = rs!Contactperson

Designation = rs!Designation

Telno = rs!Telno

Faxno = rs!Faxno

rs1.Open "SELECT * FROM [Dr_Detail_Table] WHERE [DRF ID]=" & rs![DRF ID], cnn, adOpenKeyset, adLockOptimistic

If rs1.RecordCount > 0 Then

Me.[DR_Detail_Table_Subform].SetFocus

Do Until rs1.EOF

Me.[DR_Detail_Table_Subform]![Particular] = rs1!Particular

Me.[DR_Detail_Table_Subform]![QTY] = rs1!QTY

Me.[DR_Detail_Table_Subform]![Partnumber] = rs1!Partnumber

DoCmd.GoToRecord , , acNewRec

Loop

rs1.Close

rs.Close

Else

Company = vbNullString

Address = vbNullString

Contactperson = vbNullString

Designation = vbNullString

Telno = vbNullString

Faxno = vbNullString

End If

End Sub

Mary

Mar 14 '07 #9

I put the script then try to run it this is the error

"run time error 3265
item cannot be found in the collection corresponding to the
requested name or ordinal"

rs1.Open "SELECT * FROM [Dr_Detail_Table] WHERE [DRF ID]=" & rs![DRF ID], cnn, adOpenKeyset, adLockOptimistic

Mar 14 '07 #10

14,534

Expert Mod 8TB

Try putting it in it's own string first

Expand|Select|Wrap|Line Numbers

 
Dim sSql1 As String
 
sSQL1 = "SELECT * FROM [Dr_Detail_Table] WHERE [DRF ID]=" & rs![DRF ID]

rs1.Open sSQL1, cnn, adOpenKeyset, adLockOptimistic

Mary

Mar 14 '07 #11

It still didnt work same error

What is "[DR_Detail_Table_Subform]" in your script - is it the name of the subform table and "[DR ID]" - is it the ID in the field from DR_Table?

In my Table DR ID = ID
and the name of my subform is "DR_Detail_Table"

Mar 14 '07 #12

Hi mary i already solved the problem and i works properly now thank u for the big help and the idea very very much for the time thanks again... : )

Mar 14 '07 #13

Transfering Data: from end of year/season to beginning of next

14,534

Expert Mod 8TB

Hi mary i already solved the problem and i works properly now thank u for the big help and the idea very very much for the time thanks again... : )

You're welcome.

Mar 14 '07 #14

by: Niyazi | last post by:

Hi, I have BIG question and I gues it is the BEST question. I have a problem that I am guessing the best solution is to create some sort ..NET Services. This Service(s) must check every...

.NET Framework

by: Lloyd Stevens | last post by:

TABLES CustomerTable CustomerTarrifTable TarrifTable WarrantTable CustomerID(P) CustomerTarrifID(P) TarrifNo(P) WarrantID(P) BoatType QuantityPurchased ProductName WarrantDate...

Data transfering with few WebForms

Transfering Data

by: bernardpace | last post by:

Hi, I am writing a client server application using TcpClient and TcpListener classes. Now I need to transfer structured large amounts of data. I was thinking to transfer the data in an xml...

C# / C Sharp

by: Piotr Karwatka | last post by:

Hi! I have a little problem an qeustion. In .NET Windows Forms I can do something like that: - i have forms - Form1 Form2, on first form i have TextBox1 control on 2nd form I have Button1...

ASP.NET

need help transfering data between forms

by: Chris S | last post by:

I'm relatively new to VB.NET and have what's probably a very simple question. I'm trying to get one form to access (view and modify) data on another form. For example, the startup object is a...

Visual Basic .NET

Transfering access records between databases via email?

by: Walshi | last post by:

Hi all, I'm a relative newby to access and VBA etc. My forms and tables etc are working great and saving lots of time...However... I have two databases with the exact same table format. I want...

Transfering data from text box on one form to another form using vb

Transfering data

by: nomad | last post by:

Hello Everyone: I need some help with transfering a db from my computer to the host. I'm not to sure how to do this so that the webpage know where the db is at. Here is what I have... I'm using...

HTML / CSS

by: Hitman | last post by:

Hi Everyone, I have a little bit of problem with my database. I have a textbox ( the name of the textbox is location) on one form and 1 command button. I also made another form with 1 textbox (the...

Transfering data from tables

by: Ro | last post by:

I've been given the task of transfering data from an access db to sql server 2000. The previous access db was not structured very well so we reconstructed the tables in sql server 2000 to add...