Poslao: 24 Feb 2005 13:19
|
offline
- Pridružio: 21 Jan 2004
- Poruke: 416
- Gde živiš: Indjija
|
|
|
|
Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
|
|
Poslao: 24 Feb 2005 23:13
|
offline
- snoop
- Genghis Khan
- Pridružio: 18 Apr 2003
- Poruke: 8134
- Gde živiš: U kesici gumenih bombona...
|
odavno ne radim sa Data kontrolama zbog tgoa sta sam ogranicem.
ali po mojoj proceni, u ovom kodu ti fali do while until.
znaci:
Do Until
Data1.Recordset.EOF
Dim f As String
f = Data1.Recordset.Fields("Firma").Value
Combo1.AddItem f
Data1.Recordset.MoveNext
Loop
kako mislis u kolone? kako dodajes nove komitente u kolone? valjda u redove?
moraces malo bolje ovo da objasnis. ne razumem tacno sta zelis.
|
|
|
|
Poslao: 26 Feb 2005 12:10
|
offline
- Pridružio: 21 Jan 2004
- Poruke: 416
- Gde živiš: Indjija
|
zelim da prvi item na listi bude prvi komitent (onaj koji se nalazi u bazi podataka u redu 1 ) znaci da uzme vrednost iz polja firme (iz reda 1) i da ga smesti kao prvi item na listi ... pa da onda uzme vrednost iz drugog reda iz polja firme i da ga smesti kao drugi item na listi ........ ?
ovaj kod sto si mi ti dao to neradi !
|
|
|
|
Poslao: 26 Feb 2005 21:57
|
offline
- Bone Collector
- Legendarni građanin
- Pridružio: 18 Apr 2003
- Poruke: 5001
- Gde živiš: Beograd
|
probaj ovo
Private Sub Form_Load()
Dim f
Data1.Recordset.MoveNext()
f = Data1.Recordset.Fields("Firma").Value
Combo1.AddItem f
End Sub
sta se desilo?
|
|
|
|
Poslao: 19 Maj 2005 13:33
|
offline
- DejanVB
- Novi MyCity građanin
- Pridružio: 11 Nov 2004
- Poruke: 5
- Gde živiš: Cicevac
|
Sa zakasnjenjem:
U prvom obrascu sve textboxove povezi sa odgovarajucim poljima i kontrolu da ostavi vidljivom, ako ne zelis nesto komplikovanije. Sta od literature imas ?
|
|
|
|
Poslao: 13 Jun 2005 22:32
|
offline
- Pridružio: 30 Maj 2005
- Poruke: 51
- Gde živiš: Nova Pazova
|
Na dobrom si putu, ali razmisli o koriscenju i drugih tipova listi umesto Combo listi. Mogao bih ti emailom poslati demo verziju mog slicnog programa.
|
|
|
|
Poslao: 14 Jun 2005 00:58
|
offline
- Stenley
- Zaslužni građanin
- Pridružio: 01 Mar 2005
- Poruke: 549
- Gde živiš: Apatin
|
@KobaNop
Poslji meni ali full da mogu da koristim
|
|
|
|
Poslao: 14 Jun 2005 11:52
|
offline
- Pridružio: 25 Feb 2004
- Poruke: 35
- Gde živiš: BiH-RS
|
Evo ti resenje:
Private Sub Form_Load()
If Data1.Recordset.BOF = True And Data1.Recordset.EOF = True Then Exit Sub
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF = True
Combo1.AddItem Data1.Recordset.Fields("Firma").Value
Data1.Recordset.MoveNext
Loop
End Sub
|
|
|
|