Ciao a tutti. Non riesco ad immaginarmi titolo diverso da quello che ho inserito che possa spiegare il mio problema.


Come vedrete dal codice sotto,
quando premo un tasto (cmdbutton) mi collego al db mySQL e faccio un while sulla tabella.
Poi, verifico tramite l'if se l'ID di questa riga di db, corrisponde all'index premuto dal tasto.
Se corrisponde visualizzo il frame corrispondente, altrimenti nascondo.

Prima effettuavo la stessa cosa, facendo un ciclo for su un'array. Adesso che sto trasferendo le cose nel DB, mi si presenta il problema, che per far nascondere il frame devo premere il bottone 2 volte.

Avete un'idea della causa?


codice:
Private Sub tastocat_Click(Index As Integer)

  Call do_connect: Set rs = CreateObject("ADODB.Recordset")
  If (conn.State = adStateOpen) Then
  query = "SELECT * FROM categorie": rs.Open query, conn:
  If rs.RecordCount > 0 Then

  Do While Not (rs.EOF) 
  a = rs("id")
  If a = Index Then
  framecat(a).Visible = True ' visualizzo il frame
  Else
  framecat(a).Visible = False 'nascondo il frame
  End If
  
  rs.MoveNext
  Loop: End If: End If: Set rs = Nothing: Call do_disconnect

End Sub