Macro to paste on focus

[zigstick]

Help; trying to write a macro in Access that will open a table, copy a field, then return to an already opened form and paste append the values to the end of the string that is in a memo field. The form where I'm pasting the data would already be opened and the cursor positioned at the end of the existing text when the macro button is pushed. Any suggestions?

thanks much!

 

[PHV]

Don't use a macro but the DLookUp function in VBA.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[TheAceMan1]

How are ya zigstick . . .

In case your intent is to [blue]append the entire field[/blue], try this:

[blue]   Dim db As DAO.Database, rst As DAO.Recordset, Pack As String
   
   Set db = CurrentDb
   Set rst = db.OpenRecordset("[purple][b]tblName[/b][/purple]", dbOpenDynaset)
   
   If rst.BOF Then
      MsgBox "No Records!"
   Else
      Do
         If Pack <> "" Then
            Pack = Pack & ", " & rst![purple][b]FieldName[/b][/purple]
         Else
            Pack = " " & rst![purple][b]FieldName[/b][/purple]
         End If
         
         rst.MoveNext
      Loop Until rst.EOF
      
      Me![purple][b]TextboxName[/b][/purple] = Me![purple][b]TextboxName[/b][/purple] & Pack
   End If
   
   Set rst = Nothing
   Set db = Nothing[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886