How to update form

[DK]

Please can somebody help me ?

I have forms named Form 1, Form 2 etc. having fields
CustomerName,Cu stomerAddress,. ....

Id like to have button on each form ,which will open another form named
"CustomerAd d" with list of all customers in tblCustomers. After I pick one
of the customers from the list, actual form should be closed and details of
customer shall be send to fields in Form 1 or Form2 or...

Thank You

D

[Br]

In news:d4******** **@ss405.t-com.hr,
DK <da***********@ coxris.hr> said:

Please can somebody help me ?

I have forms named Form 1, Form 2 etc. having fields
CustomerName,Cu stomerAddress,. ....

Id like to have button on each form ,which will open another form
named "CustomerAd d" with list of all customers in tblCustomers. After
I pick one of the customers from the list, actual form should be
closed and details of customer shall be send to fields in Form 1 or
Form2 or...

One method would be to close your first form when opening the second,
and then reopen it when closing the second using the CustomerID in the
Where clause.

(Code is called from OnClose event on your second form)

Docmd.Openform "frmFirstform", ,,"[CustomerID] = " & Me![CustomerID]

Another method may be to set the recordsource of your first form using
code when the second is closed.

Forms!frmFirstF orm.Recordsourc e = "SELECT * FROM qryMyQuery WHERE
[CustomerID ] = " & Me![CustomerID]

.... or if your first form contains all customers you can just move to
the selected customer record...

Set myRS as DAO.Recordset
Set myRS = Forms!frmFirstF orm.Recordsetcl one
myRS.FindFirst "[CustomerID] = " & Me![CustomerID]
If Not myRS.NoMatch Then
Forms!frmFirstF orm.Bookmark = myRS.Bookmark
End If
And there are many other variations...

Br@dley

[DK]

HTNX !
DK
"Br@dley" <n0****@4u.co m> wrote in message
news:HL******** **********@news-server.bigpond. net.au...

In news:d4******** **@ss405.t-com.hr,
DK <da***********@ coxris.hr> said:

Please can somebody help me ?

I have forms named Form 1, Form 2 etc. having fields
CustomerName,Cu stomerAddress,. ....

Id like to have button on each form ,which will open another form
named "CustomerAd d" with list of all customers in tblCustomers. After
I pick one of the customers from the list, actual form should be
closed and details of customer shall be send to fields in Form 1 or
Form2 or...

One method would be to close your first form when opening the second,
and then reopen it when closing the second using the CustomerID in the
Where clause.

(Code is called from OnClose event on your second form)

Docmd.Openform "frmFirstform", ,,"[CustomerID] = " & Me![CustomerID]

Another method may be to set the recordsource of your first form using
code when the second is closed.

Forms!frmFirstF orm.Recordsourc e = "SELECT * FROM qryMyQuery WHERE
[CustomerID ] = " & Me![CustomerID]

... or if your first form contains all customers you can just move to
the selected customer record...

Set myRS as DAO.Recordset
Set myRS = Forms!frmFirstF orm.Recordsetcl one
myRS.FindFirst "[CustomerID] = " & Me![CustomerID]
If Not myRS.NoMatch Then
Forms!frmFirstF orm.Bookmark = myRS.Bookmark
End If
And there are many other variations...

Br@dley

[Salad]

DK wrote:

Please can somebody help me ?

I have forms named Form 1, Form 2 etc. having fields
CustomerName,Cu stomerAddress,. ....

Id like to have button on each form ,which will open another form named
"CustomerAd d" with list of all customers in tblCustomers. After I pick one
of the customers from the list, actual form should be closed and details of
customer shall be send to fields in Form 1 or Form2 or...

Thank You

D

You could pass an argument to the the CustAdd form. Ex:
DoCmd.OpenForm "CustAdd", acNormal, , , ,acDialog,"Form 1"

CustAdd now knows which form called it. In the AfterUpdate event of
CustAdd you could do something like
If not IsNull(Me.OpenA rgs) Then
Forms(Me.OpenAr gs).CustName = Me.CustName
Forms(Me.OpenAr gs).CustAddr = Me.CustAddr
Endif

If Form1 is linked to the customer table, you could Requery the form and
then go back to the record.
Dim rst As Recordset
Dim varID As Variant
If Me.OpenArgs = "Form1" Then
varId = Forms!Form1!ID 'the record key
Forms!Form1.for m.Requery 'update the table
set rst = Forms!Form1.For m.Recordsetclon e
rst.FindFirst "ID = " & varID 'go back to record
Forms!Form1.For m.BookMark = rst.BookMark
rst.Close
Endif
Set rst = Nothing