PDA

Visualizza la versione completa : problema con CasellaControllo


navigator89
11-04-2011, 17:09
Salve a tutti...
posto il seguente codice:

Private Sub Comando32_Click()
On Error GoTo Err_Comando32_Click

Set dbs = CurrentDb


Dim rs As Recordset

Set rs = _
dbs.OpenRecordset("Ordini", dbOpenDynaset)


rs.AddNew

rs!codice = Testo80
rs!cliente = CasellaCombinata1
rs!data = Testo3
rs!data_spedizione = Testo7
rs!quantita = Testo9
rs!descrizione = CasellaCombinata11
rs!assemblata = CasellaControllo13
rs!kit_assemblare = CasellaControllo16
rs![4battenti] = CasellaControllo18
rs![1] = CasellaControllo23
rs![2] = CasellaControllo25
rs![4centro] = CasellaControllo28
rs![4esterno] = CasellaControllo30
rs!tipoz = CasellaControllo34
rs!tipoi = CasellaControllo36
rs!incassate = CasellaControllo38
rs!pannello_vetroresina = CasellaControllo42
rs!pannello_lamiera = CasellaControllo44
rs!doghe_vert = CasellaControllo48
rs!doghe_orizz = CasellaControllo46
rs!cerniere_all = CasellaControllo50
rs!cardini_ferro = CasellaControllo52
rs!cardini_inox = CasellaControllo54
rs!pannello_zincato = CasellaControllo56
rs!distanziere_leve = CasellaControllo76
rs!chiusura_export = CasellaControllo60
rs!angoli_pvc = CasellaControllo62
rs!altezza_totale_porta = Testo72
rs!larghezza_totale_porta = Testo74
rs!sponda_idraulica = Testo78

rs.Update




Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Comando32_Click:
Exit Sub

Err_Comando32_Click:
MsgBox Err.Description
Resume Exit_Comando32_Click

End Sub

come potete vedere con questo bottone tento di memorizzare i dati, nel database, che l'utente inserisce nelle varie caselle di controllo, campi di testo e caselle combinate...proprio quest'ultime mi danno come problema:

Elemento non trovato in questo insieme

Come posso procerede? :bh:
Aspetto vostre soluzioni

alka
11-04-2011, 17:24
Leggi il Regolamento (http://forum.html.it/forum/showthread.php?s=&threadid=973887) e apri la tua discussione seguendo le norme indicate.

Loading