Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

pojavjanje greska where conditions

[es] :: Access :: pojavjanje greska where conditions

[ Pregleda: 1511 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

viktorce
viktor gicev
programer_sam radim_nemam firme
strumica

Član broj: 211967
Poruke: 20
79.126.204.*

ICQ: 45444


Profil

icon pojavjanje greska where conditions25.08.2009. u 12:53 - pre 178 meseci
gde je greska tu hocu da mi otvori isti broj mase ?
Dim strWhere As String
Dim strFormName As String

strFormName = "For_Detali_Smetki"
strWhere = " [Masa]='" & Me.[Masa] & "'"
DoCmd.OpenForm strFormName, View, strWhere
viktorce
 
Odgovor na temu

smal
Slobodan Maljković
Kragujevac, Srbija

Član broj: 228672
Poruke: 286
*.dynamic.sbb.rs.



+13 Profil

icon Re: pojavjanje greska where conditions25.08.2009. u 13:03 - pre 178 meseci
Citat:
viktorce: gde je greska tu hocu da mi otvori isti broj mase ?

Code:
DoCmd.OpenForm strFormName, View, strWhere


Nedostaje još jedan zarez, tj. ovde treba da stoji:
Code:
DoCmd.OpenForm strFormName, View, , strWhere
 
Odgovor na temu

viktorce
viktor gicev
programer_sam radim_nemam firme
strumica

Član broj: 211967
Poruke: 20
79.126.204.*

ICQ: 45444


Profil

icon Re: pojavjanje greska where conditions25.08.2009. u 13:26 - pre 178 meseci
da sada radi to ali otvara samo prvi broj evo ti primer pa pgledaj
http://www.icentar.com/attachm...chmentid=4720&d=1251203073
otvori for_vlez_smetki i gde pise masa u texy box upisi neki broj bilo koj videces sta je problem
viktorce
 
Odgovor na temu

viktorce
viktor gicev
programer_sam radim_nemam firme
strumica

Član broj: 211967
Poruke: 20
79.126.204.*

ICQ: 45444


Profil

icon Re: pojavjanje greska where conditions25.08.2009. u 23:12 - pre 178 meseci
Private Sub Masa_AfterUpdate()
If IsNull(Me.Sifrata) Or Me.Masa = "" Then
MsgBox "Nemate Vneseno Kelner", vbCritical, "Greska"
Exit Sub
End If
If Me.Masa.Value = (DLookup("Masa", "Tbl_Masi_Arhiva", "Masa='" & Me.Masa & "'")) And (Me.Masa <> "afad") Then

DoCmd.OpenForm "For_Smetki", , , "Masa = '" & "" & Masa & "" & "'", acFormEdit
Else
DoCmd.OpenForm "For_Smetki", , , "Masa = '" & "" & Masa & "" & "'", acFormEdit
DoCmd.GoToRecord , , acNewRec
End If
End Sub




a kod ovaj kod gde je greska?
viktorce
 
Odgovor na temu

[es] :: Access :: pojavjanje greska where conditions

[ Pregleda: 1511 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.