التحكم بلكليب بورد

تفضل أخى

    With Me!cmbList
        .SetFocus
        .SelStart = 0
        .SelLength = Len(.Value)
    End With
    DoCmd.RunCommand acCmdCopy