Problemer med null-error-besked (tal-format)

P.S. Jeg kan desværre først læse jeres bud sent i aften. Men jeg skal nok reagere!

Theofilos

Hvis du bruger en if saetning ala denne:

if  Not isNull(din Dlookup funktion) then
....
else
  Msgbox "Denne salme findes ikke i enten den nye eller gamle salmebog"
end if

du kan vel bruge formens vedFejl hændelse:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    MsgBox "salmen findes ikke"
End Sub

Niels

If IsNull(Me.ny salmebogsnummer) Then
Msgbox "Denne salme findes ikke i enten den nye eller gamle salmebog"

End If
Vh Henrik

You have to check for NULL BEFORE you make the dlookup

If IsNull(glSalmeField Then
Msgbox "Denne salme findes ikke i enten den nye eller gamle salmebog"

else

'Now do your dlookup

End if

!Sorry forget that answer, didnt quite understand the problem :o)


Use a variant data type when using your Dlookup, this accepts NULL values

Dim vLook as variant

vLook = Dlookup .,......

If IsNull(vLook) Then 'you have a problem .....

Kære overchord, nih, henrik og terry...

Så har jeg set jeres hjælp. Tak for det. Men jeg kan altså ikke få skidtet til at virke.

Her er den funktion, som jeg har sat ind i "efter opdatering" i feltet for indtastning af gammelt salmenr:

Private Sub Tekst22_AfterUpdate()

Dim varSalme As String
varSalme = DLookup("[ny]", "gamlenr", "[gl]= " & Me![Tekst22])
    Me.Tekst20 = varSalme

Dim varTekst As String
varTitel = DLookup("[titel]", "gamlenr", "[gl]= " & Me![Tekst22])
    Me.Tekst24 = varTitel

End Sub



Funktionen finder via tabellen "gamlenr" frem til såvel nummer i den ny salmebog som titel.

MEN... desværre er der jo en del salmer fra den gamle salmebog, som slet ikke er kommet med i den nye - og derfor er der i disse tilfælde intet "output" (i feltet "Tekst20".

Af statistiske årsager har jeg valgt at salmenumrene skal være i tal-format og ikke tekst-format... Det eneste problem jeg har er de dumme fejl-beskeder, når jeg kommer til at indtaste nummeret for en salme, der ikke findes i én eller begge salmebøger...

HVOR skal jeg sætte hvilken if-sætning ind?

Mvh

Theofilos

Send den til mig så skal jeg lave det som en fejlbehandling, min E-mail adresse er:
oz1bua@wanadoo.dk
Vh Henrik13

Du skal bruge hændelse i formularen, vedFejl. Så skal det kun indskrives det ene sted:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 94 Then
MsgBox "Salmen findes ikke"
Response = acDataErrContinue
End If
End Sub

Vh Henrik13

Desværre...

Det virker ikke. Error 94 meddelelsen popper stadig væk op  :o(

Har du set, at jeg har sendt dig databasen? Så kan du se, hvad jeg mener.

Mvh

Theofilos

>> theofilos
Jeg har desværre ikke modtaget noget.
Vh Henrik13

Dim varSalme As String


varSalme = DLookup("[ny]", "gamlenr", "[gl]= " & Me![Tekst22])
if Not IsNull(varSalme) then
    Me.Tekst20 = varSalme
else
    msgbox "Beklager dette nummer findes ikke i den gamle salmebog"
end if

Hvis det ikke virker, skal du smide Dlookup funtionen direkte ind i parantesen Not Isnull istedet..

og som Terry sagde, lave varSalme om til
Dim varSalme as Variant

theofilis>You can send the dB to eksperten@santhell.dk and I will take a look

Er sendt

Kan vi se svaret?

>>Terry 1.14  :o)

Hvis man gøre det rigtig vil man ikke få en error!

>> terry
Det er rigtigt men der var anvændt en løsning som beskrevet i:
http://www.eksperten.dk/spm/365794
Vh Henrik

Jeg kan se at jeg var ikke involveret med dette sp? måske derfor :o)

Men min holdning er, at hvis man kan gøre det rigtig (uden fusk) så skal man, og det kan man lige så godt prøv at overbring to personen der stiller sp. så de kan lære (håber du forstår min dansk :o)

>> terry
Det er rigtigt, men så skal der jo flere komplexe løsninger til med det vigtigste ERROR behandling af hvert svar, hvor databasen skal udsendes til alle, der så giver bud på en løsning, med den ulempe, der ikke er noget der hedder hurtige svar. Jeg vil lige sige også, at det ikke var min løsning der blev valgt, i det spam (http://www.eksperten.dk/spm/365794).
Vh Henrik

Kære Henrik og Terry

Jo. Jeg valgte ikke Henriks forslag, fordi jeg ønskede at have det hele i én formular. Men det er en hel anden historie (http://www.eksperten.dk/spm/365794)

Henrik - du har da løst mit problem denne gang. Jeg er også glad for alle de forslag I andre har givet - bortset fra at jeg ikke kunne få dem til at virke nogen af dem.

En anden ting er, at jeg selv delvist løste problemet ved at sætte værdien "0" ind, hvor der manglede data i salmetabellen. Herved blev Error 94 problemet meget mindre.

Henrik - man kan vel sige, at du har løst mit problem... Hvordan.. Tja, det må jeg lige finde ud af ved at kigge på den mdb-fil, du har sendt tilbage.

Har jeg ret i, at Henrik fortjener pointene? Terry - du får også nogle!

Tak for hjælpen. Desværre tror jeg snart, at jeg vender tilbage... Jeg har gang i noget andet spændende... Bla. en database, hvor jeg knokler med at finde ud af, hvordan man finder forskellige aldre ud fra CPR-NR og dags dato... vel og mærke PRÆCIST! Men det må jeg jo ikke begynde at spørge om her, da det er et helt andet spørgsmål.

Med venlig hilsen

Theofilos

Theofilos>I cant say if Henrik has earned the points, only you can :o)

HOV!!! Jeg ville gerne have forøget points i dette spørgsmål til 110 således at Henrik får 80 og Terry 30.... Nu gav den jer hver 40...

Kan jeg ændre dette nu?

Mvh

Theofilos

you can give Henrik points in another question with a reference to this one, and I can do the same if he wants?

Hvad synes du, Henrik? Jeg synes, du har fortjent 80 og ikke 40 points...

Mvh

Theofilos

Ok
Jeg har været på hostpitalet, men jeg vil da gerne havde 40 poient mere.
Vh Henrik

Ok
Jeg stiller dig et nyt spørgsmål, som du nok kan svare på ;o)