CISA FotoGallery

Statistiche

Tot. visite contenuti : 885950
Home Articoli tecnici Forms Form ZOOM per i campi Note...

Form ZOOM per i campi Note...

Questa form è strutturata per poter aprire ed editare un campo Note che per motivi di spazio è reso non leggibile(esempio nelle visualizzazioni maschere continue)...!

Funziona sia su Form che su SubForm semplicemente impostando la chiamata alla funzione sottoriportata nell'Evento Doppio_Click della casella di testo.

Basterà inserire :

[Su Doppio Click]=OpenZoom()

CODICE

Public Function OpenZoom()
    On Error GoTo Err_Zoom
    DoCmd.OpenForm "_Zoom", , , , , acDialog
    Exit Function

Err_Zoom:
    If Err.Number = 2501 Then
        Resume Next
    Else
        MsgBox Err.Number & " " & Err.Description
    End If
End Function


Alessandro

Attachments:
Download this file (338.zip)Allegato45 Kb