Anonymní profil Anonymní uživatel – Programujte.com

asi by to chtělo hezky popořádku ne???


co vrací sql dotaz???
jak jej používáte,tzn přes co se připojujete k db atd
na základě takovéhoto dotazu vám poradí leda věštec
primárně- sum je funkce v rámci sql
,neboli select sum(myfield) from mytable [where][group][order]

případně hoďte ten kus kódu který vám nefunguje



select sum (ujete_km) from mytable [where][grou[

tak to nechápu ,co chceš simulovat, v mrkvosoftích produktech se disk nezastaví skoro nikdy,
jestli ti jde o chrčení disku a blikání letky, poměrně úspěšnoým způsobem je tvorba velkých souborů s náhodným, resp nesmyslným obsahem

rada nad zlato, kašli na makra a otevírej formuláže v kódu
makro stejně není nic jiného než kód ve vba
možná by si sem měl to makro co ti hází chybu hodit,
tohle vypadá na používání nějakého nestandartního ovládacího prvku na některém z formulářů, případně reference nebo chybějící knihovny

To xmastny : postni, docela by mě zajímlo jestli si náhodou herr lehrer neskočil na hrabičky a nezadal vám kravinu...

To cvajniga : problém nebude s reverzí,
já to jen tak pro srandu zkoušel s pevně nadefinovaným textem, to prošlo v pohodě, ale když tam zadáš
" ^$^$^$^$^$ "
teda vyhledávání 5 písmenných znaků, tak nikde není proprta ,která by uschovával to co vlastně funkce find našla,
strávil jsem na tom pravda jen 20 minut ale nepovedlo se mi taktéž
prostě se mmi nepodařilo odněkud vytáhnout obsah toho co find našel, abych to moh co ragument předat k reverzi
buď sem hledal špatně nebo prostě find použít NELZE...

to je systémový adresář a esli si pamatuju dobře tak se to dá vytáhnout přes nějakou api funkci

Form1.Controls.Add "VB.Label", "newCtrlName", Form1

To cvajniga : teda takhle čuňácky to opsat z wizrdu i s tou kupou zbytečných závorek, styď se ;)

pokud je TXT asociovaný s notepadem jde použít tohle

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Open_Association(byVal Cesta as string)
If ShellExecute(Form_Start.hwnd, "open", Cesta, vbNullString, vbNullString, vbNormalFocus) < 33 Then
Shell "rundll32.exe shell32.dll,OpenAs_RunDLL " & Cesta
End If
end sub

jasný že jo , smyčka
načtení buňky,test prázdnosti, případné sečtení
já myslím že na načítání z excelu jsem odpovídal o nějaké vlákno níž

vyhnutí chybě se dá ale řešit tak že dáš komponentě výchozí hodnotu...0

To jirak :
change se volá nikoliv při zapsání znaku ale při změně obsahu
taktéž možno použít after či beforeupdate

jinak tohle mě pobavilo


if <text1 obsahuje jakýkoliv znak> then
text2.text = "0"
text3.text = "0"
text4.text = text2.text * text3.text
else: text2.text = ""
text3.text = ""
end if


neboli ať zadáš do text1 co zadáš v text4 bude 0, to mi řekni jaký je tohle výpočet:-)

já bych se jen z dovolením zeptal naco je třeba číslo řádku když máme primární klíče....

filename="c:\pokus.xls"
Dim ExcelAp As Object
Set ExcelAp = CreateObject("excel.application")
ExcelAp.Workbooks.Open filename:=filename, UpdateLinks:=0
Dim wSheet As Object
Set wSheet = ExcelAp.Workbooks(1).Worksheets(1)
ls_cell = "A1"
li_pos=instr(ls_cell,"10")
if li_pos>0 then ls_result-mid(ls_cell,li_pos,2)

no prostě pokud máte nekonečný formulář tak když nemá povolen vertikální scrollbar, pak kolečko myši na posun mezi záznamy nefunguje

no tak to asi budeš muset použít jiný font, viz rozdíl mezi neproporcionální a proporcionálním písmem

odstraněním posuvníků

To michal07 :
použité je to dobře deklarace pole
dim pole() as string

pokud to nechodí je evidentně pole prázdné aneb string obsah neobsahuje požadovaný delimeter nebo je prázdný

co takhle debugger a krokovat kód, od toho tam totiž debugger bývá...

počítám že to co programátor dotáhnu rozhodně dál než ty se svou leností a neschopností se učit něčemu novému, viz přístup proč bych to měl vědět když to víc nebudu potřebovat..na pořádným fóru by tě poslali do prdele by ses divil

víš hovno a vědět s tímto přístupem budeš vždycky,
zapisuje se to tak jak sem napsal, to že je někdo blb a neumí adresovat v rámci kolekcí není můj problem
nicméně pomocí kouzelného slůvka ME, netřeba adresovat tabpage....

??????
nechápu,co nejde
napřed bys měl trošku omrknout kolekce forms a controls, pak bys věděl jak adresovat přímo daný ovládací prvek
to jako podle mě patří k základům

pokud se jedná o 1 form,mělo by stačit
if me.Zaškrtnutí160= 0 then me.Text18].visible=true

Sub Zaškrtnutí160_Click()
lb_bool=false
If Zaškrtnutí160.Value = 1 Then lb_bool=true
forms("Form_ffsub").controls("Text18").Visible = lb_bool
end sub

ach jo

ten zápis je hrůza

správná varianta
a=Val(TextBox1.Text) + Val(TextBox2.Text)
if CheckBox1.Checked then a= 2*a

To salicornia : kristova noho, co to je za blbou smyčku, jaký to má efekt???????

To Tocimanko : ne, na autora vlákna..

hergot, co jsem psal nahoře?????????????????????????????????????????????????????????????
nepsal jsem náhodou něco o překryvných či modálních oknech???????????????????????????????????


form2.shomodal()

takže sorry při kopírování mi vypadl kus kódu, tady je to celé

Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Set fss = CreateObject("Scripting.FileSystemObject")
Set f = fss.GetFile("C:\pokus.txt")
Set ft = f.OpenAsTextStream(ForWriting, TristateUseDefault)
ft.WriteLine ("pokusná řádka")

proč open for input???
já používám
Set f = fss.GetFile(file)
Set ft = f.OpenAsTextStream(ForWriting, TristateUseDefault)
ft.WriteLine (line)

no oni taky existují určité vlastnosti okna jako například modální, překryvné ....
dál pak existují nějaké metody typu setfocus
a nechápu proč by se mělo zavírat a zase otvírat to je nesmysl, neboli
pokud chceš změnit něco na formu za chodu, tak to uděláš v nějaké funkci kterou zavoláš
například

private sub zmenform
select case button1.caption
case "Jméno"
form1.mylabel.caption="jméno"
case "prijmeni"
form1.mylabel.caption="prijmeni"
end select
form1.refresh
end sub


dále je možno použít properu visible atd
neboli , nechápu proč nějaké hloupé zavírání a otvíraní to jsem nikdy nepotřeboval

a dovětek ptáš se na brutální základy navíc velice snadno dohledatelné na netu, případně v kdejaké brožurce typu
začínáme s vb

po vložení něco ve smyslu

if isnull(forms.(myform).form(mysubform).controls(mycontrol) then
ls_sql="select top 1 km from mytable order by id_tabulky DESC"
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open ls_sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rst.RecordCount > 0 Then
ldec_km = rst.field.item("KM")
forms.(myform).form(mysubform).controls(mycontrol)=ldec_km
end if
rts.close
end if

případné chyby odlaď , nezkoušeno

jo sorry tohle je z accessu takže nevim jak v případném vb6 a výše

nebo DoCmd.RepaintObject acForm, myform

nejlepší je mít další tabulky, tabulku pohybů
tzn typ pohybu´další tabulka čísleník - mateřská, vojenská služba etc + u každého pohybu příznak aktivní ano/ne
datum nástupu a ukončení PP bych dal přímo do kmenové tabulky zaměstnanců společně s typem nástupu a výstupu -použít stejný číselník
V případě že datum ukončení je null znamená to že pracovník je v poměru tzn je zobrazen, ještě ale musíte projet pohyby , tzn jestli je aktivní či nikoliv
neaktivní zaměstnance s pohybem bych pak zobrazil v samostatném podformuláři

tohle je dost těžké házet na fórum, evidentně hledáte vůbec nějakou logiku a metodu jak danou agendu zpracovat ,což je samozřejmě podmíněno současným stavem vaší databáze

no pokud se ovládací prvky jmenují postupně, neboli checkbox1...2

set frm=forms(myform)
for i-1 to 20
ls_ctrl=checkbox & trim(str(i))
frm.controls(ls_ctrl).caption="..."
next

jo to sečtení je myšleno sečíst řetězec a pak převést na číslo ,samozřejmě v pořadí rok, měsíc den,
aneb 20071114>20071031

To Pepe : no vytvořil bych pole o dvou prvcích, index a název souboru.
pak stačí ve smyčce projíždět adresář ,extrahovat datum z názvu souboru sečíst hodnotu dny+měsíce+roky,a vložit do pole,jak sečtenou hodnotu tak název souboru.
pak stačíé použít třeba quicksort na první položku
obecně o třídění více zde
http://www.vb-helper.com/tut1.htm

Open "myfile" For Input As #1 'otevření txt
Do While Not EOF(1)
Line Input #1, inputdata ' načtení řádku do prom
myitems = Split(inputdata, "mydelimiter") 'rozdělí řádku souboru dle zadaného oddělovače a výsledek uloží do pole
Loop
close #1

konfigurační soubor
obyčejný texťák s příponou ini nebo cfg ti nestačí??

protože
Open "C:\asd.txt" For Binary As #fp2

zapisovat textově do texťáku se dělá trošku jinak