🚀 go-pugleaf

1000 Grazie

Saluti

Giorgio

"~Incoming" <speriamo.che.me.l@cavo.it> ha scritto nel messaggio 
news:420d4827$0$32351$5fc30a8@news.tiscali.it...
> Ciao, Giorgio!
> hai scritto Z7vOd.863592$35.32894425@news4.tin.it
> Wed, 09 Feb 2005 21:19:53 GMT:
>
>
> [skip]
>
> > Fin qui tutto bene.
> > Se premo Invio il Setfocus rimane sempre nei 2 campi
>
> tu non premere invio premi TAB
>
> > Il problema sorge che non riesco a trovare il modo per
> > far chiudere il Form
> > di inserimento quando entrambe le celle hanno preso i dati
>
> > Sto utlizzando questo codice
>
> > Private Sub TxtIva_AfterUpdate()
> >   Cells(3, 1) = Me.TxtIva
> > End Sub
>
> > Private Sub TxtNome_AfterUpdate()
> >   Cells(7, 1) = Me.TxtNome
> > End Sub ******************************
>
> > Grazie 1000
> > Giorgio
>
> 'cio che segue e' una rozzzzzzata!!!
> 'megagalattica  :-)
>
> Private Const nVal      As Integer = 2
> Private valInseriti     As Integer
>
>
>
> Private Sub TxtNome_AfterUpdate()
> Cells(7, 1) = Me.TxtNome
> testVal
> End Sub
>
>
> Private Sub TxtIva_AfterUpdate()
> Cells(3, 1) = Me.TxtIva
> testVal
> End Sub
>
> Private Sub testVal()
> valInseriti = valInseriti + 1
>    If valInseriti = nVal Then Unload Me
> End Sub
>
>
>
> Cordialita', ~Incoming.
>
>