Registrace nového uživatele     Návod     Kluby     Archív  Lopuchu     Lopuch.cz  

Něco navíc v zeleném?
A proč ne...

Lopuch.cz
Jméno:
Heslo:
Podpora LCD:
 
Klub Database (mysql,...) [ŽP: neomezená] (kategorie Programování) moderuje melkor_unlimited.
Archiv
  Nastavení klubu     Nastavení práv     Homepage     Anketa     Přítomní     Oblíbené     Lopuch     Kategorie  
autor: 
text: 
vyplnit a 
Help
 Titulek, text příspěvku  
Opište pozpátku následující text bez prostředního znaku: qjdluxv
[ 1008 ] <Novější  <<<Nejnovější  Nejstarší>>>  Starší>  
tessien Tessien Of course slavery is the worst thing - that ever happened. But maybe... 12.3.2010 11:16  1147
To mate z toho, ze pouzivate takovy sracky jako Access a Visual Basic! :)
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 11:15 - Oblíbené kluby (19:32) 1146
právě že ne
mesage box zobrazí obě varianty správně
nicméně výsledek je v obou případech "všechny záznamy"

když ty řetězce dosadím "natvrdo" ručně, tak to funguje

zádrhel bude někde v předání hodnoty tou funkcí ....
themajkl themajkl All those moments will be lost in time - like tears in rain. 12.3.2010 11:10  1145
Tak fakt tu reprezentaci nechápu. Nicméně když to tam tedy plácneš

Function PrectiData_ropy()
Dim ww As String
If (Forms!frm_SELECT!Vyhledat_ropy = False) Then
ww = "tbl_Pristroj.ROPy = True Or tbl_Pristroj.ROPy = False"
End If
If (Forms!frm_SELECT!Vyhledat_ropy = True) Then
ww = "tbl_Pristroj.ROPy like True"
End If
PrectiData_ropy = ww
MsgBox "hodnota ww = " & ww
End Function

tak to je ok?
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 11:06 - Oblíbené kluby (19:32) 1144
"tbl_Pristroj.ROPy Like True"
zobrazí správně ropy
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 11:04 - Oblíbené kluby (19:32) 1143
jinak zkouším na displej zobrazit ty řetězce

Function PrectiData_ropy()
Dim ww As String
If (Forms!frm_SELECT!Vyhledat_ropy = False) Then
ww = "tbl_Pristroj.ROPy = True Or tbl_Pristroj.ROPy = False"
End If
If (Forms!frm_SELECT!Vyhledat_ropy = True) Then
ww = "tbl_Pristroj.ROPy = True"
End If
PrectiData_ropy = ww
MsgBox "hodnota ww = " & ww
End Function

a zobrazí je to správně
themajkl themajkl All those moments will be lost in time - like tears in rain. 12.3.2010 11:03  1142
a ta varianta
"tbl_Pristroj.ROPy Like True"
?
Zajímalo by mne, jaké hodnoty tam kruci doopravdy jsou...
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 10:57 - Oblíbené kluby (19:32) 1141
zkouším
... And (PrectiData_ropy()) ...

kde funkce je :

Function PrectiData_ropy()
Dim ww As String
Dim rr As Boolean
rr = Forms!frm_SELECT!Vyhledat_ropy
If (rr = False) Then
ww = "tbl_Pristroj.ROPy = True Or tbl_Pristroj.ROPy = False"
End If
If (rr = True) Then
ww = "tbl_Pristroj.ROPy = True"
End If
PrectiData_ropy = ww
End Function

ale nefunguje správně

ať je v zadávacím formuláři zaškrtnuté ropy či nezaškrtnuté, vyhodí to vždy všechny záznamy (ropy + neropy)
themajkl themajkl All those moments will be lost in time - like tears in rain. 12.3.2010 10:47  1140
tohle je jasné, protože
X or 0 = X (logika)
tys chtěl původně napsat
And (tbl_Pristroj.ROPy = true or tbl_Pristroj.ROPy = false)
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 10:45 - Oblíbené kluby (19:32) 1139
themajkl :
to mu taky hlava nebere

a
And (tbl_Pristroj.ROPy = true or false)
hodí výsledek jako
AND (tbl_Pristroj.ROPy =true )
themajkl themajkl All those moments will be lost in time - like tears in rain. 12.3.2010 10:39  1138
Tak v prostředí, kde true není ekvivalentní 1 si dál radit netroufám :-)))
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 10:37 - Oblíbené kluby (19:32) 1137
AND (tbl_Pristroj.ROPy =1 )
nevybere nic
AND (tbl_Pristroj.ROPy =0 )
vybere neropy (správně)


AND (tbl_Pristroj.ROPy =true )
vybere ropy (správně)
AND (tbl_Pristroj.ROPy =false )
vybere neropy (správně)
themajkl themajkl All those moments will be lost in time - like tears in rain. 12.3.2010 10:29  1136
vykopej z toho ten like, když tam nění řetězec.
AND (tbl_Pristroj.ROPy =1 )
?
AND (tbl_Pristroj.ROPy =0 )
?


puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 10:27 - Oblíbené kluby (19:32) 1135
já vím že se v tom plácám !
:-))

velmi děkuji za trpělivost
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 10:26 - Oblíbené kluby (19:32) 1134
ale

Function PrectiData_ropy() As String
Dim ww As String
Dim rr As Boolean
rr = Forms!frm_SELECT!Vyhledat_ropy
If (rr = False) Then
ww = "*"
End If
If (rr = True) Then
ww = True
End If
PrectiData_ropy = ww
End Function

mi nefunguje
ww = "*" funguje
ale
If (rr = True) Then
ww = True
nefunguje - nevyhodí žádný záznam
ani ww = "True"
themajkl themajkl All those moments will be lost in time - like tears in rain. 12.3.2010 10:25  1133
Mně to přijde, že ti pořád nemůžu vnutit, že like je operátor nad řetezcem a cokoliv mu předhodíš, tak access nejdřív nějak převede na řetězec a plácáme se v tom furt dokola.
Myslím, že jsem ti správné řešení napsal, aspoň do té míry, jak to celé chápu.
Máš v té proceduře fakt ww jako string?
[ 1008 ] <Novější  <<<Nejnovější  Nejstarší>>>  Starší>  

(c) 2001-2011 Lopuch.cz   
Kontakt