Coba dengan cara ini :
1. Set property "Limit to list" dari combo box menjadi "Yes"
2. Kemudian di event "Not In List " combo box itu dimasukan kode :

Private Sub Combo_NotInList(NewData As String, Response As Integer)

Response = acDataErrAdded
tSQL = "INSERT INTO nama tabel(field) VALUES(nilai fieldnya);"
docmd.runsql tSQL 

End Sub

Tapi harus diingat apabila field-filed nya tidak boleh null dari tabel
yang menjadi rowsource combo box itu harus juga dimasukan nilainya.

Mudah-mudahan bisa membantu

Regard,

andhit


Kirim email ke