Ønsker at angive antal af datofelter der er udfyldt

Me.fx = DCount("*", "TABELNAVN", "[DATOFELT]> 0")

Hvis du vil have det som postkilde i et ubundet felt, kan det se således ud:

=DCount("*";"Tabel1";"[felt4] > 0")

Hm, er det mon ikke 12 felter "på tværs", altså samme post.

I så fald kunne du kalde en lille funktion, der tæller:

Function TælDatofelter() As Integer
  Dim F As Form
  Dim i As Integer
  Set F = Forms!FormularensNavn
 
  TælDatofelter = 0
  For i = 1 To 12
    If Not IsNull(F.Controls("f" & i)) Then TælDatofelter = TælDatofelter + 1
  Next i
End Function

fx skal altså have Kontrolelementkilden "=TælDatofelter"

mugs
Jeg skulle vist have nævnt, at der er selvfølgelig andre felter i tabellen end de 12 datofelter og feltet fx

fdata > God pointe.

accessbruger1 > Det er lige meget, spm du kan læse af funktionen tælles der kun i feltet felt4, hvor dette er større end 0.

accesbruger1 > Hvorfor vil du lagre en information der varierer? Vil du udskrive værdien i fx?

fdata
Korrekt, det er 12 specifikke datofelter i samme post, hvor jeg vil have antallet af udfyldte felter talt op. Men der skal nok også siges, at der er andre datofelter i samme post ud over de 12, men de skal ikke tælles i den her forbindelse.

mugs
Hver udfyldt datofelt er udtryk for en behandling. Ved at tælle udfyldte datofelter får jeg antal behandlinger.

Denne tæller hvormange poster i tabellen hvor DATOFELT er > 0 OG IDFELT er = formularens IDFELT:

