IF non funziona più da VBA

11 Risposte

• O

  OsvaldoLaviosa

  Super Famoso

  Iscritto da

  apr, 2012

  Messaggi:

  7503

  Re: IF non funziona più da VBA

  17 gen 2020, 14:04

  Che significa "non funziona"? Il MsgBox salterà fuori solo se l'uguaglianza in testa è vera. Altrimenti ovviamente non succede nulla.
  Può darsi che Me.Pippo o Me.Pluto contiene un valore Null e il confronto valori crea problemi...boh! Oppure I due campi non sono omogenei (che so uno è testo, l'altro numerico).
• L

  lewish_71@yahoo.it

  Pochi posts

  Iscritto da

  gen, 2020

  Messaggi:

  7

  Re: IF non funziona più da VBA

  17 gen 2020, 14:28

  Ciao Osvaldo
  anche io credevo fosse così come dici tu ma ho volutamente messo lo stesso valore in entrambe le textbox e nulla... non accade proprio nulla.... nemmeno se utilizzo una select case... Uso questo db da anni... non so cosa sia potuto accadere...
• O

  OsvaldoLaviosa

  Super Famoso

  Iscritto da

  apr, 2012

  Messaggi:

  7503

  Re: IF non funziona più da VBA

  17 gen 2020, 14:34

  Non è che cambiando da un database a un altro i due controlli non si chiamano più Pippo e Pluto, ma magari TextBox1, TextBox2?
  Per capire meglio come stanno le cose, prova a fare questo test:
  1. Inserisci il valore 100 in Pippo
  2. Inserisci il valore 100 in Pluto
  3. Prima di fare il controllo If, fai scrivere al codice

  MsgBox Me.Pippo
  MsgBox Me.Pluto

  In questo modo ti rendi conto se il codice preleva correttamente i valori dai controlli
• L

  lewish_71@yahoo.it

  Pochi posts

  Iscritto da

  gen, 2020

  Messaggi:

  7

  Re: IF non funziona più da VBA

  17 gen 2020, 14:36

  No no i nomi sono quelli di sempre... considera che per praticità qui li ho chiamati pippo e pluto ma nel db sono anni che si chiamano così... cosa potrebbe essere capitato secondo te?
• L

  lewish_71@yahoo.it

  Pochi posts

  Iscritto da

  gen, 2020

  Messaggi:

  7

  Re: IF non funziona più da VBA

  17 gen 2020, 14:43

  Aggiungo inoltre che come ultima prova ho creato nel db che sto usando una maschera vuota dove ho inserito due text chiamate testo0 e testo2.
  Ho creato un bottone e sull'evento onclick ho messo la routine:
  If Me.testo0 = me.testo2 then
  MsgBox "Corretto"
  End if
  ho aperto la maschera e ho inserito come valore "1" in entrambe le text e quando ho cliccato il bottone... NULLA!!!!
  Sono disperato...
• O

  OsvaldoLaviosa

  Super Famoso

  Iscritto da

  apr, 2012

  Messaggi:

  7503

  Re: IF non funziona più da VBA

  17 gen 2020, 14:45

  Rileggi completamente il mio messaggio precedente che ho modificato nel frattempo.
  Ho fatto un test seguendo pari pari quello che hai descritto prima, a me funziona tutto.
• L

  lewish_71@yahoo.it

  Pochi posts

  Iscritto da

  gen, 2020

  Messaggi:

  7

  Re: IF non funziona più da VBA

  17 gen 2020, 14:54

  Guarda...i valori sono identici

  ---

  Allegati:
  

  

• L

  lewish_71@yahoo.it

  Pochi posts

  Iscritto da

  gen, 2020

  Messaggi:

  7

  Re: IF non funziona più da VBA

  17 gen 2020, 15:01

  OsvaldoLaviosa ha scritto:

  ---

  Rileggi completamente il mio messaggio precedente che ho modificato nel frattempo.
  Ho fatto un test seguendo pari pari quello che hai descritto prima, a me funziona tutto.

  Si, i valori che la routine trasmette sono gli stessi...
  100 in tutti e due i casi
  ma se inserisco IF... non funziona più...
  
  
  Se addirittura metto:
  If me.testo0 = 100 Then
  MsgBox"Corretto"
  End if
  Funziona!!!!
  Ma se metto a confronto due text non funziona più... che cavolo posso fare?
• O

  oregon

  Super Famoso

  Iscritto da

  nov, 2011

  Messaggi:

  21551

  Re: IF non funziona più da VBA

  17 gen 2020, 15:37

  Sicuro che stai usando testo0 e testo2? Forse ne usi altri?
• O

  OsvaldoLaviosa

  Super Famoso

  Iscritto da

  apr, 2012

  Messaggi:

  7503

  Re: IF non funziona più da VBA

  17 gen 2020, 15:42

  Io ho costruito 2 textbox e le ho chiamate volutamente Pluto e Pippo (controlla le proprietà "Nome elemento"), poi ho messo un pulsante e questo

  Private Sub Comando4_Click()
  MsgBox Me.Pippo
  MsgBox Me.Pluto
  If Me.Pippo = Me.Pluto Then
  MsgBox "Corretto"
  End If
  End Sub

  Dopo aver inserito 2 valori uguali, mi appaiono 3 MsgBox in sequenza che fanno il loro dovere.
• L

  lewish_71@yahoo.it

  Pochi posts

  Iscritto da

  gen, 2020

  Messaggi:

  7

  Re: IF non funziona più da VBA

  17 gen 2020, 16:46

  OsvaldoLaviosa ha scritto:

  ---

  Io ho costruito 2 textbox e le ho chiamate volutamente Pluto e Pippo (controlla le proprietà "Nome elemento"), poi ho messo un pulsante e questo

  Private Sub Comando4_Click()
  MsgBox Me.Pippo
  MsgBox Me.Pluto
  If Me.Pippo = Me.Pluto Then
  MsgBox "Corretto"
  End If
  End Sub

  Dopo aver inserito 2 valori uguali, mi appaiono 3 MsgBox in sequenza che fanno il loro dovere.

  Mamma mia... ho capito perché non funziona....
  Una textbox prende il valore da un tag di un pulsante... (è un po' complicato da spiegare... il database serve a rispondere a delle domande stile quiz...)
  Quindi su origineControllo ha: =[PulsanteValore1]
  Cambiata la text box, funziona tutto... eppure credevo che la potesse leggere ugualmente... ora passo il valore direttamente da codice vba così riempio la textbox senza la funzione di Uguale... Ora funziona tutto... avevo veramente paura che il db si fosse corrotto!!!
  Grazie mille Osvaldo!! Sei stato gentilissimo!!