Lep pozdrav vsem!
Sem nova na tej strani. Imela bi pa za vas, ki očitno veliko več veste od mene eno vprašanje.
Imam program, kjer imam transakcijske račune. Številke teh računov moram dat v combobox. Jaz sem jih napolnila v properties v List, in dala sem Style 2-dropdownlist. Dala sem npr. 1111, 2222, 3333
Te podatke bi morala izpisat na seznam ( kjer se naj vidi katero st.TRR sem izbrala + ostali podatki).
Ampak meni enostavno ne dela! Vedno mi izpisuje 0,1,... Vem da so to indexi ( transakcij). Ampak kako naj napišem da nebo 0 ampak 1111 itd.?
TUKAJ JE MOJ PROGRAM:
Vem, da je malo dolg a vseeno , LEPO LEPO prosim pomagajte mi. V ponedeljek imam namreč izpit in ne vem več kaj naj še probam da bi delovalo prav.
Milijonkrat hvala!
Ester
Option Explicit
Option Base 1
Dim komitent As oseba
Private Sub cmdBrisi_Click()
' KAJ PA TU ??
cboStTRR.Text = "" ' dala text namesto listindex
txtZnesek.Text = ""
dtpDatum.Value = Date
txtOpis.Text = ""
cboStTRR.SetFocus
End Sub
' IZBRIŠE CELO DATOTEKO
Private Sub cmdIzbrisi_Click()
Dim odgovor As String
odgovor = MsgBox("Ali ste prepričani, da želite izbrisati datoteko?" _
, vbYesNo, "Brisanje datoteke")
If odgovor = vbYes Then
Kill App.Path & "\komitenti.txt"
MsgBox " Datoteka je zbrisana!", vbOKOnly
End If
End Sub
Private Sub cmdIzhod_Click()
Unload Me
End Sub
Private Sub cmdSeznam_Click()
txtIzpis.Text = " Št.TRR" & vbTab & vbTab & "Datum" & vbTab & " Znesek" _
& vbTab & " Opis" & vbCrLf
txtIzpis.Text = txtIzpis.Text & String(100, "-")
Open App.Path & "\komitenti.txt" For Input As #1
Do Until EOF(1)
With komitent
' TUDI V SEZNAMU MORA BITI CBO...TEXT!!
' kljub temu ne dela prav
.StTRR = cboStTRR.ListIndex
.Znesek = Val(txtZnesek.Text)
.Datum = dtpDatum.Value
.Opis = txtOpis.Text
Input #1, .StTRR, .Znesek, .Datum, .Opis
'TU SEM DODALA vbCrLf da skoči v novo vrsto in lepo izpiše
txtIzpis.Text = txtIzpis.Text & vbCrLf & .StTRR & vbTab & vbTab & _
.Datum & vbTab & .Znesek _
& vbTab & .Opis & vbCrLf
End With
Loop
Close #1
End Sub
Private Sub cmdVnos_Click()
Open App.Path & "\komitenti.txt" For Append As 1
With komitent
' TU MORA BIT .StTRR= cboStTRR.text !!!
' .StTRR = cboStTRR.Text
' PREJ SEM MELA SPODNJO VRSTO IN MI NI NAPISALO npr.11111
' AMPAK 0
' .StTRR = cboStTRR.Text ' ko ti hočem vpisat tretjič mi da owerflow prej pa dela !!
.StTRR = (List.ListIndex)
.Znesek = txtZnesek.Text
.Datum = dtpDatum.Value
.Opis = txtOpis.Text
Write #1, .StTRR, .Znesek, .Datum, .Opis
End With
Close #1
MsgBox ("Zapis je dodan!")
'cboStTRR.Text = "" če mam pa ne dela
txtZnesek.Text = ""
dtpDatum.Value = Date
txtOpis.Text = ""
cboStTRR.SetFocus
End Sub
' TUKAJ SEM DODALA NAJ NAS OPOZORI ČE NE VNESEMO NUMERIČNE VRED.
Private Sub txtZnesek_Change()
If Not IsNumeric(txtZnesek) Then
MsgBox "Vpišite prosim numerično vrednost!"
txtZnesek.SetFocus
txtZnesek.Text = 0
txtZnesek.SelLength = Len(txtZnesek)
Exit Sub
End If
End Sub
Visual Basic 6.0 - combobox
Huh... Pogledam prvih 10 vrstic pa se ne znajdem več Poleg tega ne vem ali se to dogaja na listu ali na formi in ne poznam elementov na formi. Poskusite še napisati, kjer je najverjetneje napaka Potem vam bo lažje pomagati In komentarje ter vse to lepo poravnajte (zamiki)...
[img]http://shrani.si/f/3t/YL/4W2P37B9/office.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
Pozdravljeni,
to na žalost ni forum, ki bi bil namenjen uporabnikom programskega jezika VB, temveč VBA - in to ni enako...
Kar pa se tiče pomoči pa vam moram povedati, da niste poslail celotne kode, tako npr. niti ne vem kako je definiran tip 'oseba'. No pa to niti ni tako hudo pomembno. Pogledal sem kodo in takoj se mi ustavi že tukalje:
Vi odprete datoteko, pa nikjer iz nje nič ne berete in najprej priredite (cboStTRR.ListIndex) kaj za vraga to sploh je?
Nadalje:
Elementom tipa 'oseba' najprej priredite neke vrednosti, potem pa jih poskušate prebrati iz datoteke...???
Glede na to vam ne morem pravzaprav nič pomagati. Tale del kode, ki ste ga prilepili je povsem napačen in čisto brez repa in glave....
to na žalost ni forum, ki bi bil namenjen uporabnikom programskega jezika VB, temveč VBA - in to ni enako...
Kar pa se tiče pomoči pa vam moram povedati, da niste poslail celotne kode, tako npr. niti ne vem kako je definiran tip 'oseba'. No pa to niti ni tako hudo pomembno. Pogledal sem kodo in takoj se mi ustavi že tukalje:
Koda: Izberi vse
Open App.Path & "\komitenti.txt" For Input As #1
Do Until EOF(1)
With komitent
' TUDI V SEZNAMU MORA BITI CBO...TEXT!!
' kljub temu ne dela prav
.StTRR = cboStTRR.ListIndex
Nadalje:
Koda: Izberi vse
.Znesek = Val(txtZnesek.Text)
.Datum = dtpDatum.Value
.Opis = txtOpis.Text
Input #1, .StTRR, .Znesek, .Datum, .Opis
Glede na to vam ne morem pravzaprav nič pomagati. Tale del kode, ki ste ga prilepili je povsem napačen in čisto brez repa in glave....
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator