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

Modrá je dobrá
zelená je lepší

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: aabcpbv
[ 1008 ] <Novější  <<<Nejnovější  Nejstarší>>>  Starší>  
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 10:26  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?
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 10:20  1132
tbl_Pristroj.ROPy
je to zaškrávací políčko (ano/ne, True/False, 1/0, ...)
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 10:19  1131
takže potřebujeme za to Like dostat
"*" pro zaškkrtávací políčko v hodnotě = 0
a
True pro zaškkrtávací políčko v hodnotě = 1
themajkl themajkl All those moments will be lost in time - like tears in rain. 12.3.2010 10:19  1130
tbl_Pristroj.ROPy
je jaký typ?
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 10:16  1129
zkouším obejít funkci a dávat tam řetězce ručně... AND ((tbl_Pristroj.ROPy) Like "*") ...
vyhodí všechny záznamy

... AND ((tbl_Pristroj.ROPy) Like "0") ...
vyhodí jen "neropy" ( kde rop = 0)

... AND ((tbl_Pristroj.ROPy) Like "1") ...
nevyhodí žádný záznam

... AND ((tbl_Pristroj.ROPy) Like "True") ...
nevyhodí žádný záznam

... AND ((tbl_Pristroj.ROPy) Like True) ...
vyhodí správně ropy (záznamy kde rop =1)
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 10:12  1128
ach jos tím accessem to není jednoduché

mmnt
themajkl themajkl All those moments will be lost in time - like tears in rain. 12.3.2010 09:55  1127
to moje? na kterém řádku?
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 09:54  1126
to píše (Access):
"nesoulad datových typů ve výrazu"
themajkl themajkl All those moments will be lost in time - like tears in rain. 12.3.2010 09:50  1125
Tak hlavně "like" je operace na stringem, vůbec nechápu, že ti to dovolí porovnávat s ní integer.

Pokud bude display integer a záznamy ropy budou mít display=1

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

a pak principielně místo
AND ((tbl_Pristroj.ROPy) Like PrectiData_ropy())
dáš
AND PrectiData_ropy()
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 09:40  1124
v té mé databázi žádný sloupeček display nemám...
jo a v té cvičné, kde jsem to zkoušel je typ integer a ošetřuji hodnoty 0 a 1
jasně není to sloupeček typu boolean (ano/ne)
to by mohl být zádrhel, že?
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 09:39  1123
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 = "0"
End If
PrectiData_ropy = ww
End Function

funguje tak, že při ropy=0 vyhodí ropy i neropy (což je správně)
a při ropy=1 hodí neropy (což je špatně)

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 = "1"
End If
PrectiData_ropy = ww
End Function

funguje tak, že při ropy=0 vyhodí ropy i neropy (což je správně)
a při ropy=1 nezobrazí žádný záznam (což je samozřejmě špatně)
themajkl themajkl All those moments will be lost in time - like tears in rain. 12.3.2010 09:33  1122
Jo moment, jaký je typ sloupečku display a máš tam null hodnoty?
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 09:32  1121
ale dá se říci, že jsme na stopě ...
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 12.3.2010 09:25  1120
nefunguje

při volbě 0 nevybere žádný záznam
a při volbě 1 vybere vše ("ne ropy + ropy" )
[ 1008 ] <Novější  <<<Nejnovější  Nejstarší>>>  Starší>  

(c) 2001-2011 Lopuch.cz   
Kontakt