Enquete

[Superwagtel 1]

No caso tenho três campos "um" "dois" "tres"

 

como faço para o access dizer

 

quantas vezes o campo "um" foi preenchido ?

quantas vezes o campo "dois" foi preenchido ?

quantas vezes o campo "tres" foi preenchido ?

 

Mas na forma de porcentagem em relação ao total ?

 

Isto é possível ????

[arno 0]

fiz isso esses dias, hehehcodigoenquete é um campo onde coloco o cod da enquete que vai ser contada.... depois é so você adaptar e colocar campos no form pra receber o vlr das variáveis op1, op2 e etc

Function contarops()    Dim OP1, OP2, OP3, OP4, OP5, nrcodenq As Integer    Dim myBD As Database    Dim myRec As Recordset    Set myBD = CurrentDb()    Set myRec = myBD.OpenRecordset("EnqueteRespostas")    'MsgBox "zera contadores"OP1 = 0OP2 = 0OP3 = 0OP4 = 0OP5 = 0   While Not myRec.EOF 'MsgBox "inicio loop"  'MsgBox "myrec" & myRec("códigoenquete") & " - " & "codigo" & [CódigoEnqueteform]  Comando27.SetFocus  nrcodenq = myRec("códigoenquete")  'se o CódigoEnqueteform form zero adiciona o valor da variável global If [CódigoEnqueteform] = "" Or [CódigoEnqueteform] = 0 Then    [CódigoEnqueteform] = numeroEnquete End If   If nrcodenq = [CódigoEnqueteform] Then     If myRec("resposta") = 1 Then        OP1 = OP1 + 1        [somaop1] = OP1    End If        If myRec("resposta") = 2 Then        OP2 = OP2 + 1        'MsgBox op2        [somaop2] = OP2    End If        If myRec("resposta") = 3 Then        OP3 = OP3 + 1        [somaop3] = OP3    End If        If myRec("resposta") = 4 Then        OP4 = OP4 + 1        [somaop4] = OP4    End If        If myRec("resposta") = 5 Then        OP5 = OP5 + 1        [somaop5] = OP5    End If    End If        myRec.MoveNext            WendEnd Function