Kontrol om tekstlabel eksistere på en formular og oprette igen
Her er 2 spørgsmål: 1 check eksistensen af om label findes på formularen. 2 oprettelse igen hvis den er slettet.Disse 3 fungere, hvis txtMadeBy eksistere.
'CallByName txtMadeBy, "Move", VbMethod, 100, 100
'Svar = CallByName(txtMadeBy, "Name", VbGet)
'If CallByName(txtMadeBy, "Name", VbGet) <> "txtMadeBy" Then Call GenOpRet
Nedenfor virker ikke da jeg får en forkert fejl, som der ikke kan arbejdes vidre med.
If IsMissing(txtMadeBy) Then
Svar = "mangler" ' Opret label igen
Call GenOpRet
Else
Svar = "findes" ' OK
End If
Debug.Print "LabelNavn: " & Svar
