Skicka tillbaka ett värde som indikerar om operationen lyckades?
Funktioner skall returnera värden.
2 svar · 185 visningar · startad av Addeladde
Hej
Jag har en funktion som skapar en användare alltså lägger in lite saker i en databas. Innan den gör det så kontrollerar den om det finns en användare med samma användarnamn och om det finns så avbryter den funktionen.
Skulle man kunna få på sidan som anroppar funktionen att visa ett felmeddelande då?
Exempelvis: En användare med samma användarnamn finns redan.
Så här ser anroppet på funktionen ut:
blnSuccess = objOps.Create(strUsernameVal, strPasswordVal, strNameVal, strIconVal, strEmailVal, intZIDVal)
Så här ser funktionen ut det fetmarkerade visar vad som händer om det redan finns en användare som kontrolleras i en annan funktion kallad Exists:
Public Function Create(ByVal strInUsername, ByVal strInPassword, ByVal strInName, ByVal strInIcon, ByVal strInEmail, ByVal intZID)
On Error Resume Next
If strInUsername = "" OR strInPassword = "" OR strInName = "" Then
Exit Function
End If
[b]If Exists(strInUsername, intZID) = True Then
[red]Exit Function[/red]
End If[/b]
[b]osv...[/b]
END Function
Tacksam för all hjälp
Skicka tillbaka ett värde som indikerar om operationen lyckades?
Funktioner skall returnera värden.
Gjorde så här:
If blnSuccess = True Then
Set objZones = New RealAdmin_Zones
objZones.ZID = intZID
objZones.AddAssignment intOID
Set objZones = Nothing
ELSE
blnErr3 = True
Exit sub
End If