Hi,

Have another problem I can't seem to solve.

What I am trying to do is to get the number of values (so dcount I guess) for a given criteria to show up in a text box.

I am trying to use the next dcount, but it isn't working...

Private Sub Form_Load()

Me.PtagYes.Value = DCount("[tblTestBuyBA01]![Ptag]", "tblTestBuyBA01", "[tblTestBuyBA01]![Ptag] = Ja/Oui And [tblTestBuyBA01]![Invoerdatum] >= [Forms]![frmPercentTestBuyIntermediate]![Begindatum] And [tblTestBuyBA01]![Invoerdatum] <= [Forms]![frmPercentTestBuyIntermediate]![Einddatum]")

End Sub

The number of values that has to be returned should be displayed, but the text box remains empty when the form opens. I also tried to put the =Dcount... in the text box control source,but this isn't working either...

any one have an idea? Maybe my function is just wrong somewhere...

hmm.... what is Ja/Oui? Field values from the table? Or is it supposed to be a string literal?

The way it reads right now, you're dividing Ja by Oui for what Ptag should be.
Is the form the field is on named frmPercentTestBuyIntermediate? Should Einddatum be Enddatum?

Assuming that Ja/Oui is a string literal the content in the string field Ptag must match, correcting Einddatum spelling, and that the form referenced IS the form this object is on, I'd try:
-------------------------------------------------------------------------------------------------
=DCount("Ptag","tblTestBuyBA01","Ptag = 'Ja/Oui' And Invoerdatum >= Begindatum And Invoerdatum <= Enddatum")
-------------------------------------------------------------------------------------------------

Notice that since it's a string literal I put Ja/Oui between ' marks. I built a test with these values and field names and it worked.

You may also want to code a refresh for your text box when values in BeginDatum, Invoerdatum, Enddatum or Ptag are changed.

Does this help?