Moj novi projekat (program za pravljenje predracuna)

Moj novi projekat (program za pravljenje predracuna)

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.
offline
  • 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.



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 !

offline
  • 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?

offline
  • 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 ?

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.

offline
  • Pridružio: 01 Mar 2005
  • Poruke: 549
  • Gde živiš: Apatin

@KobaNop
Poslji meni ali full da mogu da koristim Smile

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

Ko je trenutno na forumu
 

Ukupno su 609 korisnika na forumu :: 36 registrovanih, 4 sakrivenih i 569 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1567 - dana 15 Jul 2016 19:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., AleksSE, darkstar101, drdoca, Drug pukovnik, dzoni19, eighty-one, havoc995, ivana.veselinovic, kovacicbozo, ljs, Marko Marković, marko308, Metanoja, Mikulino, Milos ZA, nemkea71, nenad81, Pavlov A.A., pein, pismo, proka89, Rakenica, RJ, royst33, sasa.zoric, shmele2, shone34, SsssssNOVI, SubaTrotter, USSVoyager, VJ, vl.markovic, voja64, zdrebac2, |_MeD_|