Avatar billede trinerafn Nybegynder
04. januar 2005 - 14:20 Der er 13 kommentarer og
2 løsninger

Problem med If Then Else sætning

Jeg har et problem med en If sætning, da der er to kriterier som skal være opfyldt før der gåes til Then. Sådan ser sætningen ud nu men det virker jo så ikke ... Hvordan skrives der om:
If DCount("*", "Leads", "[LeadsNo]=" & a) > 0 And "Leads" [Status].Value = "Order" Then
  Forms!FrmOrdre![Projektnr].Value = [Projektnr] + 1
Else:
Me.Undo
MsgBox "Indtast nu et gyldigt Leadsnummer med Status som Order"
End If
Exit Sub
Feltet LeadsNo fra tabellen Leads skal findes (dette virker allerede) OG Feltet Status fra tabellen Leads skal være "Order" før der oprettes et Projektnr. How to do??
Avatar billede lorentsnv Nybegynder
04. januar 2005 - 14:26 #1
Du skal ikke have : efter Else.
Ellers skulle det fungere.
04. januar 2005 - 14:34 #2
Prøv med denne:

If DCount("*", "Leads", "Value = 'Order' And LeadsNo]=" & a) > 0  Then
...
Avatar billede trinerafn Nybegynder
04. januar 2005 - 14:58 #3
Nej det virker ikke, der mangler også en firkantet parantes foran LeadsNo men det virker stadig ikke
Avatar billede sjap Praktikant
04. januar 2005 - 15:26 #4
Så vidt jeg kan se, er det sætningen efter "And", der er problemet:

"Leads" [Status].Value = "Order"

giver vist ikke ikke nogen mening. Vil du lave et opslag på "Status" i "Leads" tabellen, eller er det den aktuelle værdi (som du har i en en formular eller tabel)?
Avatar billede trinerafn Nybegynder
04. januar 2005 - 15:37 #5
Jeg har bl.andre en tabel der hedder Leads, denne tabel har et felt, der hedder Status. Dette felt kan have værdierne Active, Lost eller Order. Kun når feltet Status har værdien "Order" OG feltet "LeadsNo" findes, skal der gåes videre, som beskrevet i spørgsmålet
Avatar billede skovge Novice
04. januar 2005 - 15:46 #6
Proev med det her:

If DCount("*", "Leads", "[LeadsNo]=" & a) > 0 And DLookUp("[Status]", "Lead", "[LeadNo] = '" & a & "'" = "Order" Then
Avatar billede sjap Praktikant
04. januar 2005 - 15:47 #7
Så måske (en mindre revision af thomasjepsen's forslag):

If DCount("*", "Leads", "[Status] = 'Order' And [LeadsNo]=" & a) > 0  Then
04. januar 2005 - 15:50 #8
Når du skriver "LeadsNo skal findes", hvad har det så med din a-værdi at gøre? Hvad er a?

Skal LeadsNo bare have en værdi?

I så fald må dette være løsningen:
If DCount("*", "Leads", "[Status] = 'Order' And LeadsNo is not null) > 0  Then
Avatar billede trinerafn Nybegynder
04. januar 2005 - 15:58 #9
>Thomas Jepsen
Dim a As Long
a = TbIndtast
a er det man tester op mod - det man taster ind i Textboxen TbIndtast (et LeadsNr)
04. januar 2005 - 16:02 #10
ok, så vi er enige om, at Status skal være lig "Order" og LeadsNo skal være lig a? Begge felter ligger i tabellen Leads?

Så burde mit første bud virke (bortset fra den manglende [)
Mystisk....
Avatar billede sjap Praktikant
04. januar 2005 - 16:05 #11
Lige bortset fra at der skal stå "Status" i stedet for "Value" (som jeg skrev) ;0)
Avatar billede trinerafn Nybegynder
04. januar 2005 - 16:18 #12
>Sjap Ja du har løst den. Jeg skulle lige prøve først. Tak for hjælpen. Også til Jer andre. Mvh. Trine
Avatar billede trinerafn Nybegynder
04. januar 2005 - 16:25 #13
Ok, det var lidt svært for mig at fordele points retfærdigt, da Sjap ikke stod der hvor man angir points, jeg prøvede at fordele, så de overskydende blev fordelt mellem dem der ikke stod på skærmen - undskyld hvis det ikke blev retfærdigt. Mvh Trine
Avatar billede sjap Praktikant
04. januar 2005 - 16:33 #14
Trine > Tjah, du bestemmer jo sådan set helt selv hvordan pointene fordeles. Hvis du synes at nogen skal have point kan du jeg altid udbede dig et svar, så plejer det at komme. Hvis du så har givet mine point til thomasjepsen, så synes jeg det er ok. Jeg lavede jo blot en meget lille ændring af hans første forslag - og jeg rettede det formodentlig bare til det, han troede, han skrev ;0)
Avatar billede trinerafn Nybegynder
04. januar 2005 - 22:07 #15
Sjap>Tak for dit svar. Det med at udbede sig et svar, den havde jeg ikke lige fattet. Jeg husker det til næste gang. Og Jo thomasJepsen havde også fortjent en hel del af pointene, da han altid er hurtig til at hjælpe, jeg håber bare at du også fik nogen. Nok om det. Endnu engang tak for hjælpen :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester