Gian63 ha scritto:
...forse era meglio postassi anche il codice che ho immesso sulla combo 'Tipologia_Vaso' in evento doppio click che è il seguente:
Private Sub Tipologia_Vaso_DblClick(Cancel As Integer)
On Error GoTo Err_Tipologia_Vaso_DblClick
Dim lngProductID As Long
If IsNull(Me![Tipologia_Vaso]) Then
Me![Tipologia_Vaso].Text = ""
Else
lngProductID = Me![Tipologia_Vaso]
Me![Tipologia_Vaso] = Null
End If
DoCmd.OpenForm "frmTipologia_Vaso", , , , , acDialog, "Gotonew"
Me![Tipologia_Vaso].Requery
If lngProductID <> 0 Then Me![Tipologia_Vaso] = lngProductID
Exit_Tipologia_Vaso_DblClick:
Exit Sub
Err_Tipologia_Vaso_DblClick:
MsgBox Err.Description
Resume Exit_Tipologia_Vaso_DblClick
End Sub
Sicuramente ora mi manca l'evento su un bottone che chiude la maschera 'frmTipologia_Vaso' e che mi fa ritrovare il dato appena inserito nella mia maschera principale frmProdotti nella combo 'Tipologia_Vaso'....qualcuno mi da un input da dove cominciare?
Se tu gestissi la cosa su Evento NotinList sarebbe tutto estremamente pià tecnico.
L'evento NotInList, preposto proprio a questo, restituisce 2 parametri:
Private Sub cboDept_NotInList(NewData As String, Response As Integer)
Il parametro [NewData] è quello che viene digitato nella Combo e che, dal momento che non è compreso nella lista genera l'evento.
Immagino la combo abbia colonna(0)Larghezza=0 e Colonna(1) Larghezza>0...!
A questoi punto se l'inserimento non richiede altri dettagli, basterebbe:
1) Aprire il RS sulla tabella
2) Fare un AddNew inserendo solo il Testo nel campo Descrizione in quanto la PK immagino sia Counter
3) Update del RS
4) Requery della combo
5) Combo=[NewData]
Se invece dei aprire una Maschera esterna per completare altri campi, fai la stessa cosa:
1) Aprire la maschera esterna in modalità Aggiungi Record ed acDialog, passando come Args il valore [NewData]
2) Su evento LOAD leggi OpenArgs e lo assegni come valore alla TextBox
3) Fai le tue modifiche
4) Chiudi la Form
5) Requery della combo
6) Combo=[NewData]
P.S. quel "Gotonew" è decisamente inguardabile... dal momento che il parametro DataMode prevede acFormAdd.