Z
zyzzyva
I use A2003
I am getting the above error when I run the following code on my new laptop
with Vista
I am the sole user of the db and use this this db on a number of machines
running XP with no problems--I am on no network, etc
I think the problem is as simple as not having something checked or not
checked in Security
'==============The Code=============
Public Function SetCopying2Paste(ctl As TextBox)
Dim I1%
ctl.SetFocus
If IsNull(ctl) Then
I1% = 20
Call MsgBoxX(I1%, "X") 'X here is a dummy val to satisfy the funct
called
Else
ctl.SelStart = 0 'Start selection to be copied at the beginning
ctl.SelLength = Len(ctl) + 20 '20 ADDED TO MAKE COPY ALL
SendKeys "^c" 'i.e., Copy what is selected to Paste
DoEvents 'Do It-That is, do the copying
I1% = 40
'Call MsgBoxX(I1%, "X") 'Call up this msg
End If
End Function
I am getting the above error when I run the following code on my new laptop
with Vista
I am the sole user of the db and use this this db on a number of machines
running XP with no problems--I am on no network, etc
I think the problem is as simple as not having something checked or not
checked in Security
'==============The Code=============
Public Function SetCopying2Paste(ctl As TextBox)
Dim I1%
ctl.SetFocus
If IsNull(ctl) Then
I1% = 20
Call MsgBoxX(I1%, "X") 'X here is a dummy val to satisfy the funct
called
Else
ctl.SelStart = 0 'Start selection to be copied at the beginning
ctl.SelLength = Len(ctl) + 20 '20 ADDED TO MAKE COPY ALL
SendKeys "^c" 'i.e., Copy what is selected to Paste
DoEvents 'Do It-That is, do the copying
I1% = 40
'Call MsgBoxX(I1%, "X") 'Call up this msg
End If
End Function