Kan jeg lave et felt som aut. opdateres afhængig af kritirierne?

Jeg tror du taler om 2 forskellige ting.

Hvis du har en forespørgsel med nogle kriterier som posten opfylder, vil formularen vise posten. Hvis du i formularen ændrer et felt der indgår i kriterierne, så posten ikke længere opfylder kriterierne, vil posten først forsvinde når du enten Refresher eller Requery.

Hvis du vil styre det fra formularen, kan du i hver datafelt i BeforeUpdate indsætte en kode der kontrollerer om en række kriterier er opfyldt:

If Me.dato = Date() And Me.Aktiv = True Then
Me.janej = True
Else.
Me.janej = False

Du kan så ikke have kriterier i forespørgslen.

Hvis forespørgslen returnere en værdi til formularen i form at et værdifelt, kan du lave en If, Then ... Else, som målert på, om der returneres en værdi ( kriterie er opfyldt ) eller ikke ...

If Is Null [Forespørgsel].[Felt1] Then
  Felt2.Value = "Nej"
Else
  Felt2.Valie = "Ja"
End If

hmmm, i dag har jeg en forespørgsel hvor jeg kan tælle antallet af aktive kunder. Denne forespørgsel indeholder 2 til 3 "og" kriterier som kombineres med 3 "eller" kriterier. Jeg har ca. 5000 poster i min formular, hvoraf ca. 1500 opfylder mine kriterier. Når min forespørgsel er "kørt" på de 5000 poster, kan jeg så få access til at indsætte værdien i formularen i et felt oprettet dertil? Dvs. de 1500 som opfylder kriteriet bliver det nye felt til et "JA" og hvis ikke til et "NEJ". Næste gang jeg kører forespørgslen bliver de "nulstillet" og opdateret igen.

jensen > Hvis vi som udgangspunkt forestiller os, at posten ikke opfylder kriterierne og dermed ikke er med i forespørgslen, så skal du stadigvæk igennem en refresh / requery for at kontrollere om posten opfylder foresoørgslens kriterier.

Hvis jeg kan, er det vel i forespørgslen jeg skal lave et ja/nej felt, med "if, then...else" som så indsættes i formularen....

Så skal du igennem en løkke, der gennemløber alle poster i formularen:

- Først skal alle poster sættes til Nej i tabellen
- Derefter skal alle poster der opfylder kriterierne sættes til Ja

Det må kunne gøres med først en Update:

DoCmd.RunSQL "UPDATE Tabel1 Set felt1 = False"

Derefter en løkke der opdaterer formularen poster:

Do until Me.NewRecord = True
Felt1 = True
DoCmd.GoToRecord acForm, "Form1", acNext, 1
Loop

Mugs, nu er jeg ikke så skrap til SQL, men jeg kan se din ide. Men kan jeg til en start bare lave et nyt felt i formularen, et ja/nej felt, som jeg som standard sætter til nej?

Hvis du med standardværdi mener egenskaben i tabellen, gælder denne kun for nye poster.

Min SQL:
DoCmd.RunSQL "UPDATE Tabel1 Set felt1 = False"
Skal du ikke studere så¨meget, blot ændre Tabel1 og felt1 til de aktuelle navne. Det er blot en SQL du fyrer af i din formular som en VBA kommando.

Prøv at lave en kommandoknap i formularen og indsæt koden i VedKlik. Så vil alle poster i tabellen blive ændret.

Det kan den ikke finde ud af...:

Private Sub Kommandoknap236_Click()
DoCmd.RunSQL UPDATE kundedata Set kunde ja/nej = False
End Sub

Hvor "Kundedata" = tabellen og "Kunde ja/nej"= feltet ja/nej

Hvorfor?

Du glemmer ""

DoCmd.RunSQL "UPDATE kundedata Set ja/nej = False"

Det er muligt den protesterer fordi du har denne / i et feltnavn.

Hold ALTID dine objektnavne i eet ord uden specialtegn som / _ o.s.v.

Prøv evt.:

DoCmd.RunSQL "UPDATE kundedata Set [ja/nej] = False"

Om igen:

DoCmd.RunSQL "UPDATE kundedata Set [kunde ja/nej] = False"

For en anden gang:

Vær venlig at fortælle os hvilken fejl du får. Udtryk som "Det kan den ikke finde ud af" er intetsigende i forbindelse med en fejlfinding :o)

ok, tak nu virker den.

Hvad så nu? Nu skal jeg jo have tilføjet kriterierne eller kan den tage det fra den tidligere omtalte forespørgsel?

MUGS. ja klart, det er intet sigende. Sorry, skal nok være mere præcis næste gang :-)
Problemet lå både i  de manglende "" og i "/".

jeg vil helst ikke ind i en forespørgsel, men foretrækker en løkke. I din kommandoknap tilføjer du nu denne kode:

Do until Me.NewRecord = True
[kunde ja/nej] = True
DoCmd.GoToRecord acForm, "Form1", acNext, 1
Loop

Idet du skal rette "form1" til navnet på den aktuellke form. I din SQL-sætning arbejdede du i tabellen, nu skal du arbejde i formularen.

ALDRIG:

