So I will write my code as I need to but I always like being able to save key strokes.
I recently wanted to be able to copy text in a field to the clipboard to use it in another program (one that I could not link to the main program). So I wrote this:
Private Sub SReqOrganizationName_DblClick(Cancel As Integer)
Dim strCTL As String
strCTL = Screen.ActiveControl.Name
With Me.Controls(strCTL)
If Len(.Value) Then
.SelStart = 0
.SelLength = Len(.Value)
DoCmd.RunCommand acCmdCopy
End If
End With
End Sub
By using the with statement, I didn’t have to customize this for each field that I wanted to do this on.
The better thing would be to write this as a public command rather than put this is each fields DoubleClick command. But this works and works well too.