[es] - Memo polje zapis u odredjenom nizu

Pulapola
Pula

Član broj: 28152
Poruke: 52
*.adsl.net.t-com.hr.

Profil

^{26.12.2008. u 20:06 - pre 186 meseci}

Postovani,
ovo je malo teze za objasniti ali…
U programu u jednoj bazi imam pet textbox-ova iz kojih
komletan sadrzaj punim u drugoj bazi u jedno memo polje.

'-- INGREDIENT (Sastojci + Neto masa + Cuvati... + Uputa... + Najbolje upotrijebiti...)
Baza.Execute "Update PLU Set [INGREDIENT] = '" & txtField(4) & "'+' " & txtField(5) & "'+' " & txtField(6) & " '+' " & txtField(7) & "'+' " & txtField(9) & "' WHERE PLU_CODE = " & txtField(8) & ""

Problem nastaje kod ispisa (radi se o vagama) sto memo polje Ingredient ima zapis
u neprekinutom nizu a trebalo bi da ima zapis:
prvi red 60 karaktera pa Enter
drugi red 60 karaktera pa Enter i.t.d.

Kako da zapisem u memo polje druge baze po nizu od 60 karaktera?

Hvala i pozdrav,

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
93.86.55.*

+1 Profil

Re: Memo polje zapis u odredjenom nizu

^{26.12.2008. u 20:27 - pre 186 meseci}

Code:

Public Function FillString(ByVal myString As String) As String

    myString = myString & Space$(60 - Len(myString)) & vbCrLf
    FillString = myString

End Function

Funkcija, kao argument, uzima taj string koji si ti pre upisivao i vraca ti onaj koji trebas da upises.

Sto znaci:

Code:

Baza.Execute "Update PLU Set [INGREDIENT] = '" & FillString(txtField(4) & "' + ' " & txtField(5) & "' + ' " & txtField(6) & " ' + ' " & txtField(7) & "' + ' " & txtField(9)) & "' WHERE PLU_CODE = " & txtField(8) & "

Odgovor na temu

Pulapola
Pula

Član broj: 28152
Poruke: 52
*.adsl.net.t-com.hr.

Profil

Re: Memo polje zapis u odredjenom nizu

^{27.12.2008. u 10:24 - pre 186 meseci}

Stefan, HVALA ali negdje grijesim…
Stavio sam Public Function u Modul naziva String60.bas
i u formi ispravio code Baza.Execute… po uputama
ali prilikom izvrsavanja coda prijavi mi gresku broj 5
„Invalid procedure call or argument“ Gdje grijesim?
Inace Baza.Execute… je u Private Sub SpremiDigiNET()
koju pozivam prilikom spremanja podataka.
Probao sam Public Function staviti unutar forme gdje se
spremaju podaci ali prijavi istu gresku. Molim za pomoc?
Hvala i pozdrav

Evo jednostavan code (koji mi ne radi):

Code:

Option Explicit

Public Function FillString(ByVal myString As String) As String
    myString = myString & Space$(60 - Len(myString)) & vbCrLf
    FillString = myString
End Function

Private Sub Command1_Click()
Text2.Text = FillString(Text1.Text)
End Sub

Znaci u Text1 ima 130 karaktera a u Text2 (koji je MultiLine=true)
treba biti niz od 60 pa Enter, 60 pa Enter i u trecem nizu ostatak.
Kako da ovo rijesim?

Hvala i pozdrav,

_{[Ovu poruku je menjao Pulapola dana 27.12.2008. u 18:13 GMT+1]}

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
93.86.105.*

+1 Profil

Re: Memo polje zapis u odredjenom nizu

^{28.12.2008. u 13:57 - pre 186 meseci}

Ta funkcija je ispravna i kod mene radi a radiće i kod svih drugih.

Ne vidim sta može da bude problem.

Pogledaj da u pitanju nije nesto drugo...

Odgovor na temu