MS Access isNull

[maverick]

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

3 september 2010 aangepast door maverick

[stegisoft]

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"

[maverick]

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

Ik wil vanuit het hoofdforumulier controleren of er een bepaald formulier open staat, dat is alles

[stegisoft]

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

[maverick]

Kga het even testen!

[kweezie wabbit]

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