I have a piece of code that works on one computer and will not work on another computer.
Private Sub Label24_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Txtholder.Value = Null
Me.Txtholder.Value = Me.PROJECTID
If Len(Nz([Txtholder], "")) = 0 Then MsgBox "There Is No Project Associated With This ToDo" Else
End Sub
The part that does not work is Txtholder.Value=Me.PROJECTID.
I'm really a rookie at this. Will be traveling this afternoon, but will be checking for help.
Thanks
Everette