Dao sql dato, og mindre VBA problem.

Det sidste: Det kan du kun ved at oprette dine checkboxe i et kontrol array og så kalde

for i = 0 to 13
  if grpInput.CheckBox(i).value = true then bla bla
next i

WHERE Dato <= DateValue('" & slutdato & "') And Dato >= DateValue('" & Startdato& "')

Jeg ser lige på den med dato'en... men Martin hvordan opretter jeg dem så i en kontrol array??

Det med dato'en fungere, lige så snart jeg har fået Martin til at uddybe kontrol array delen af spørgsmålet fordeler jeg pointene...

Du opretter et kontrolarray ved at smide en Checkbox på formen, omdøbe den til hvad den skal hedde, kopiere den ved Ctrl+C, og paste ved Ctrl+V, og sige "JA" til at oprette et kontrolarray

Du kan så oprette et kontrolarray med fx. 14 checkboxe, der hedder:

  CheckBox(0), CheckBox(1), ..., CheckBox(13)

Dim i as long
For i = 0 to 13
  if grpInput.CheckBox(i).Value = True then bla bla bla
Next i

Skulle den automatisk spørge om det?? For når jeg gør kopiere den med Ctrl+C, Ctrl+V, så smider den bare en ny checkbox ind uden videre...

Ahh - vi er i VBA (det har du jo også skrevet) og ikke i VB6.

Hmmm - prøv at søg i hjælpen under control array

PS: Den checkbox den sætter ind uden videre, har den SAMME havn som den forrige. Hvis ja, så er den i et kontrolarray, og kan kaldes med index

Damn.. så kan du ikke hjælpe?? :-/

Den har det samme navn ja... Så vil jeg prøve at se om den automatisk har oprettet et kontrolarray.

Når den har samme navn ER den i et kontolarray....

Men jeg har lige kikket på det, og der er vist ikke kontrolarrays i VBA.

Altså har de IKKE samme navn - prøv at se i dit property vindue. Husk på, at caption IKKE er lig kontrollens havn.

Har du ikke et kontrol array kan du IKKE loope over dem.

Har godt nok lavet en løsning uden loop, men der er meget redundant kode som jeg meget gerne ville af med. :-(

VB er ikek så smart at man kan sammensætte kontrolnavne af variabler.

F.eks.

Dim Kontrolnavn
dim i
for i = 1 to 5
  kontrolnavn = "Text" & i
  kontrolnavn.text = "Dette er kontrol nr. " & i
next i

Ovenstående vil IKKE virke - man kan noget tilsvarende i andre sprog, ikke i VB. Eneste anden løsning er kontrolarray - men de er åbenbart ikke i VBA

Alternativt - måske KAN du komme omkring det ved at lave en collection af checkboxe, jeg vil tro at det kræver at du opretter dem runtime. Og så kan do loope igennem din collection af checkboxe. Har ikke tænkt det 100% igennem, men du kan jo prøve. Har du ikke erfaring med collections, skal du nok lige læse 5 min om det først...

Det lader desværre ikke til at det kan lade sig gøre med control array's :-(

http://groups.google.com/groups?q=vba+control+array&hl=en&lr=&ie=UTF-8&oe=UTF-8&selm=9A23092BA4DBD111816D0000F6B093610111028B%40imsuklndsx1.lnd.uk.imshealth.com&rnum=2

Så er der kun en collection tilbage, hvis du absolut VIL loope!

Du har trods alt kun 13 kontroller, så måske kan du leve uden loop

Jeg har lige sat mig lidt ind i det collection :-D her er den kode som virker, hvis der er nogen andre der er intereseret i hvordan man kan bruge det.

Sub checkboxtest()
   
    Dim gruppeV As New Collection
   
    gruppeV.Add grpInput.CheckBox1
    gruppeV.Add grpInput.CheckBox2
    gruppeV.Add grpInput.CheckBox3
    gruppeV.Add grpInput.CheckBox4
    gruppeV.Add grpInput.CheckBox5
    gruppeV.Add grpInput.CheckBox6
    gruppeV.Add grpInput.CheckBox7
    gruppeV.Add grpInput.CheckBox8
    gruppeV.Add grpInput.CheckBox9
    gruppeV.Add grpInput.CheckBox10
    gruppeV.Add grpInput.CheckBox11
    gruppeV.Add grpInput.CheckBox12
    gruppeV.Add grpInput.CheckBox13
    gruppeV.Add grpInput.CheckBox14
    gruppeV.Add grpInput.CheckBox15

    For i = 1 To 15
        If gruppeV.Item(i) Then
            If sqlStringGrp = "" Then
                sqlStringGrp = "Grp='" & gruppeV.Item(i).Caption & "'"
            Else
                sqlStringGrp = sqlStringGrp & " OR Grp='" & gruppeV.Item(i).Caption & "'"
            End If
        End If
        Count = Count + 1
    Next [i]
End Sub

Og du behøver ikke oprette kontrollerne runtime som jeg antydede at du _måske_ skulle.
Lækkert :o)