15-12-20, 15:54
|
| Όνομα: Γιάννης Έκδοση λογισμικού Office: Ms-Office 2016 Γλώσσα λογισμικού Office: Αγγλική | | Εγγραφή: 08-12-2020
Μηνύματα: 153
| |
Private Sub button_Click()
If len(Me.Eponymo) =0 then
msgbox "Το πεδίο είναι κενό"
else
eponymo.SetFocus
DoCmd.RunCommand acCmdCopy
end if
End sub
|