Forse nelle proprieta' di una casella combinata

9 Risposte

• 

  CicciusPrime

  Utente Attivo

  Iscritto da

  mag, 2019

  Messaggi:

  117

  Re: Forse nelle proprieta' di una casella combinata

  13 apr 2020, 12:00

  Ciao Walter,
  
  a mio avviso puoi ricreare l'origine della combo con i vari casi tramite dei pulsanti o checkbox, alla pressione o modifica dei suddetti ricomponi la stringa origine della combo e ricalcoli il controllo con il suo requery
  
  oppure puoi crearti un parametro nei criteri della query del campo SI/NO associato alla check in maschera... vale sempre il requery del controllo combobox dopo aver effettuato la scelta...
  
  altri ti daranno informazioni più dettagliate ma credo che la sostanza sia questa descritta
• 

  Walter61

  Utente Attivo

  Iscritto da

  mar, 2020

  Messaggi:

  162

  Re: Forse nelle proprieta' di una casella combinata

  13 apr 2020, 18:06

  a mio avviso puoi ricreare l'origine della combo con i vari casi tramite dei pulsanti o checkbox, alla pressione o modifica dei suddetti ricomponi la stringa origine della combo e ricalcoli il controllo con il suo requery

  Grazie CicciuPrime Esatto! infatti e' proprio quello che dovrei fare. associare una stringa sql diversa secondo la posizione dell'interruttore nella maschera
  il problema e' che non so dove andarla a comunicare alla combo, insomma dove "piazzarla"
  probabilmente una riga tipo:

  me.[nomedellacombo].(la proprieta' penso) = "stringa SQL"
  me.[nomedellacombo].requery

  Che ne pensi? Qualche suggerimento?
• 

  @Alex

  Super Famoso

  Iscritto da

  feb, 2012

  Messaggi:

  8752

  Re: Forse nelle proprieta' di una casella combinata

  13 apr 2020, 18:55

  Quale sarebbe la difficoltà che incontri dal momento che hai intuito che serve una Stringa SQL con Criterio WHERE FLAG=TRUE oppure nessun criterio...
  Mi pare la soluzione sia già disegnata...
• 

  Walter61

  Utente Attivo

  Iscritto da

  mar, 2020

  Messaggi:

  162

  Re: Forse nelle proprieta' di una casella combinata

  13 apr 2020, 19:51

  Ciao Alex
  dici che e' abbastanza semplice da impostare cosi' :

  cboDept.RowSource = "SELECT Department FROM tblDepartments"

  seguito da un requery ?
• 

  @Alex

  Super Famoso

  Iscritto da

  feb, 2012

  Messaggi:

  8752

  Re: Forse nelle proprieta' di una casella combinata

  13 apr 2020, 20:24

  Il requery serve...?
• 

  Walter61

  Utente Attivo

  Iscritto da

  mar, 2020

  Messaggi:

  162

  Re: Forse nelle proprieta' di una casella combinata

  13 apr 2020, 22:06

  Come al solito grazie Alex
  il requery non serve e la routine funziona perfettamente
  PV_Inattivi e' ovviamente una private della form

  Private Sub Form_Load()
  PV_Inattivi = True
  End Sub
  
  Private Sub intInattivi_Click()
  Dim myTutti, myAttiv
  myTutti = "SELECT Anagrafe.ID_ANAGRAFE, Anagrafe.NOME, Anagrafe.CORSO, Anagrafe.DATA_ISCRIZIONE, Anagrafe.ATTIVO "
  myTutti = myTutti & "FROM Anagrafe ORDER BY Anagrafe.NOME;"
  myAttiv = "SELECT Anagrafe.ID_ANAGRAFE, Anagrafe.NOME, Anagrafe.CORSO, Anagrafe.DATA_ISCRIZIONE, Anagrafe.ATTIVO "
  myAttiv = myAttiv & "FROM Anagrafe WHERE Anagrafe.ATTIVO = True ORDER BY Anagrafe.NOME;"
  If PV_Inattivi Then
      PV_Inattivi = False
      cboIDAnagrafica.RowSource = myTutti
  Else
      PV_Inattivi = True
      cboIDAnagrafica.RowSource = myAttiv
  End If
  End Sub

• 

  @Alex

  Super Famoso

  Iscritto da

  feb, 2012

  Messaggi:

  8752

  Re: Forse nelle proprieta' di una casella combinata

  14 apr 2020, 07:48

  Sempre ti serva la Variabile [PV_Inattivi], secondo me no perchè è sempre NOT Interruttore quindi inutile... io semplificherei così:
  

  
  Private Sub Form_Load()
      PV_Inattivi = True
  End Sub
  
  Private Sub intInattivi_Click()
      Dim strSQL  As String
      Dim strWHR  As String
      strSQL = "SELECT Anagrafe.ID_ANAGRAFE, Anagrafe.NOME, Anagrafe.CORSO, Anagrafe.DATA_ISCRIZIONE, Anagrafe.ATTIVO "
      strSQL = strSQL & "FROM Anagrafe "
      If PV_Inattivi Then
          strWHR = " WHERE Anagrafe.ATTIVO = True "
      End If
      strSQL = strSQL & strWHR & " ORDER BY Anagrafe.NOME;"""
      cboIDAnagrafica.RowSource = strSQL
      Me!PV_Inattivi = Not Me!intInattivi
  End Sub

  P.S. attenzione a come dichiari le Variabili questo non va bene:

  
  Dim myTutti, myAttiv

• 

  Walter61

  Utente Attivo

  Iscritto da

  mar, 2020

  Messaggi:

  162

  Re: Forse nelle proprieta' di una casella combinata

  14 apr 2020, 09:45

  Al solito grazie Alex
  Mi viene in mente un famoso aforismo di Gianni Agnelli:
  Ogni cosa fatta bene puo' sempre essere fatta meglio.
  
  Perche' nelle dichiarazioni Dim e' sempre necessario indicarne il tipo? Qual'e' il vantaggio?
• 

  @Alex

  Super Famoso

  Iscritto da

  feb, 2012

  Messaggi:

  8752

  Re: Forse nelle proprieta' di una casella combinata

  14 apr 2020, 09:57

  Walter61 ha scritto:

  ---

  Al solito grazie Alex
  Mi viene in mente un famoso aforismo di Gianni Agnelli:
  Ogni cosa fatta bene puo' sempre essere fatta meglio.
  
  Perche' nelle dichiarazioni Dim e' sempre necessario indicarne il tipo? Qual'e' il vantaggio?

  Se non dichiari il TYPE siccome il sistema non può inventare nulla, attribuisce un VARIANT, che tuttavia non ha senso se si sa che il TYPE sarà stringa, e soprattutto perchè il VARIANT occupa più spazio in memoria... che se non serve... è tecnicamente inutile ---> ERRATO.