Refreshing form

[Fa]

Hi,
I'm using this code to pass "codice cliente" values from a form1 to
form2.

Private Sub Form_Open(Cancel As Integer)
Me.RecordsetClone.FindFirst "[Codice cliente]=" & Forms!
[frmAnagraficaClienti_Principale]![Codice cliente]
If Me.RecordsetClone.NoMatch Then
Me.RecordsetClone.AddNew
Me.RecordsetClone![Codice cliente] = Forms!
[frmAnagraficaClienti_Principale]![Codice cliente]
Me.RecordsetClone.Update
Me.Requery
Else
Me.Bookmark = Me.RecordsetClone.Bookmark
End If
End Sub

At the first time I click button on form1 to open form2, form2 dosn't
catch the right "codice cliente" of form1 and display its first
record.
At the second time form2 goes to the correct record with the right
"codice cliente".

I need to add some records in a new popup form when I click a button
in form1.

Tks for your help, I'm a newbie.
Fa

[Allen Browne]

There is no need to Requery, since the record is in the clone set.

However, several things could go wrong in that process:
a) The other form may not be open.
b) The other form may have a partially entered record that cannot be saved.
c) This form may have a dirty record too.
d) The recordset may not be at the newly added record, unless you explicitly
set it using the LastModified bookmark.
e) I'm not sure about the wisdom of doing all this in Form_Open.

Try something like this:

Dim frm As Form
Dim rs As DAO.Recordset

If CurrentProject.AllForms![frmAnagraficaClienti_Principale].IsLoaded
Then
If Me.Dirty Then
Me.Dirty = False
End If
Set frm = Forms![frmAnagraficaClienti_Principale]
If frm.Dirty Then
frm.Dirty = False
End If

If IsNull(frm![Codice cliente]) Then
MsgBox "Nobody home"
Else
Set rs = Me.RecordsetClone
rs.FindFirst "[Codice cliente] = " & frm![Codice cliente]
If rs.NoMatch Then
rs.AddNew
rs![Codice cliente] = frm![Codice cliente]
rs.Update
Me.Bookmark = rs.LastModified
Else
Me.Bookmark = rs.Bookmark
End If
End If
End If

(Needs error handling in case the save fails.)

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Fa" <fa*******@gmail.comwrote in message
news:11**********************@y80g2000hsf.googlegr oups.com...

Hi,
I'm using this code to pass "codice cliente" values from a form1 to
form2.

Private Sub Form_Open(Cancel As Integer)
Me.RecordsetClone.FindFirst "[Codice cliente]=" & Forms!
[frmAnagraficaClienti_Principale]![Codice cliente]
If Me.RecordsetClone.NoMatch Then
Me.RecordsetClone.AddNew
Me.RecordsetClone![Codice cliente] = Forms!
[frmAnagraficaClienti_Principale]![Codice cliente]
Me.RecordsetClone.Update
Me.Requery
Else
Me.Bookmark = Me.RecordsetClone.Bookmark
End If
End Sub

At the first time I click button on form1 to open form2, form2 dosn't
catch the right "codice cliente" of form1 and display its first
record.
At the second time form2 goes to the correct record with the right
"codice cliente".

I need to add some records in a new popup form when I click a button
in form1.

Tks for your help, I'm a newbie.
Fa

[Fabiocr]

Try something like this:

>
Dim frm As Form
Dim rs As DAO.Recordset

If CurrentProject.AllForms![frmAnagraficaClienti_Principale].IsLoaded
Then
If Me.Dirty Then
Me.Dirty = False
End If
Set frm = Forms![frmAnagraficaClienti_Principale]
If frm.Dirty Then
frm.Dirty = False
End If

If IsNull(frm![Codice cliente]) Then
MsgBox "Nobody home"
Else
Set rs = Me.RecordsetClone
rs.FindFirst "[Codice cliente] = " & frm![Codice cliente]
If rs.NoMatch Then
rs.AddNew
rs![Codice cliente] = frm![Codice cliente]
rs.Update
Me.Bookmark = rs.LastModified
Else
Me.Bookmark = rs.Bookmark
End If
End If
End If

(Needs error handling in case the save fails.)

Tks you very much, this code is perfect and run very well...I spend several
days to solve my problem with no results.
Now I'm searching some info about dirty command and the right use of
recordsetclone.
Ciao!, Fa