Replies

I have to thank you once again.I see how it could be done so simple and elegant

kind regards

Dear Hans,

I used the following expression:
CurrentDb.Execute “UPDATE Customers SET Me!afid = Me!office ”

And i got the error “Too few parameters.Expected 2”.

Will be grateful for your comments
regards

Thank you so much for your so quick reply.Yes,on second thoughts it will be much better to create and run an update query.
Thank you

Thank you very much indeed

Thank you for your reply.I receive the error “argument not optional pointing to ANewDB
But i have alsready shown the path name : the new database should be in the folder BE and have the name NewDB :
Call ANewDB(“c:BENewDB.mdb”)
Shell “Attrib ” & ANewDB & ” +h”

Why do i get the error ?

regards

Thank you !! I wish you a good day

Thank you very much. And also thank you for your patience,sometimes i ask stupid questions.I just thought the code will never work
wand was in despair.
So thank you once again

I am sorry for the confusion.I hade to change the name.Howevere both types in both tables are autonumbers.
If it is not possible i will still use the code i have.So it is not critical but preferable to open the second form on that point

regards

I am sorry for the confusion.I hade to change the name.Howevere both types in both tables are autonumbers.
If it is not possible i will still use the code i have.So it is not critical but preferable to open the second form on that point

regards

Dear Hans

will you help me out? The problem is that i have diferent names in the tables.The ID number in the

table enrollment,on which the form frm1 is based, is rollid,
while the id number in the table students is studentid.
i receive the message type mismatch.

regards

CurrentDb.Execute strSQL
Dim strID As String
strID = f!rollid
DoCmd.SetWarnings False
RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
DoCmd.OpenForm FormName:=”frmStudents”, OpenArgs:=strID
DoCmd.Close acForm, “frm1”

In the form frmStudents:

Private Sub Form_Load()
If Not IsNull(Me.OpenArgs) Then
Me.Recordset.FindFirst “studentid = ” & Chr(34) & Me.OpenArgs & Chr(34)
End If
End Sub

Dear Hans

will you help me out? The problem is that i have diferent names in the tables.The ID number in the

table enrollment,on which the form frm1 is based, is rollid,
while the id number in the table students is studentid.
i receive the message type mismatch.

regards

CurrentDb.Execute strSQL
Dim strID As String
strID = f!rollid
DoCmd.SetWarnings False
RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
DoCmd.OpenForm FormName:=”frmStudents”, OpenArgs:=strID
DoCmd.Close acForm, “frm1”

In the form frmStudents:

Private Sub Form_Load()
If Not IsNull(Me.OpenArgs) Then
Me.Recordset.FindFirst “studentid = ” & Chr(34) & Me.OpenArgs & Chr(34)
End If
End Sub

Thanks again.

Thanks again.

Dear Hans,

Happy New Year to you and my best wishes !

I have tested it and of course it is perfect now.It is bulletproof indeed.
How can i open the second form and go to the record just transfreed with my command?
Shall i go to the last record, or may be not?

after the execution of the sql i have the following lines:

CurrentDb.Execute strSQL
DoCmd.SetWarnings False
RunCommand acCmdDeleteRecord
DoCmd.Close acForm, “frm1”
DoCmd.OpenForm “frmStudents”

Dear Hans,

Happy New Year to you and my best wishes !

I have tested it and of course it is perfect now.It is bulletproof indeed.
How can i open the second form and go to the record just transfreed with my command?
Shall i go to the last record, or may be not?

after the execution of the sql i have the following lines:

CurrentDb.Execute strSQL
DoCmd.SetWarnings False
RunCommand acCmdDeleteRecord
DoCmd.Close acForm, “frm1”
DoCmd.OpenForm “frmStudents”