- / mellemrum

i objektnavne

ALDRIG, ALDRIG :o)

ok, men hvad gør denne kode helt præcist?

Og hvor i min kommandoknap? Skal det være efter SQl sætningen fra før?

Din kode skal se ud som følger i kommandoknappens VedKlik:

DoCmd.RunSQL UPDATE kundedata Set kunde ja/nej = False
Do until Me.NewRecord = True
[kunde ja/nej] = True
DoCmd.GoToRecord acForm, "Form1", acNext, 1
Loop

Do Until o.s.v. gennemløber alle posterne i din formular (alle de poster der opfylder kriterierne), og sætter [kunde ja/nej] til True indtil hændelsen NewRecord indtræffer.

ok, nu har jeg indsat din sætning efter den anden, så der nu står ved klik:

Private Sub Kommandoknap236_Click()
DoCmd.RunSQL "UPDATE kundedata Set xkunde = False"
Do Until Me.NewRecord = True
[xkunde] = True
DoCmd.GoToRecord acForm, "kundedata", acNext, 1
Loop
End Sub

Det virker, den står og kører alle poster igennem og opdaterer dem alle til "JA". Problemet er blot at det jo ikke er alle der skal ændre til ja, men kun nogle af dem. Hvordan får vi flettet kriterierne ind??

Iøvrigt tak fordi du gider hjælpe.. :-)

Hvilken postkilde har din formular, og er der nogle kriterier i den? Formularen bør jo kun  vise de poster der skal opdateres.

"Iøvrigt tak fordi du gider hjælpe.. :-)"

Selv tak. Det er hjælp til selvhjælp - Jeg lærer utrolig meget af Jeres spørgsmål.

Jeg er nødt til at forlade computeren et stykke tid. Har du problemer så læg en kommentar. Jeg kontrollerer min mail senest Kl 18:00

Min formular er et kundedata billeder. Dvs. med alle stamoplysninger på kunder. Navn, adresse m.m. Også med hvornår de sidst har købt, hvornår de får varer næste gang og meget andet. Formularen bruger kundedata fra tabelen. Der er ingen kriterier i den. De kriterier jeg bruger i dag, har jeg i en forespørgsel. Forespørgslen er noget med:
Select kundedata.....
From kundedata
Where (xxx>400) AND (yyy>[Indtast dato]) AND (zzz>=[Indtast dato]) OR (aaa=500) AND (bbb<>købt) AND (ccc=1000) OR (hhh>[indtast dato]) AND (jjj>[indtast dato]) AND (kkk<>0)

Men måske kan jeg indtaste ovenstående Where sætnign direkte i SQL?? Og hvis jeg kan hvordan skal den så udløses, men en ny kommandoknap?

Lige på falderebet:

Tag en kopi af din formular, lad den få postkilde fra en forespørgsel med kriterierne.

I den oprindelige formular har du SQL-sætningen:

DoCmd.RunSQL UPDATE kundedata Set kunde ja/nej = False

Efter denne indsætter du:

Docmd.Openform "Navnet på den nye form"

I dennes Vedaktuel indsætter du løkken og afslutter med:

DoCmd.Close

keldo > lad mig lige få hele din SQL forespørgsel vist c",)

Dette burde kunne gøre det :

Private Sub Kommandoknap236_Click()
Dim strSQL As String
Dim db As DAO.Database

    Set db = CurrentDb()

    strSQL = "UPDATE KundeData SET KundeData.[Ja/nej] = -1 "
    strSQL = strSQL & "WHERE (((KundeData.xxx)>400) "
    strSQL = strSQL & "AND ((KundeData.yyy)>[Indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.zzz)>=[Indtast dato])) "
    strSQL = strSQL & "OR (((KundeData.aaa)=500) "
    strSQL = strSQL & "AND ((KundeData.bbb)<>'købt') "
    strSQL = strSQL & "AND ((KundeData.ccc)=1000)) "
    strSQL = strSQL & "OR (((KundeData.hhh)>[indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.jjj)>[indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.kkk)<>0));"

        db.Execute strSQL


End Sub

Hej Mugs og Jensen, jeg sidder og eksperimentere lidt også for at lære. Det ser ud til at å den rigtige vej, men hvordan får jeg den til at komme med et "pop-up" billede hvor jeg kan indtaste dato kriteriet?? Den virker fint når jeg har indtastet en fast date i SQL ex. #8/1/2004#, men ikke hvis jeg ex, skriver [Indtast dato] i SQL som jeg gør i en forespørgsel. (Så siger den " systemet kan ikke finde feltet som der ref. til)??

Nedenstående virker naturligvis også i en opdateringsforespørgsel :

UPDATE KundeData SET KundeData.[Ja/nej] = -1
WHERE (((KundeData.xxx)>400)
AND ((KundeData.yyy)>[Indtast dato])
AND ((KundeData.zzz)>=[Indtast dato]))
OR (((KundeData.aaa)=500)
AND ((KundeData.bbb)<>'købt')
AND ((KundeData.ccc)=1000))
OR (((KundeData.hhh)>[indtast dato])
AND ((KundeData.jjj)>[indtast dato])
AND ((KundeData.kkk)<>0));

