gesperrtes feld läßt sich ändern

14/01/2010 - 12:21 von Thomas_INEOS | Report spam
Hallo,
ich habe mit einem gesperrten Feld Probleme. Es ist ein Feld mit einem
Hyperlink.
In den Eigenschaften des Feldes [credit-doc] steht
gesperrt : Ja
Für das ganze Unterformular gilt "Bearbeitungen zulassen - Nein"

zusàtzlich gibt es einen Button im Formular, der eigentlich nur für die
erste eEingabe gedacht ist. dort ist als code hinterlegt:

Private Sub make_alfresco_link_Click()
On Error GoTo Err_make_alfresco_link_Click
[credit-doc] = "\\in1bsnapp003a\alfresco"
[credit-doc] = OpenExternalFile(Trim([credit-doc]))

Exit_make_alfresco_link_Click:
Exit Sub

Err_make_alfresco_link_Click:
MsgBox Err.Description
Resume Exit_make_alfresco_link_Click

End Sub

Wenn ich aucspàter den Button aufrufe, kann ich das Feld [credit-doc]
àndern. Das müßte aber verhindert werden.

Kann mir jemand dabei helfen?

Gruß

Thomas Friederich
 

Lesen sie die antworten

#1 Jörg Ackermann
14/01/2010 - 12:32 | Warnen spam
Hallo Thomas_INEOS

Thomas_INEOS meinte:


Hallo,
ich habe mit einem gesperrten Feld Probleme. Es ist ein Feld mit einem
Hyperlink.
In den Eigenschaften des Feldes [credit-doc] steht
gesperrt : Ja
Für das ganze Unterformular gilt "Bearbeitungen zulassen - Nein"

zusàtzlich gibt es einen Button im Formular, der eigentlich nur für
die erste eEingabe gedacht ist. dort ist als code hinterlegt:

Private Sub make_alfresco_link_Click()
On Error GoTo Err_make_alfresco_link_Click
[credit-doc] = "\\in1bsnapp003a\alfresco"
[credit-doc] = OpenExternalFile(Trim([credit-doc]))

Exit_make_alfresco_link_Click:
Exit Sub

Err_make_alfresco_link_Click:
MsgBox Err.Description
Resume Exit_make_alfresco_link_Click

End Sub

Wenn ich aucspàter den Button aufrufe, kann ich das Feld [credit-doc]
àndern. Das müßte aber verhindert werden.

Kann mir jemand dabei helfen?



Versuche mal:

If Isnull([Credit-doc]) Then
[credit-doc] = "\\in1bsnapp003a\alfresco"
[credit-doc] = OpenExternalFile(Trim([credit-doc]))
End If

Blende doch den Button aus, wenn bereits etwas im Feld steht.

Gruß

Mitglied im DBDEV http://www.dbdev.org
Access-FAQ: http://www.donkarl.com

Ähnliche fragen