🚀 go-pugleaf

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.