Jensen, jeg prøver din:

Private Sub Kommandoknap236_Click()
Dim strSQL As String
Dim db As DAO.Database

    Set db = CurrentDb()

    strSQL = "UPDATE KundeData SET KundeData.[Ja/nej] = -1 "
    strSQL = strSQL & "WHERE (((KundeData.xxx)>400) "
    strSQL = strSQL & "AND ((KundeData.yyy)>[Indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.zzz)>=[Indtast dato])) "
    strSQL = strSQL & "OR (((KundeData.aaa)=500) "
    strSQL = strSQL & "AND ((KundeData.bbb)<>'købt') "
    strSQL = strSQL & "AND ((KundeData.ccc)=1000)) "
    strSQL = strSQL & "OR (((KundeData.hhh)>[indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.jjj)>[indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.kkk)<>0));"

        db.Execute strSQL


End Sub

Men den fejler. Den markerer  db As DAO.Database og siger User-defined type not defined...???

Du skal lige have reference til Microsoft DAO 3.6 eller lignende

Aktiveres under moduler Tools

øh, det forstod jeg ikke. Moduler, tools og hvad så??

I modulkode-vinduet´s menulinie øverst oppe skulle der være et menupunkt Tools, her vælges References ... og Microsoft DAO 3.6 afkrydses som valg

OK Jensen, tak virker perfekt. Men den kommer med fejl når jeg bruger [Indtast dato] istedet for en fast dato.
Så markere den "db.Execute strSQL" og skriver:
"Der er for få paremetre, der var ventet 1"

Hvad gør jeg??

Hmm ... kigger lige på det ....

Har du prøver at afvikle den samme kode som opdateringsforespørgsel ?

Nej jeg har ikke prøvet at lave en opdateringsforespørgsel. Det prøver jeg lidt senere. Er der en fordel i at lave den som opdateringsforespørgsel, fremfor det andet?

Det er reelt en opdateringsforespørgsel omskrevet til ren SQL ... så de burde virke begge to ...

Jensen jar har lige skrevet noget, men det forsvandt åbenbart.. prøver lige igen... :-(

Jeg tror jeg bruger en kommandoknap i en formular. Men hvad nu hvis jeg skal bruge flere efter hinanden. Kan jeg så gøre følgende: Ex.:


Private Sub Kommandoknap236_Click()
Dim strSQL As String
Dim db As DAO.Database

    Set db = CurrentDb()

    strSQL = strSQL = "UPDATE KundeData SET KundeData.[Ja/nej] = -1 "
    strSQL = strSQL & "WHERE (((KundeData.xxx)>400) "
    strSQL = strSQL & "AND ((KundeData.yyy)>[Indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.zzz)>=[Indtast dato])) "
    strSQL = strSQL & "OR (((KundeData.aaa)=500) "
    strSQL = strSQL & "AND ((KundeData.bbb)<>'købt') "
    strSQL = strSQL & "AND ((KundeData.ccc)=1000)) "
    strSQL = strSQL & "OR (((KundeData.hhh)>[indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.jjj)>[indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.kkk)<>0));"

(Skal der stå noget her?????)

    strSQL = "UPDATE KundeData SET KundeData2.[Ja/nej] = -1 "
    strSQL = strSQL & "WHERE (((KundeData.111)>400) "
    strSQL = strSQL & "AND ((KundeData.222)>[Indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.333)>=[Indtast dato])) "
    strSQL = strSQL & "OR (((KundeData.444)=500) "
    strSQL = strSQL & "AND ((KundeData.555)<>'købt') "
    strSQL = strSQL & "AND ((KundeData.666)=1000)) "
    strSQL = strSQL & "OR (((KundeData.777)>[indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.888)>[indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.999)<>0));"

        db.Execute strSQL

End Sub

Eller skal jeg skrive noget der hvor der står ???????
Et tillægsspørgsmål, i "UPDATE KundeData SET KundeData.[Ja/nej] = -1 "  står –1 da for ”nej”?? Det vil jeg tro, for hvis jeg har forstået den rigtigt, så starter den med at ændre alle til Nej og derefter opdatere alle poster der opfylder kriteriet til ja. Er dette korrekt??

db.execute strSQL afvikler den enkelte SQL-sekvens, så dette skal også stå efter den 1. SQL-sætning 
 

-1 = True, dvs. Ja

ok Jensen. hmm, kan det virkelig passe at jeg i opdateringsforespørgslen godt kan bruge [indtast dato] men ikke i en SQL via kommandoknappen i en formular??

Nu skriver den: Der er en syntaksfejl fordi der mangler en operator???  og markerer...  db.Execute strSQL
har jeg lige overset noget?

Skal det i øvrigt stå sådan: ((kundedata.XXX YYY) > 400))  eller kan der også stå ([XXX YYY] > 400))... er det ikke det samme??

Jensen tak for din hjælp i øvrigt, jeg sætter stor pris på det. Men den kommer stadig med en fejl...
Der er en syntaksfejl fordi der mangler en operator???  og markerer...  db.Execute strSQL
har jeg lige overset noget?

