Ako si želeo brz odgovor, onda si trebao jasnije da objasniš problem. Pravljenje upisa iz druge forme je širok pojam, i moraćeš da daš malo više detalja ako misliš da ti neko pomogne. Odakle zapravo trebaš da povučeš podatke ?

ovako postoji forma koja bi imala samo 2 text boxsa u kojima bi se recimu upisao ime firme i redni broj
baza je iz accessa (mdb) tako da ce se u kombo dodavati itemi iz mdb baze.

recimo baza se zove db1.mdb tabela se zove firma i u tabeli ima dva polja "ID" i "firme"
i sada kad kliknem na combo treba da mi izlista sve podatke koji se nalaze u polju 'firme'


jel sad jasnije?

Imaš dve varijante. Možeš da iskoristiš DBComboBox kontrolu koja je ista kao i obična, samo što podržava povezivanje na određeno polje iz baze, i izlistavanje podataka u istom. Druga varijanta je da očitaš rekordset red po red i da ručno smeštaš podatke u običan Combobox. Ne znam šta koristiš, ADO ili DAO, ali evo jednostavne procedure za popunjavanje Combobox-a koja koristi DAO

Predpostavljam da znaš kako trebaš da je pozoveš ;)

nisam se snasao nimalo

pazi ovako
baza se zove db3.mdb e sad podatke vude iz tabele firma i polje koja se takodje zove firma
izvini sto te maltretiram ali ako ti nije frka napisi mi kompletan kod molim te pa cu ja da pogledam nocas kad dodjem s posla samo da proradi
znaci imam vec upisane podatke u tom polju samo jos da ih combo izlista i to je to.
unapred hvala.

Pa eto, dao sam ti proceduru koja to radi, samo trebaš da je pozoveš i proslediš podatke. Recimo u Load eventu forme na kojoj ti se nalazi Combobox pozovi

i to bi trebalo da radi, naravno pod uslovom da ti se ComboBox zove Combo1 i da ti se baza nalazi na istom mestu gde i exe fajl. Ako to nije slučaj, samo izmeni potrebne podatke, tj. umesto App.Path stavi pravu putanju da baze, a umesto Combo1 upiši kako ti se zove ComboBox.

Private Sub DBFieldToCombo(dbPath As String, sTable As String, sField As String)
Dim db As Database 'Compile error: User-defined type not defined pokazuje mi tu gresku
Dim dbrs As Recordset
Set db = OpenDataBase
Set dbrs = db.OpenRecordset("SELECT " & sField & " FROM " & sTable)
Do Until dbrs.EOF
DoEvents
Combo1.AddItem dbrs.Fields(0).Value
dbrs.MoveNext
Loop
dbrs.Close
db.Close
Set dbrs = Nothing
Set db = Nothing
End Sub

database to crveno gore prijavljuje kresku kao sto sam ti gore napisao nisam pametan kako da je resim.

:(

Dodaj referencu na DAO. Odeš na Project > References i tamo nađeš Microsoft DAO 3.6 Object Library (ili koju već verziju DAO imaš) ili još jednostavnije, postavi Data kontrolu na formu, pa je obriši i ostaće ti referenca na DAO.

Hvala za ovo radi odlicno.