Centar za edukaciju-BiH

Predmet:Pisanje VBA naredbi u više redova

---

Nije mi najjasnije koja su pravila u VBA codu kod pisanja dugačkih naredni u viÅ¡e redova, npr.
If (IsNull(DLookup("[NalogID]", "ArhivaNalog", "[NalogID]= " & [Forms]![frmEvidencijaRadnici]![subEvidencija].[Form]![IdNaloga]))) Then
ili
DoCmd.OpenForm "frmEvidencija", , , "[NalogID]=forms![Pretraga naloga]![Pretraga naloga subform].Form![NalogID]and[IDdijela]=forms![Pretraga Naloga]![Pretraga Naloga subform].Form![IDDijela]"
Uvjek se sa time mučim.
Gdje se ova rečenica smije sječi i kada ide znak _ odnosno &

---

Predmet:Re: Pisanje VBA naredbi u više redova

---

Znak & Je isto sto i znak +.
Dim a as integer, b as integer

a=2
b=3
a+b=5
Dim a as string, b as string

a="2"
b="3"
a+b="23" tj, isto sto i a & b

a="Mujo"
b="Pero"
a+b="MujoPero"

Znaci & je zdruzivanje i odnosi se samo na string.

Tvoje pitanje je kako kod pisarti u 2 reda a za to je znak donja crta.
Primjer:
If (IsNull(DLookup("[NalogID]", "ArhivaNalog", "[NalogID]= " & [Forms]![frmEvidencijaRadnici]! _[subEvidencija].[Form]![IdNaloga]))) Then
Ili
f (IsNull(DLookup("[NalogID]", "ArhivaNalog", "[NalogID]= " _
& [Forms]![frmEvidencijaRadnici]![subEvidencija].[Form]![IdNaloga]))) Then

---------------------------------------
& [Forms]![frmEvidencijaRadnici]![subEvidencija].[Form]![IdNaloga]))) Then
&-Znak i dalje znaci da se stringu "[NalogID]= " pridruzi string procitan u polju na putanji [Forms]![frmEvidencijaRadnici]![subEvidencija].[Form]![IdNaloga])))

---

Predmet:Re: Pisanje VBA naredbi u više redova

---

Isto me i ovo uvjek zbunjuje.
IdTransakcije je Broj
Sifra je tekst
U vom slučaju javlje se greÅ¡ka 'Type mismatch' i najvjerojatnije nisam dobro stavio navodnike

---

Predmet:Re: Pisanje VBA naredbi u više redova

---

" Me.txtIDtransakcije And [Sifra] = " ---> ovo je string jer je pod znacima navoda i njega mozes podijeliti u dv areda kako sam gore naveo:
" Me.txtIDtransakcije" _
& " And [Sifra] = "

Znaci Zdruzujes string a znak za novi red je opet isti u vb.
U jednom redu bi bilo:
" Me.txtIDtransakcije" & "And [Sifra] = "

---