Hej igen ... undskyld jeg har været til møde det meste af dagen ...

([XXX YYY] > 400)) er den mest korrekte måde

Jeg har også lidt problemer med at afvikle SQL-sætningen alene, så mon ikke opdateringsforespørgslen er at foretrække ?

Hej Jensen, godt at høre fra dig og at du også har problemer med SQL  sætningen. Den har voldt mig store kvaler. Jeg prøver en opdateringsforespørgsel i stedet. Men hvordan skriver jeg så hvis jeg vil have flere i opdateringsforespørgslen ligesom SQL´en:

Private Sub Kommandoknap236_Click()
Dim strSQL As String
Dim db As DAO.Database

    Set db = CurrentDb()

    strSQL = strSQL = "UPDATE KundeData SET KundeData.[Ja/nej] = -1 "
    strSQL = strSQL & "WHERE (((KundeData.xxx)>400) "
    strSQL = strSQL & "AND ((KundeData.yyy)>[Indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.zzz)>=[Indtast dato])) "
    strSQL = strSQL & "OR (((KundeData.aaa)=500) "
    strSQL = strSQL & "AND ((KundeData.bbb)<>'købt') "
    strSQL = strSQL & "AND ((KundeData.ccc)=1000)) "
    strSQL = strSQL & "OR (((KundeData.hhh)>[indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.jjj)>[indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.kkk)<>0));"

      db.Execute strSQL


    strSQL = "UPDATE KundeData SET KundeData2.[Ja/nej] = -1 "
    strSQL = strSQL & "WHERE (((KundeData.111)>400) "
    strSQL = strSQL & "AND ((KundeData.222)>[Indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.333)>=[Indtast dato])) "
    strSQL = strSQL & "OR (((KundeData.444)=500) "
    strSQL = strSQL & "AND ((KundeData.555)<>'købt') "
    strSQL = strSQL & "AND ((KundeData.666)=1000)) "
    strSQL = strSQL & "OR (((KundeData.777)>[indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.888)>[indtast dato]) "
    strSQL = strSQL & "AND ((KundeData.999)<>0));"

        db.Execute strSQL

End Sub

Kan jeg bare skrive :

UPDATE KundeData SET KundeData.[Ja/nej] = -1
WHERE (((KundeData.xxx)>400)
AND ((KundeData.yyy)>[Indtast dato])
AND ((KundeData.zzz)>=[Indtast dato]))
OR (((KundeData.aaa)=500)
AND ((KundeData.bbb)<>'købt')
AND ((KundeData.ccc)=1000))
OR (((KundeData.hhh)>[indtast dato])
AND ((KundeData.jjj)>[indtast dato])
AND ((KundeData.kkk)<>0))

AND THEN

UPDATE KundeData SET KundeData.[Ja2/nej2] = -1
WHERE (((KundeData.111)>400)
AND ((KundeData.222)>[Indtast dato])
AND ((KundeData.333)>=[Indtast dato]))
OR (((KundeData.444)=500)
AND ((KundeData.555)<>'købt')
AND ((KundeData.666)=1000))
OR (((KundeData.777)>[indtast dato])
AND ((KundeData.888)>[indtast dato])
AND ((KundeData.999)<>0));

Det nemmeste ville være at oprette det antal opdateringsforespørgsler som du skal bruge, og så ahvikle dem efter nedenstående kode :

Private Sub Kommandoknap236_Click()
   
    DoCmd.SetWarnings False
      DoCmd.OpenQuery "Forespørgsel1", acNormal, acAdd
      DoCmd.OpenQuery "Forespørgsel2", acNormal, acAdd

    DoCmd.SetWarnings True
End Sub

ok, så kommandoknappen kører alle opdateringsforespørgslerne efter hinanden.. smart. Jeg prøver og vender tilbage :-)

Funktionen DoCmd.SetWarnings False hhv. DoCmd.SetWarnings True sørger for, at du ikke bliver spurgt om du vil opdatere X antal poster ...

ahh smart, det var bla. det jeg ville undgå.

keldo > Når du bruger SetrWarnings False, skal du altid huske at sætte til True igen, ellers forbliver Warniongs False i HELE applikationen.

MUGS... ja ligeoms i

Private Sub Kommandoknap236_Click()
   
    DoCmd.SetWarnings False
      DoCmd.OpenQuery "Forespørgsel1", acNormal, acAdd
      DoCmd.OpenQuery "Forespørgsel2", acNormal, acAdd

    DoCmd.SetWarnings True  (Det er denne du mener?)
End Sub

ok, nu er jeg ved at være der. Dog er der stadig en lille ting. Når jeg kører

UPDATE KundeData SET KundeData.[Ja/nej] = -1
WHERE (((KundeData.xxx)>400)
AND ((KundeData.yyy)>[Indtast dato])
AND ((KundeData.zzz)>=[Indtast dato]))
OR (((KundeData.aaa)=500)
AND ((KundeData.bbb)<>'købt')
AND ((KundeData.ccc)=1000))
OR (((KundeData.hhh)>[indtast dato])
AND ((KundeData.jjj)>[indtast dato])
AND ((KundeData.kkk)<>0));

