Hallo
Ik probeer de gebruikers van mijn database ervan te weerhouden dat ze de <Shift> key gebruiken om zelf zaken aan te passen
Ik vond op het internet deze code die ik in een module heb toegevoegd.
Op een of andere manier gaat dit voor mij niet werken
Moet ik nu nog dingen aanpassen of zo?
Ik ben helemaal niet bekend met de VBA code
Graag jullie hulp
Bedankt
Ik probeer de gebruikers van mijn database ervan te weerhouden dat ze de <Shift> key gebruiken om zelf zaken aan te passen
Ik vond op het internet deze code die ik in een module heb toegevoegd.
'Copy this function into a new public module.
Option Compare Database
Option Explicit
Public Function SetProperties(strPropName As String, _
varPropType As Variant, varPropValue As Variant) As Integer
On Error GoTo Err_SetProperties
Dim db As DAO.Database, prp As DAO.Property
Set db = CurrentDb
db.Properties(strPropName) = varPropValue
SetProperties = False
Set db = Nothing
Exit_SetProperties:
Exit Function
Err_SetProperties:
If Err = 3270 Then 'Property not found
Set prp = db.CreateProperty(strPropName, varPropType, varPropValue)
db.Properties.Append prp
Resume Next
Else
SetProperties = False
MsgBox "SetProperties", Err.Number, Err.Description
Resume Exit_SetProperties
End If
End Function
'***************** Code End ***************
Op een of andere manier gaat dit voor mij niet werken
Moet ik nu nog dingen aanpassen of zo?
Ik ben helemaal niet bekend met de VBA code
Graag jullie hulp
Bedankt