Run-time error '2046' Kommandoen ......

I hvilken sammenhæng bruger du det og er det noget du programmerer?

Frontend består af en hovedform og en subform, hvorfra al databehandling foregår.

Via hovedform fremsøger en bruger en record som vises i subform. Denne record skal herefter kopieres som ny record i databasen med ny unik ID ( autonum ).

Dette gøres ved hjælp af en funktionsknap på hovedform ved hjælp af følggende :

Private Sub CopyRecord_Click()
Dim db As DAO.Database

Set db = CurrentDb()

    Me.Countries_subform.Form.Dirty = False
 
    Me.Countries_subform.SetFocus
       
        DoCmd.GoToRecord , , acLast
            DoCmd.RunCommand acCmdSelectRecord
                DoCmd.RunCommand acCmdCopy
                    DoCmd.GoToRecord , , acNewRec
                        DoCmd.RunCommand acCmdPaste
                            DoCmd.RunCommand acCmdSaveRecord
   
    DoCmd.GoToRecord , , acNewRec
        DoCmd.RunCommand acCmdSelectRecord
   
    Me.Countries_subform.SetFocus
        DoCmd.GoToRecord , , acLast
            DoCmd.RunCommand acCmdSelectRecord
           
    Me.Countries_subform.Form.Refresh
           
    Me.Refresh
   
End Sub

OK, jeg har fundet denne artikel, håber det hjælper.

Jeg programmerer, men arbejder ikke med databaser.

http://support2.microsoft.com/kb/244695

Not sue what these are here for although I dobt they have anything to do with th eproblem.


Dim db As DAO.Database

Set db = CurrentDb()


Try and debug through the code to see which line is triggering the error.

I would still suggest copying the record using SQL (ref. your preious question)

preious  previous

I don't see any reason why copying a record should give problems unless your locking the table. What locking method are you using?

I think the problem is related to the sub-table being activated.

The method used is this :

1. A record is found using the search function in the main form
2. This record is visualized in the subform
3. Using the copy function, a new record is added
4. Via this new record, a subtable is maintained

As a part of the search ( 1. ) the functionality marks/highlights the rocord to be copied.

If a user chose to close the subtable after maintaining the content, step 1-4 runs smoothly

If a user chooses to leace the subtable open/active it fails because the search function doesn't mark/highlight the correct record for copying :-(

In other words, I'm missing af function ( BeforeUpdate ) to close the subtable before a new search in performed !!!

Not sure I understand fully.
I assume you have separate tables for the main form and sub form

You find a record in the main form and then copy the record to the sub form (separate table)

You say "If a user chooses to leace the subtable open/active .." I assume you mean the sub form?

Is the sub form a separate form (not a sub form of the main form)?

You say "
If a user chooses to leace the subtable open/active it fails because the search function doesn't mark/highlight the correct record for copying :-("

Is this another record your trying to copy???


Any chance of seeing the DB?

Ikke aktuel