i opdateringsforspørgs´len, virker det fint, bortset fra at den ikke fjerner dem så opfyldte kriterierne sidste gang. Dvs. jeg skal have den til at nulstille alle posterne i feltet KundeData.[Ja/nej], så den bliver til KundeData.[Ja/nej] = 1 inden den tjekker igennem. Hvordan skriver jeg det?? Kan jeg skrive

UPDATE KundeData SET KundeData.[Ja/nej] = 1

THEN

WHERE (((KundeData.xxx)>400)
AND ((KundeData.yyy)>[Indtast dato])
AND ((KundeData.zzz)>=[Indtast dato]))
OR (((KundeData.aaa)=500)
AND ((KundeData.bbb)<>'købt')
AND ((KundeData.ccc)=1000))
OR (((KundeData.hhh)>[indtast dato])
AND ((KundeData.jjj)>[indtast dato])
AND ((KundeData.kkk)<>0));

Eller hvad?

Undskyld, det skulle have været:

UPDATE KundeData SET KundeData.[Ja/nej] = 1

THEN

UPDATE KundeData SET KundeData.[Ja/nej] = -1
WHERE (((KundeData.xxx)>400)
AND ((KundeData.yyy)>[Indtast dato])
AND ((KundeData.zzz)>=[Indtast dato]))
OR (((KundeData.aaa)=500)
AND ((KundeData.bbb)<>'købt')
AND ((KundeData.ccc)=1000))
OR (((KundeData.hhh)>[indtast dato])
AND ((KundeData.jjj)>[indtast dato])
AND ((KundeData.kkk)<>0));

Nej, det kan jeg ikke har jeg lige fundet ud af. Måske jeg bare skal lave en ekstra opdateringssforespørgsel som laver:

UPDATE KundeData SET KundeData.[Ja/nej] = 1

og derefter kører den anden?

Nu har jeg ikke fulgt med i Jeres "samtale", men jeg undrer mig over hvad det reserverede ord "Then" laver midt i din kode.

MUGS, THEN var bare et gæt fra min side. Men jeg tror det virker nu. jeg er ved at teste. Jeg lavede en opdateringsforsp. som nulstillede alle felter. SÅ kører jeg de andre opd. forsp. bagefter via en kommandoknap. Det virker nok om lidt, så skal i have 1000 tak for hjælpen begge to. I får 50 point hver :-)

Then er et reserveret ord som ikke må stå alene. Det benyttes f.eks sammen med en betingelse:

If Me.felt1 = "Hej" Then
MsgBox "Indholdet af felt 1 er = "Hej"2
End If

1. linie er din betingelse, og hvis denne er opfyldt SÅ udføres linie 2, 3. linie afslutter blot din If... Then.

Svarer lidt til:

Hvis du siger at min far er grim THEN
Løber jeg hen til jensen og sladrer
Slut

Korrektion :

Løber jeg hen til jensen og sludrer  c",)

Nu vi er ved forklaringerne. Hvordan ser din VBA-editor ud? Hvis du har Access standardfarver her, er det ikke særlig tydeligt hvad der er reserverede ord m.v.

Prøv i Tools > Options > Editor Format at lege lidt med farverne. Så tror jeg du vil blive overrasket over, hvor funktionelt det kan blive.

LOL :o)

c",)
  C( )

Det virker fint nu, så et hurtigt tillægsspørgsmål...:-)

I en formular vil jeg gerne have at resultat-antallet af opdateringsforsp. vises i en tekstboks. Hvordan skriver jeg det? Er det noget med Dcount()???

DCount("*", "KundeData", "KundeData.[Ja/Nej] = -1")

Sorry ... ikke komme, men semicolon imellem kriterierne

DCount("*";"KundeData";"KundeData.[Ja/Nej] = -1")

... Som skal være postkilden i en ubundet tekstboks

ja ok det virker fint tak. Og hvis jeg så skal ligge dem sammen:

Dsum("forespørgsel1"+"fopresprøgsel"+"Forespørgsel3")

jeg kan vel bare summe resultatet af teksboksene...

Ok - Du har vel en fortløbende formular og har sat tekstboksen ind i Detaljesektionen. Prøv at indsætte den samme tekstboks i formularfoden, så burde du få den samlede sum af din DCount.

Korrekt mht. ubunden tekstboks ...

Herefter kan du summere på tekstboksene ... [TekstBoks1] + [Tekstboks2] o.s.v.

Indsæt også lige Refresh i din programkode for at opdatere felterne, dvs :

Private Sub Kommandoknap236_Click()
   
    DoCmd.SetWarnings False
      DoCmd.OpenQuery "Forespørgsel1", acNormal, acAdd
      DoCmd.OpenQuery "Forespørgsel2", acNormal, acAdd
    DoCmd.SetWarnings True  (Det er denne du mener?)

    Refresh

End Sub

ok. I og med jeg sætter flere foresp. igang på denne måde og jeg i alle foresp. har mit [Indtast dato] kriterie, kommer den jo med "pop-up" billede fler gange hvor jeg skal indtaste den samme dato. Er der en måde hvorpå jeg kan nøjes med at indtast datoen 1 gang, og så bruger den datoen i alle foresp.??

