[Resolvido] Copiar campo de um Formulário para uma tabela de um SubFormulário

Viva, aqui estou eu mais uma vez,

Já a pesquisar mas, embora exista um tópico parecido, não consigo resolver isto:

1- Tenho o Formulário "Frm_A" em que por cada registo exite um campo "A_ID" (AutoNumber) e um "X_ID";
2- Pretendo que ao Click no botão o campo "A_ID" seja copiado para a "Tbl_X" no respectivo campo "A_ID".

Não sei se me consegui explicar.

Qualquer das maneiras deixo aqui o código que só actualiza o campo "A_ID" no primeiro registo da Tbl_X.

O código que utilizei é:

Código:

Private Sub cmd_Copiar_Click()
Dim db As Database
Dim rs As Recordset

On Error GoTo Info
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Tbl_X", dbOpenDynaset)
        With rs
           rs.FindFirst ([X_ID] = Me.X_ID) ' Procurar valor ID
        If rs.NoMatch Then
            MsgBox "Erro na Cópia do Campo"
        Else
            .Edit
            ![A_ID] = Me.A_ID.Value
            .Update
            .Close

            MsgBox "Campo Copiado", vbOKOnly
            Me.Frm_X.Requery
        End If
       End With
    Exit Sub
Info:
    MsgBox Err.Description
End Sub

Muito obrigado pela atenção dispensada.

Bruno Gordino

Caríssimos,

Quanto mais depressa abrisse o tópico mais depressa dava com a falha.

Então aqui está:

Sustituí:
rs.FindFirst ([X_ID] = Me.X_ID) ' Procurar valor ID

Por:
rs.FindFirst ("[X_ID] = " & Me.X_ID) ' Procurar valor ID

Obrigado na mesma

Bruno Gordino