29. september 2005 - 13:07Der er
11 kommentarer og 1 løsning
Lukke form fra Function
Hver gang en form åbnes skal der checkes for værdien i en bestemt celle. Hvis der ingen værdi er skal der meldes en fejl og formen skal lukkes. Det sidste kan jeg ikke få til at fungere.
'I de forskellige forms kalder jeg funktionen. CheckSprogTegning (Me.Name)
'funktionen ser således ud Function CheckSprogTegning(FormName As String) As MSForms If Range("SPROG_TEGNING") = "" Then MsgBox "Fejl 1001. Der er ikke angivet sprog for tegningssættet!" FormName.Hide Range("SPROG_TEGNING").Select End If End Function
Kan det ikke virke på denne eller en lignende måde?
Private Sub UserForm_Activate() If CheckSprogTegning() = False Then Me.Hide End Sub
Function CheckSprogTegning() As Boolean If Range("SPROG_TEGNING") = "" Then MsgBox "Fejl 1001. Der er ikke angivet sprog for tegningssættet!" Range("SPROG_TEGNING").Select CheckSprogTegning = False Else CheckSprogTegning = True End If End Function
Private Sub UserForm_Activate() CheckSprogTegning End Sub
Function CheckSprogTegning() If Range("SPROG_TEGNING") = "" Then For Each Form In UserForms Form.Hide Next MsgBox "Fejl 1001. Der er ikke angivet sprog for tegningssættet!" Range("SPROG_TEGNING").Select End If End Function
Private Sub UserForm_Activate() CheckSprogTegning (Me.Name) End Sub
Function CheckSprogTegning(Navn As String) If Range("SPROG_TEGNING") = "" Then For Each Form In UserForms If Form.Name = Navn Then Form.Hide Exit For End If Next MsgBox "Fejl 1001. Der er ikke angivet sprog for tegningssættet!" Range("SPROG_TEGNING").Select End If End Function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