jensen > Vil det ikke være nok med en Me.Refresh efter kørslen af SQL-sætningerne?

M.h.t. opsummeringen: Hvis der er tale om en fortløbende formular, vil hver tekstboks i detaljesektionen jo have det samme navn. Derfor foreslog jeg at lægge Tekstboksen i formularfoden. I deteljesektionen vil den jo blot vise 1.

Jeg har lavet en ny formular hvor den skal summe resultaterne sammen i en tekstboks. det går egentlig ok, bortset fra at den ikke kan summe totaler.....

=Sum([tæl 1]+[tæl 2]+[tæl 3]+[Tæl 4])

Har jeg glemt noget?

M.h.t. popUp: så kan du i formularen indsætte en ubunden tekstboks og indtaste datoen heri. Herefter skal du i hver enkelt forespørgsel referere til denne tekstboks således:

[Forms]![Formularnavn]![Feltnavn]

Me.Refresh vil have samme virkning c",)

ok, så i stedet for at skrive [indtast dato] skal jeg skrive
[Forms]![Formularnavn]![Feltnavn]

Hvad er [Forms]??  [Formularnavn]=den formular jeg laver tekstboksen i og [Fletnavn]= navnet på tekstfeltet jeg skriver datoen i... Ja?

[Forms]![Formularnavn]![Feltnavn]:

For at referere til et felt i en formular, er du nødt til at definere:

- Objektsamlingen (Forms)
- Navnet på objektet i samlingen (Navnet på den aktuelle formular)
- Navnet på feltet i objektet (Navnet på feltet der indeholder din dato)

Du er simpelthen nødt til at bevæge dig ned igennem access hieraki for at finde det korrekte felt.

Tænk på det militære hieraki:

En sergent står overfor en samling officerer, hvorfor sergenten er nødt til at henvende sig til den åverste grad:

Hr. General jeg beder om tilladelse til at henvende mig til Oberst TingelTangel

På samme måde med Access, start fra oven og gå nedad.

Mugs > tager du over, jeg må løbe ?

Ja ok MUGS meget pædagoisk sagt. LOL Men er Objektsamlingen navnet på miin database?

Og min sum driller stadig....
Jeg har lavet en ny formular hvor den skal summe resultaterne sammen i en tekstboks. det går egentlig ok, bortset fra at den ikke kan summe totaler.....

=Sum([tæl 1]+[tæl 2]+[tæl 3]+[Tæl 4]) 

Hvor[er navnet på tekstboksfelterne

Har jeg glemt noget?

jensen OK, blot der ike er noget med SQL :o)

"Men er Objektsamlingen navnet på miin database"

Nej - Det er blot en angivelse af, at du skal lade forespørgslen referere til en formular

