Copy field in form

[Tragac011]

If You have time I wolud ask you for a favour, can You put that command in db that I posted and attach so I can download

 

[vbaInet]

I try that it doesn't work

What does this mean?
It's showing an error message? Nothing is happening?

 

[Tragac011]

What does this mean?
It's showing an error message? Nothing is happening?

It show copy is not avaible

 

[vbaInet]

Ah I see what you mean. I didn't actually test the code I gave you before but the logic was right. So I've just tried the below on your database and this works for me:

    With DoCmd
        .RunCommand acCmdSelectRecord
        .RunCommand acCmdCopy
        .GoToRecord , , acNewRec
        Me.AllowEdits = True
        .SetWarnings False
        .RunCommand acCmdPaste
        .SetWarnings True
        Me.AllowEdits = False
    End With

 

[Tragac011]

Ah I see what you mean. I didn't actually test the code I gave you before but the logic was right. So I've just tried the below on your database and this works for me:

    With DoCmd
        .RunCommand acCmdSelectRecord
        .RunCommand acCmdCopy
        .GoToRecord , , acNewRec
        Me.AllowEdits = True
        .SetWarnings False
        .RunCommand acCmdPaste
        .SetWarnings True
        Me.AllowEdits = False
    End With

It's works Thank You very much

 

[vbaInet]

Glad we could help.

 

[Tragac011]

Glad we could help.

If I can one more question, Its copy all data, it is ok. How to prevent to copy or change just some of data, is that possible?

 

[vbaInet]

You want it to copy only certain fields?

 

[Tragac011]

You want it to copy only certain fields?

No I want to copy all but to be able to change data in some field or not to copy that field.

 

[vbaInet]

That simply means you want to copy some fields. It's the same thing isn't it?

 

[Tragac011]

You are right

 

[vbaInet]

Ok, how many fields do you not want to copy? And will this be constant?

 

[Tragac011]

Ok, how many fields do you not want to copy? And will this be constant?

About 80 fields,

 

[vbaInet]

Ok, two more questions:

1. Remind me how many fields you have?
2. Everytime you copy and paste, you definitely don't want those 80 fields copied?

 

[Tragac011]

I made mistake, I want to copy 80 fields

I have about 100 fields.
I dont want that fields to be copy but I want to be able to enter data in that fields

 

[vbaInet]

You can do it two ways after copying and pasting:

1. Delete the value of each control by setting it to Null

Me.NameOfTextbox1.Value = Null
Me.NameOfTextbox2.Value = Null
.
.
.
.
Me.NameOfTextbox20.Value = Null

Or

2. Put a text in the Tag property of each control, let's say "_Delete_", loop through each control and if you find the word "_Delete_" in the Tag property, set it to Null.

 

[Tragac011]

You can do it two ways after copying and pasting:

1. Delete the value of each control by setting it to Null

Me.NameOfTextbox1.Value = Null
Me.NameOfTextbox2.Value = Null
.
.
.
.
Me.NameOfTextbox20.Value = Null

Or

2. Put a text in the Tag property of each control, let's say "_Delete_", loop through each control and if you find the word "_Delete_" in the Tag property, set it to Null.

I like first idea Where to put that it is done automaticle after copy?

 

[vbaInet]

No! You put that after "Me.AllowEdits = False".
Remember you have to fill in the code for every single field.

 

[Tragac011]

No! You put that after "Me.AllowEdits = False".
Remember you have to fill in the code for every single field.

You mean something like this?

Private Sub Kopiranje_podataka_Click()
With DoCmd
.RunCommand acCmdSelectRecord
.RunCommand acCmdCopy
.GoToRecord , , acNewRec
Me.AllowEdits = True
.SetWarnings False
.RunCommand acCmdPaste
.SetWarnings True
Me.AllowEdits = False
Me.Datum_ugovora.Value = Null
Me.Od_kada_je_kod_nas.Value = Null

End With
End Sub

 

[Tragac011]

To prevent user to forget to enter data I put in table option that field is required. Now when I copy and leave that option I get message that field required and I must enter value