Ga naar inhoud

MS Access isNull


maverick
 Delen

Aanbevolen berichten

Hallo,

Ik wil controleren of mijn veld leeg is of niet in mijn formulier:

If IsNull(Me!txtProbleem) Then

Me!txtProbleem = "Niet ingevuld"

End If

Als dit het geval is vult hij zelf een standaard text in.

txtProbleem is een memoveld.

Me!txtProbleem is wel degelijk leeg maar hij stapt er telkens over...

Nog een vraagske voor te testen of een formulier open is of niet

Dit heb ik er al van gevonden:

If IsOpen("FormName") Then DoCmd.Close acForm, "FormName"

Public Function IsOpen(fn As String) As Boolean

If SysCmd(acSysCmdGetObjectState, acForm, fn) <> 0 Then

IsOpen = True

End Function

WHo can help me?

grtz maverick

aangepast door maverick
Link naar reactie
Delen op andere sites


Je zegt het volgende:

If IsNull(Me!txtProbleem) Then (Indien niks is ingevuld)

Me!txtProbleem = "Niet ingevuld" (Vult dan met Niet ingevuld)

End If

Het moet zo zijn

Dim mijn menonietingevuld as string

If IsNull(Naam) Then

menonietingevuld = Msgbox ("Je hebt niets ingevuld")

End If

Naam = naam van besturingselement.

Ik heb dat niet getest met memo want normaal gezien is het een tekstvak.

If IsOpen("FormName") Then 'is FormName open

DoCmd.Close acForm, "FormName" 'Sluit FormName

Is het bedoeling als je naar een andere formulier gaat dat de huidige formulier sluit.

Dan kan je evengoed zo doen:

DoCmd.Close

Docmd.openform "FormName"

Link naar reactie
Delen op andere sites


Ik heb zojuist getest

On Error GoTo openformfout: Als er iets fout loopt

If IsOpen(Forms.Opstart_F) Then

DoCmd.Close acForm, "Opstart_F"

End If

openformfout:

Exit Sub

End Sub

Public Function IsOpen(fn As String) As Boolean 'returns True if form is open

If IsOpen = SysCmd(acSysCmdGetObjectState, acForm, fn) <> 0 Then IsOpen = True

End Function

Je moet de bovenstaande ingeven bij eigenschappen van die geopend wordt en dan bij "Bij openen" gebeurtenis

Link naar reactie
Delen op andere sites

If IsNull(Me!txtProbleem) Then

Me!txtProbleem = "Niet ingevuld"

End If

Als dit het geval is vult hij zelf een standaard text in.

txtProbleem is een memoveld.

Me!txtProbleem is wel degelijk leeg maar hij stapt er telkens over...

Het is niet het memoveld dat je moet testen of hij null is of niet maar wel de text property.

De procedure zou dus als volgt kunnen zijn

If IsNull(Me!txtProbleem.text) Then
Me!txtProbleem.text = "Niet ingevuld"
End If

Link naar reactie
Delen op andere sites


Gast
Dit topic is nu gesloten voor nieuwe reacties.
 Delen

×
×
  • Nieuwe aanmaken...