Creazione pulsantiera numerica

17 Risposte - Pagina 2

• 

  @Alex

  Super Famoso

  Iscritto da

  feb, 2012

  Messaggi:

  8704

  Re: Creazione pulsantiera numerica

  31 mar 2016, 15:59

  Sei certo di aver usato in modo consapevole il Controllo condizionato If...Else...End if...?
  Quell'Exit Sub potresti spiegarci a cosa serve....?
  
  Tu non devi solo spostare il Focus, ma fare in modo che il cursore si posizioni sempre alla Fine...
  
  Apri la Guida in linea e cerca la proprietà:

  
  Property SelStart As Integer
      Membro di Access.TextBox
      
  e
  
  Property SelLength As Integer
      Membro di Access.TextBox

• 

  gibra

  Molto attivo

  Iscritto da

  gen, 2013

  Messaggi:

  1647

  Re: Creazione pulsantiera numerica

  31 mar 2016, 16:36

  alexps81 ha scritto:

  ---

  Ho provato ad aggiungere

  txtnumTelefonoRichiesto.SetFocus

  ma non funziona bene. Nel senso che il focus non rimane a destra di ogni numero ma me lo ritrovo a sinistra.

  TextBox.SelStart Property (Access)
  https://msdn.microsoft.com/en-us/library/ff193890.asp
  
  P.S. Ti suggerisco, quando inizi ad usare un oggetto, in questo caso TextBox, di andarti a leggere Metodi, Proprietà ed Eventi così da avere una visione generale di ciò che è possibile fare con quell'oggetto.
  Così non rischi di perdere tempo a chiedere aiuto, ed aspettare la risposta (che potrebbe anche non arrivare), in un Forum.
  La risposta ce l'hai in un attimo.
  
  Conserva questo link :
  Access VBA reference
  https://msdn.microsoft.com/en-us/library/mt346046.asp
  
  
• A

  alexps81

  Utente Attivo

  Iscritto da

  ago, 2015

  Messaggi:

  129

  Re: Creazione pulsantiera numerica

  31 mar 2016, 17:26

  Grazie x i suggerimenti...anche se non ci lavoro quasi mai con access.
  
  Cmq ho provato così (e funziona) ma ditemi per favore se ho fatto bene.
  Nell'evento SU ATTIVO della textbox ho scritto

  Me.txtnumTelefonoRichiesto.SelStart = Len(Me.txtnumTelefonoRichiesto)

  Mentre nella funzione "number" e nella sub "btnDelete" ho aggiunto

  txtnumTelefonoRichiesto.SetFocus

  così che ogni volta si premono i pulsanti il focus ritorna nella textbox.
  
  Per quanto riguarda "Exit Sub", lo aggiunto perché quando non c'è scritto nulla nella textbox e clicco sul pulsante per cancellare numero dopo numero, il database va in debug. Mentre con " Exit Sub" non si blocca perché esce dalla Sub quando la textbox è vuota.