DCount("*", "TABELNAVN, "[DATOFELT]> 0  And [IDFELT] = " & Me.IDFELT & "")

mugs
Jeg forstår nok ikke helt hvordan jeg skal indplacere f1, f2, f3 ...f12 i denne kodesætning.
Hvorfor skal vi overhovedet bruge et idfelt, når vi er i samme post?

Problemet er jo, at du har mange datofelter og disse skal indplaceres i koden på samme måde som jeg har gjort med det enkelte DATOFELT. Du skal bruge et idfelt fordi du tæller i tabellen, og den skal have en indentifikation af den aktuelle post.

Men du skal nok overveje noget i retning af fdata's forslag, hvis vi kan overtale ham til at komme med et forslag til at implementere flere datofelter i løkken.

mugs
Så må vi vel vente og se. Ellers kommer jeg ikke længere.

Det største problem er nu nok, at din db grundlæggende er konstrueret forkert. I stedet for een post med en klient med en række tilhørende behandlinger (datoer), burde du have en tabel med mange poster med klientid og tilhørende een dato for een behandling.

mugs
Det har du sikkert ret i, og det har også indgået i mine tanker. Men det vil ikke være muligt for mig at ændre det i øjeblikket, idet det vil være for omfattende at ændre i nu.
Men det udelukker vel ikke, at at jeg ikke kan tælle antal datoer der er behandlet i de 12 felter?

Nej -  du kan sagtens tælle datoer i dine 12 felter, men det bliver vist lidt omfattende, eller også skal du tilrette fdata's løkke med en betingelse. Og løkker har aldrig været min stærke side!

fdata
Jeg er nok nødt til at have mere hjælp til din foreslåede funktion.

what are the actual names of your date fields?
fdata's solution is what I would suggest, all he needs is a way to distinguish between the fields which need to be added and those not.

terry
Datofelter: f1, f2.....f12
Optællingsfelt: fx
Tabel: tblBehandlingsdatoer
Formular: frmBehandlingsdatoer

Men som jeg tidligere har nævnt, der er andre både datofelter og andre felter i tabellen/formularen.

have you tries fdata's solution that counts how many fields F1-f12) contain data (NOT NULL)!
It ONLY counts f1 to f12 not any other fields! Isnt this what yoiu want?

terry
Jo som tidligere nævnt i indledningen, ønsker jeg kun at tælle hvor mange af de 12 felter (f1-f12) der er udfyldt.
Jeg har ikke testet fdata's forslag. Mit problem er nok den, at jeg ikke rigtig forstår hans forslag, og hvor jeg skal sætte koden ind.

part of your question was "Hvordan skrives det som kode?"!

I would suggest that you put this in the forsm BEFORE uodate event so that the fields gets updated BEFORE wrting th erecord to the dB. But it will need modifying a little

terry
Er du i stand til at "modify a little"?

I'll take a look at your dB if you can send it
eksperten@NOSPAMsanthell.dk
remove NOSPAM

If I use fdata's solution and get it working then please give some of the points to him too

terry
Det vil nok stride imod mit firma's politik at gøre. Så det er nok ikke muligt.

terry
Det vil nok stride imod mit firma's politik at sende DB'en. Så det er nok ikke muligt.

terry
Selvfølgelig kan fdata få point også.

OK, try placing this in the forms code and make sure that the forms BEFORE UPDATE event is set [Event Procedure] so that the code gets used.

I'm also assuming that f13 is the field you want to see th eresult in


Private Sub Form_BeforeUpdate(Cancel As Integer)

    Me.f13 = TælDatofelter()
   
End Sub



Function TælDatofelter() As Integer
  Dim i As Integer
 
  TælDatofelter = 0

  For i = 1 To 12
    If Not IsNull(Me.Controls("f" & i)) Then TælDatofelter = TælDatofelter + 1
  Next i

End Function

terry
Når jeg skriver "Function TælDatofelter() As Integer" får jeg fejlmeddelelsen: Compile error. Expected: End of statement.
??

Koden du har foreslået skal skrives efter hinanden, ikke?

Det er 2 koder, du skal kopiere både kodestart og -slut

Ok terry

Ìf you are still having problems then make a new dB containing only what is necessary and sent it to me.

terry
Jeg har sendt en mail (DB)til dig.

OK

Code is similar to that given 09/01-2005 12:49:28

I've also placed an unbound field on the form with control source set to =[TælDatofelter] so that the calcualted value is only displayed.



Private Sub Form_BeforeUpdate(Cancel As Integer)

    Me.AntalBehandlinger = TælDatofelter()
   
End Sub

Function TælDatofelter() As Integer
  Dim i As Integer
 
  TælDatofelter = 0

  For i = 1 To 12
    If Not IsNull(Me.Controls("f" & i)) Then TælDatofelter = TælDatofelter + 1
  Next i

End Function

terry
DB'en kunne åbenbart ikke få lov at gå igennem firewallen da du returnerede den.
Jeg har sendt dig en alternativ emailadresse. Prøv den.

I'm back. Hold da op, hvor har I hygget jer, mens jeg har været væk.
Holder I da aldrig fri ???  ;o)
>>> Terry. Thanks for following up.

hi fdata, hope you've had a nice relaxing day? :o)

terry
Håber jeg får tid til at se på fremsendte DB på arbejde på mandag

It should be possible to copy the code EXACTLY as it is 09/01-2005 15:34:17

into your form, and then make sure that the event (property) for the BEFORE UPDATE is set to [Event Procedure] then it will work.

fdata/terry
Alt virker efter hensigten. Det var lige det jeg havde brug for.
Håber I er tilfredse med pointfordelingen. Der var jo terry der gjorde det færdigt.
Læg mærke til jeg har hævet fra 60 til 200 for ulejligheden ;-)

great to here you got it working, and thanks for the extra points, now I need to think about what I'm going to buy with them :o)

I think you need to accept first though!

Its still 60, perhaps your doing something wrong?

Husk at acceptere spm.
Bare nysgerrig. Hvorfor virkede det ikke i 1. omgang?

Jeg syntes ikke det virkede efter hensigten, når jeg skal fordele point. MÅske jeg gjorde fejl?

thanks

Takker for point