Telefoon of GSmnummer in record

Status
Niet open voor verdere reacties.

JEPEDEWE

Terugkerende gebruiker
Lid geworden
14 jun 2006
Berichten
1.680
Beste allemaal,
dit is waarschijnlijk een erg domme vraag maar toch waag ik het er op

Ik heb een fiche waarin ik een veld Telefoon en een veld GSM-nummer heb
Ik wil een msgbox die verschijnt als ik geen van beide nummer heb... met 1 ben ik al tevreden. Dus schrijf ik in mijn code:

'Onbekende Tel/GSM nummer
If IsNull(tb3!GSM) = True Or IsNull(tb3!TEL) = False Then
If MsgBox("Telefoon of GSM-nmmer is niet bekend") = vbOK Then
End If
End If

In het record dat ik opsoek heb ik wel een telefoonnummer maar geen GSM nummer, dus ik zou de msgbox niet mogen zien.
Toch verschijnt die... dus mijn syntax is niet correct
Hoe moet die dan wel zijn?

Bedankt voor de hulp

en beste wensen voor 2017

JP
 
Geen telefoonnummer én geen GSM nummer:
Code:
'Onbekende Tel/GSM nummer
If IsEmpty(Range("tb3!GSM") AND IsEmpty(Range("tb3!TEL") Then
If MsgBox("Telefoon of GSM-nmmer is niet bekend") = vbOK Then
End If
End If

Zie dat IsNull niet wordt gebruikt (in plaats daarvan IsEmpty) én beide cellen moeten leeg zijn (er wordt d.m.v. AND getest of beiden leeg zijn.)

In jouw originele code wordt (even afgezien van het verkeerde gebruik van IsNull) de messagebox getoond als óf er géén GSM nummer bekend is óf als juist wel een telefoonnummer bekend is, terwijl je eigenlijk wil dat de msgbox verschijnt als beiden niet bekend zijn. [Je messagebox zou met jouw code trouwens ook verschijnen als beiden wél zijn ingevuld, want dan is voldaan aan dat het telefoonnummer bekend is.]

Tijs.
 
Laatst bewerkt:
mijn code is nu:

'Onbekende Tel/GSM nummer
If IsEmpty(tb3!GSM) And IsEmpty(tb3!TEL) Then
If MsgBox("Telefoon of GSM-nmmer is niet bekend") = vbOK Then
End If
End If

Maar in mijn concreet geval is er geen Telefoonnummer EN geen GSM nummer... dus ik wil die msgbiox te zien krijgen
Nu gebeurt er niets
Als ik de waarde van tb3!GSM opvraag dan krijg ik "Null'
Voor de waarde: tb3!TEL vraag krijg ik ook "Null"..
Maar geen msgbox te zien

JP
 
Probeer de code die ik zojuist heb aangepast in posting #2, waarbij ik Range gebruik. Ik was blijkbaar iets te snel. ;)
Laat maar weten of die code wél werkt zoals bedoeld.

Tijs.
 
Als ik de vraag goed begrepen heb, is dit al voldoende:
Code:
    If Me.GSM & "" = "" And Me.TEL & "" = "" Then MsgBox "Telefoon of GSM-nmmer is niet bekend"
 
Werkt perfect... merci Michel
(voor de zoveelste keer)

JP
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan