Conflict between duplicate record command and search combo

[mercapto]

Hello

I've got a form with a duplicate command and a search combobox, both created with the wizard.

Private Sub cmdDuplicar_Click()
On Error GoTo Err_cmdDuplicar_Click


    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.RunCommand acCmdRecordsGoToNew
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdPaste


Exit_cmdDuplicar_Click:
    Exit Sub

Err_cmdDuplicar_Click:
    MsgBox Err.Description
    Resume Exit_cmdDuplicar_Click
    
End Sub
-----
Private Sub Cuadro_combinado219_AfterUpdate()
    ' Buscar el registro que coincida con el control.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ID_Producto] = " & Str(Nz(Me![Cuadro_combinado219], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

When I press the "Duplicate" button I get "error 13 mismatch". The error points to the line in red. Also, japanese characters are shown in the combo afterwards.

I can't understand why I get this error, because I am not using this control.

Can anybody help me?

[Rod]

Is [ID_Producto] a text variable?

[mercapto]

Is [ID_Producto] a text variable?

It is not.

The combo works properly, the only problem is when I press the "duplicate" command.

As I said, i didn't make any of this programs, they come directly from the Wizard.

[Missinglinq]

It makes no sense for an error to show up in the Cuadro_combinado219_AfterUpdate code when you click on the 'copy' Command Button! That, and the fact that japanese characters are shown in the combo afterwards, would indicate that you've got corruption, here! My guess would be that the corruption involves one or more of the Controls involved. I'd start off by deleting and then re-creating the Command Button, and if that doesn't work, do the same with the Combobox.

Linq ;0)>

[mercapto]

It makes no sense for an error to show up in the Cuadro_combinado219_AfterUpdate code when you click on the 'copy' Command Button! That, and the fact that japanese characters are shown in the combo afterwards, would indicate that you've got corruption, here! My guess would be that the corruption involves one or more of the Controls involved. I'd start off by deleting and then re-creating the Command Button, and if that doesn't work, do the same with the Combobox.

Linq ;0)>

thx, linq.

As you suggested, I recreated both controls. I still had the same result. There is no more code in my form.

Maybe we can jump this error by disabling the combo box, perhaps with an "if" that ends sub if the record is new. How would be the code?

[Rod]

My next suggestion would have been very much in line with Missinglinq.

What I believe you are trying to do is create a duplicate record. Personally I would use SQL or JET commands for copying data records.

However Dirk Goldgar (MVP) has suggested the following:

A very simple answer to you question is this series of VBA statements:

RunCommand acCmdSelectRecord
RunCommand acCmdCopy
RunCommand acCmdPasteAppend

Prefix this with 'DoCmd.' if you wish.

[mercapto]

My next suggestion would have been very much in line with Missinglinq.

What I believe you are trying to do is create a duplicate record. Personally I would use SQL or JET commands for copying data records.

However Dirk Goldgar (MVP) has suggested the following:


Prefix this with 'DoCmd.' if you wish.

It worked. I get no error using this simple code.

Thanks everyone for the answers.

[mercapto]

Ok, It's not working again...

I went to the combo sql config and sorted the records by name, and then the error appeared again.

I can confirm that the error is not happening when the combo query is default. The error does not show up when the list is unsorted.

I guess Rod's code did not solve the problem, it worked just because after all the trials I didn't finish the combo properly.

[Rod]

I shall try to duplicate what I think you are doing and see if I can replicate the error.

[mercapto]

What I finally did is to give a value (in the list) to the combo at the end of the code.

It seems that somehow those Japanese characters are updated in the combobox and the error comes because it is not an element of the list. So I take it to other element just before the error shows up.

It could be done better, I know... Not solved.

[Rod]

mercapto,

I have been unable to duplicate your error. My code runs error free but unfortunately does not produce the desired result. I get a new record appended to the table but it is empty apart from the autonumber primary key! Is your code copying all the attribute values?

However it seems that RunCommand acCmdPaste and RunCommand acCmdPasteAppend both trigger the combo box After Update event, twice! This explains the run time error you were getting.