Prøv at gå tilbage til den formular hvorfra du kører dine opdateringer.
Nederst i koden (lige over lionien End Sub, sætter du flg:

Me.Refresh
MsgBox DCount("*", "TABELNAVN", "[FELTNAVN] = -1)

Mugs jeg vil gerne have total talet i en tekstboks. men den skriver bare ¤fejl i boksen.... Det er da i kontrolelementkilden at jeg skal skrive =sum...osv..?

Jeg synes vi skal tage det step for step. Når vi har fået MsgBox til at fungere ved vi, at det er den vej vi skal. Så vær venlig at prøve mit sidste forslag. Bagefter finder vi ud af det med en Tekstboks.

ok. Når jeg gør som du siger skriver den:

Compile error:
Expected: List seperater or )

mens den markerer:

  MsgBox DCount("*", "TABELNAVN", "[FELTNAVN] = -1)

ja ok min fejl, har ikke rettet TABELNAVN OG FELTNAVN..FLot :-)

Men det er jo ikke en tabel med et feltnavn den skal tælle, men resultatet af en opdateringsforespørgsel

nej om igen, det er resultatet af en alm. forespørgsel den skal tælle. Jeg har nemlig lavet nogle alm. forespørgsler på baggrund af mine opdateringsforespørgsler. Og det går også fint med hver enkelt tekstboks hvor den indsætter tal-værdierne af hver alm. forespørgsel. Jeg vil bare gerne summe de 5 forskellige værdier sammen.

FLOT - Ha ha
Når du har kørt en opdateringsforespørgsel opdaterer du jo tabellen, så du skal blot tælle i tabellen.

Du kan desuden ikke bruge en opdateringsforespørgsel til andet end at opdatere og ikke til en Dcount.

Hvis du lægger din e-mail. kan jeg sende dig en testdb med forskellige eksempler på DCount. Jeg sender evt. som en zip-fil.

MUGS...JA LOL.. nej ok, men som sagt er det også en alm. forespørgsel jeg skal tælle posterne af

Men uden at du må misforstå mig MUGS. Men er det ikke meget enkelt at summe resultatet af enten nogel teksbokse sammen eller bare summe forespørgslerne (de alm.) sammen?

Så udskifter du blot tabelnavnet med navnet på din forespørgsel. Access er ligeglad om den skal tælle i en tabel eller en forespørgsel.

Det er enkelt nok, blot skal du placere opsummeringen i formularfoden som jeg tidligere har nævnt.

Det er uforståeligt. Når jeg laver en tekstboks i formularfoden og indsætter ex:

=Sum([Tæl kun for1])

så skriver den FEJL i tekstboksen. DAMN::::???

Jeg har skrevet det i  fanebladet data, kontrolelementkilde....

Kan du sende din db til:

mugs(a)mail.dk

med angivelse hvilken formular det drejer sig om.

Faneblad > Det har jeg aldrig arbejdet med!!

I tekstboksen´s egenskabver er der forskellige faneblade...

Kan desværre ikke sende databasen. Den indeholder for mange følsomme oplysninger.

Men MUGS, laver jeg ikke en sum i tekstboksen i formularfoden ved at skrive:

=sum([navnet på forespørgsel 1]+[navnet på forespørgsel 2]+[navnet på forespørgsel 3])

??

Nej. Hvis du vil tælle en forespørgsel skal du bruge DCount.

F.eks således:

Dim a As Byte, b, c, d
a = Me.Felt2
b = DCount("*", "Tabel1", "[Felt2] =" & a)
c = DCount("*", "Tabel2", "[Felt2] =" & a)
d = DCount("*", "Tabel3", "[Felt2] =" & a)
MsgBox "Værdien " & a & " Forekommer i:" & vbNewLine & "Tabel1: " & b & vbNewLine & "Tabel2: " & c & vbNewLine & "Tabel3 :" & d

Tabte du vejret, eller sker der mere idag?

Sorry MUGS jeg havde skrevet noget men det forsvandt åbenbart.

Jeg har talt alle 7 forespørgsler. Talresultaterne har jeg i tekstbokse i en formular. Det er fint. Nu vil jeg bare gerne have en tekstboks med summen af alle de tal jeg kan se i de 7 tekstbokse. Der siger du jeg kan lave en ny tekstboks, ubundet, i fomularfoden med følgende i "kontrolelementkilden":

=Sum([tekstboks1]+[tekstboks2]+[tekstboks3]+[tekstboks4]+[tekstboks5]+[tekstboks6]+[tekstboks7])

Men der skriver den #fejl  i feltet istedet for summen.

Men jeg kigger lidt på det i aften, ellers skriver jeg igen i morgen tidlig. :-) tak forhjælpen so far.

Alt OK.

Mern for at skrue tiden lidt tilbage og have et udgangspunkt, vil jeg anbefale, at du som et forsøg prøver mit forslag Kl 18:51:10. Hvis det fungerer har vi da noget at gå videre med.

Jeg vil stadig gerne se din db. Har du mulighed for at alette alle data og oprette nogle "Anders And" poster?

Godmorgen, så er jeg frisk igen :-) Alt virker indtagen summen af de nævnte forespørgsler. Mugs jeg har gjort som du sagde i 18:51:10 så den nu ser ud som følger:

Private Sub Kommandoknap104_Click()
 
  DoCmd.SetWarnings False
      DoCmd.OpenQuery "Tæl kun 1", acNormal, acAdd
      DoCmd.OpenQuery "Tæl kun 2", acNormal, acAdd
      DoCmd.OpenQuery "Tæl kun 3", acNormal, acAdd
      DoCmd.OpenQuery "Tæl kun 4", acNormal, acAdd
      DoCmd.OpenQuery "Tæl kun 5", acNormal, acAdd
           
    DoCmd.SetWarnings True

    Refresh
    Me.Refresh
