Funktioner skal kun udføres hvis en checkbox er valgt.

Hejsa

Jeg har denne kode:

Function Check_Relation(CheckNavn, InputNavn, Besked)
    dim str
   
    str = "if (document.SaveForm." & InputNavn & ".value == '')" & VbCrLf
    str = str & "{" & VbCrLf
    str = str & "alert(""" & Besked & """)" & VbCrLf
    str = str & "return false; ;" & VbCrLf
    str = str & "}" & VbCrLf
   
    str = str & "reg = /^[0-9]+$/" & VbCrLf
    str = str & "if(!document.SaveForm." & InputNavn & ".value.match(reg)){" & VbCrLf
    str = str & "  alert(""" & Besked & """);" & VbCrLf
    str = str & "  document.SaveForm." & InputNavn & ".select();" & VbCrLf
    str = str & "  document.SaveForm." & InputNavn & ".focus();" & VbCrLf
    str = str & "  return false; ;" & VbCrLf
    str = str & "}" & VbCrLf
   
    Check_Relation = str
End function

Den checker om der findes en værdi i inputnavn feltet samt om den given værdi er et tal. Men jeg skal have den til kun at undersøge for disse to ting hvis checkboksen med navnet CheckNavn er valgt. Eller skal den ikke gøre noget. Hvordan smider jeg lige denne check ind?