MsgBox DCount("*", "TABELNAVN", "[FELTNAVN] = -1)
     
End Sub

Men jeg er stadig ikke med på hvad der skal stå i stdet for TABELNAVN og FLETNAVN  Det er jo 5 forskellige tabeller den skal tæle og lægge sammen. Hvad skal jeg skrive i TABELNAVN og FELTNAVN?

Så er du nødt til at lave nogle variabler. Udskift "TABELNAVN" og "FELTNAVN" med navne på de respektive objekter:

Dim a As Byte, b, c, d, e

a = DCount("*", "TABELNAVN", "[FELTNAVN] = -1)
b = DCount("*", "TABELNAVN", "[FELTNAVN] = -1)
c = DCount("*", "TABELNAVN", "[FELTNAVN] = -1)
d = DCount("*", "TABELNAVN", "[FELTNAVN] = -1)
e = DCount("*", "TABELNAVN", "[FELTNAVN] = -1)

Me.TEKSTBOKS = a+b+c+d+e

MUGS, skal jeg lave ovenstående SQL i en ubundet tekstboks i en formulerfod?

Ovenstående er VBA og ikke SQL. Sæt det ind i formularfoden og husk at rette tabelnavne / feltnavne og Me.Tekstboks

En VBA, altså jeg skriver det i kontrolelementkilden??

Undskyld MUGS, men jeg er ikke helt med på hvor jeg skal skrive ovenstående VBA?

I øvrigt, tror jeg ikke at ovenstående VBA vil fremkomme med det rigtige resultat. Som jeg ser det, tæller den i tabellen og ikke resultatet af min forespørgsel. Det jeg vil have talt ligger i en forespørgsel. Kan jeg så bare udskifte "TABELNAVN" med "FORESPØRGSELSNAVN"??

Som udgangspunkt laver du en kommandoknap og lægger koden i dennes VedKlik hændelse.
Når du har kørt en opdateringsforespørgsel, er data jo ændret i tabellen, men du kan sagtens tælle i en udvælgelsesforespørgsel. Du udskifter blot 2Tabelnavn" med navnet på din forespørgsel.

ok, nu ser den sådan ud:

Private Sub tæl_total_Click()
Dim a As Byte, b, c

a = DCount("*", "kundedata", "[kunde1] = -1)
b = DCount("*", "kundedata", "[kunde2] = -1)
c = DCount("*", "kundedata", "[kunde3] = -1)

Me.tæl total = a + b + c

End Sub


Men den siger : Compile error: Syntax error

og markerer: Private Sub tæl_total_Click()

TRor det skyldes, at dit procedürenavn indeholder underscore. Omdøb din kommandoknap til "tæltotal".

ALDRIG melemrum eller specialtegn (/,- o.s.v.) i objektnavne ALDRIG

MUGS, der maglede et "efter "[kunde1]...
Nu brokker den sig ikke mere over det. Men nu siger den "Run-time error 13, type mismatch og markerer...: a = DCount("*", "kundedata", "[kunde1]" = -1)

En frisk en ser sådan ud:

Private Sub Kommandoknap109_Click()
    Dim a As Byte, b, c

    a = DCount("*", "kundedata", "[kunde1]" = -1)
    b = DCount("*", "kundedata", "[kunde2]" = -1)
    c = DCount("*", "kundedata", "[kunde3]" = -1)

    Me.tæltotal = a + b + c

End Sub

Hvor Me.tæltotal er tekstboksen hvor resultatet af a+b+c skal stå.
Men den siger stadig fejl:

"Run-time error 13, type mismatch" og markerer...:
a = DCount("*", "kundedata", "[kunde1]" = -1)

HEj MUGS, er du her endnu?? :-)

Rolig - Jeg kan ikke sidde her konstant :o)

Type mismatch betyder at du prøver at sammenlig alfenumeriske værdier med numeriske.
Så kontroller at [kunde1] er numerisk.

Kunde1 er et ja/nej felt med afkrydsningsboks. Hvordan ser jeg om den er numerisk i tabellen?

Et ja/nej felt er numerisk. Check [kunde1] er numerisk ved at se på felttypen i tabellens designvinsing

hmm, felt kunde1 i tabellen kundedata er:

Format: ja/nej
Titeltekst: (Blank)
Standardværdi: (Blank)
Valideringsregel: (Blank)
Valideringsmeddelelse: (Blank)
Obligatorisk: Nej
Indekseret: Nej

Opslag, Viskontrolelement: Afkrydsningsfelt

Hvor kan jeg se det er numerisk???????

...Check [kunde1] er numerisk ved at se på felttypen i tabellens designvinsing

MUGS, det kan godt være det er mig der er dum eller snorksover, men er "felttypen i tabellens designvisning", ikke det jeg lige har beskrevet ovenfor?
I access klik på tabeller, åben tabellen "Kundedata" i designvisning, og marker feltet hvor jeg vil se egenskaber. I det her tilfælde Kunde1. Nederst til venstre kan jeg så se feltet egenskaber.
At du skriver det samme to gange gør det jo ikke bedre...*LOOL*

Jeg må være dum, for jeg forstår det ikke.... *GG*

Eller også er det mig :o)

*LOL* uanset hvem af os det er, hvad gør jeg så?

Hvis vi nu i stedet siger at det ikke er tabellen kundedata den skal hente kunde1 fra, men i stedet en forespørgsel der hedder "tæl1". Der skal den egentlig bare tælle antallet af posten i resultatet af forespørgslen. Gør det det lettere?

Du gør sådan her:

Private Sub Kommandoknap4_Click()
Dim a As Byte, b
a = DCount("*", "TBLkundedata", "[kunde1] = 0")
b = DCount("*", "TBLkundedata", "[kunde1] = -1")
Me.tæltotal = a + b
End Sub

Helt dum er du da ikke, men hvis du er så her jeg da en stor aktie i din dumhed :o)

Sorry.

Grundlæggende er det jo blot antallet af poster i 3 forskellige forespørgsler, jeg gerne vil have lagt sammen. ex. Forepørgsel1 indeholder 768 poster, Forepørgsel2 indeholder 123 poster og forespørgsel3 indeholder 15 poster. Ergo 768+123+15=906. Altså skal der stå 906 i en tekstboks i en formular.
Hvor svært kan det værre...? Åbenbart meget svært... * :o)

Hvis du blot vil tælle antal poster behøver du jo ikke noget kriterie:

DCount("*","Forespørgsel1")

Hvis du lægger din e-mail, kan jeg sende dig en lille testdb, der viser dig forskellige former for DCount med eller uden kriterier.

MUGS for pokker, nu virker det. Det var jo enkelt når det kom til stykket. Tak for hjælp, du får point.

Tak for point.