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

Lopuch, server nejen
pro botaniky

Lopuch.cz
Jméno:
Heslo:
Podpora LCD:
 
Klub Visual Basic [ŽP: neomezená] (kategorie Programování) moderuje Rider.
Archiv

Visual Basic, VBScript, ASP, VB.NET a dalsi...

Informační zdroje: Tipy na vaše oblíbené stránky můžete směřovat do Riderovy pošty
  Nastavení klubu     Nastavení práv     Homepage     Anketa     Přítomní     Oblíbené     Lopuch     Kategorie  
autor: 
text: 
vyplnit a 
Help

Nemáte právo psát do tohoto klubu.

[ 94 ] <Novější  <<<Nejnovější  Nejstarší>>>  Starší>  
huh huh 20.3.2012 11:06  180
Option Compare Database

Sub okno()

    Set fDialog = Application.FileDialog(msoFileDialogOpen)
    If fDialog.Show Then
        Dim str
        For Each str In fDialog.SelectedItems
            MsgBox str
        Next str
    Else
        MsgBox "Nic"
    End If
    
End Sub

+ ve VB editoru v Tools\References zaskrtnout Microsoft Office X.Y Object Library
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 20.3.2012 07:02 - Oblíbené kluby (11:48) 179
Mira [178]:
konkrétně potřebuji, aby uživatel (s potřebnými právy) mohl po kliknutí vybrat soubor na svém lokálním počítači (z nějakého výchozího adresáře, ale s možností procházet celý počítač) odeslat soubor do určené složky (tam kde je i databáze, tedy *.mdb soubor , což je na síti).
Potřebuji aby se uložila cesta k souboru a jeho název / či třeba nový název. Uživatel tak přidělí k vybranému přístroji například jeho fotografie, katalogový list, návod atd ...
mira Mira Optimista se učí anglicky - pesimista rusky a realista střílet... 19.3.2012 23:12  178
zejtra se ti kouknu do knizky, mam ji v praci.

Potrebujes primo ten "Save as" dialog, nebo ti staci ulozit soubor do nastaveneho adresare?
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 19.3.2012 15:03 - Oblíbené kluby (11:48) 177
ani tohle mi k ničemu nebylo:
Help with Access VBA Code Modules - An Open file dialog box
plácám se v tom už od pátku
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 19.3.2012 15:00 - Oblíbené kluby (11:48) 176
Microsoft Common Dialog control, version 6.0Application.GetOpenFileName()

zkouším otevřít dialogové okno (MS Access 2003)
Open/Save File

a nějak to nemohu rozchodit

našel jsem již
Microsoft Common Dialog control, version 6.0

API: Call the standard Windows File Open/Save dialog box

ale přiřadit tlačítku ve formuláři MS Accessu funci na ukládání vybraného souboru do předem nastaveného adresáře neumím

nějaké záchytné body byste někdo neměl ?
mira Mira Optimista se učí anglicky - pesimista rusky a realista střílet... 9.6.2011 13:19  175
Excel VBAdneska jsem zjistil, ze udalost "worksheet_change" reaguje jen na zmenu hodnoty v bunce provedenou rucne nebo makrem - ne na funkce... Jde to nejak "ochcat"? (teda krome hlidani ve worksheet_calculate, ktera mi nevraci target a musel bych v ni overovat vsechny bunky?)
huh huh 31.5.2011 16:01  174
no můžeš ho normálně otevřít pomocí open v binary režimu a číst po kusech, akorát bys musel hlídat, jestli si neskončil zrovna uprostřed vícebajtovýho znaku. zkus tohle, třeba to bude na pár mega stačit, i když to čte celej soubor najednou
mira Mira Optimista se učí anglicky - pesimista rusky a realista střílet... 31.5.2011 14:40  173
konverze z UTF-8potrebuju zpracovat v excelu textovej soubor (desitky MB), kterej je v UTF-8. Umim nacist celej soubor do ADODB.Streamu a pak ulozit, ale to je priserne pomale. Neexistuje nejaka inteligentnejsi moznost, jak cist soubor treba po radcich?
mira Mira Optimista se učí anglicky - pesimista rusky a realista střílet... 4.5.2011 19:57  172
nicmene na ten focus by to melo behat taky, koneckoncu klikem udelas focus (teda za predpokladu ze do te doby ho mel jinej prvek).

Jak jsem psal, ve VBA Excelu mi to fungovalo i s focusem, nevim proc by to jinde fungovat nemelo...
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 4.5.2011 14:07 - Oblíbené kluby (11:48) 171
vyřešenochyba na mé straně (jako většinou)

mělo být:

Private Sub Dodano_Click()
Dodano.SelStart = 0
Dodano.SelLength = Len(Dodano.Text)
End Sub
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 4.5.2011 13:54 - Oblíbené kluby (11:48) 170
zdravím a mám hned dotazpotřebuji v textovém poli (formulář aplikace ms access) aby po kliknutí do tohoto pole byl vybrán text, který tam je napsán (je to text délky jednoho znaku)
po posunu přes jednotlivá pole tabelátorem to funguje ale přes focus myši do pole již nikoliv

používám tento script

Private Sub Dodano_GotFocus()
Dodano.SelStart = 0
Dodano.SelLength = 1
End Sub


děkuji za případné podněty
huh huh 13.2.2011 22:15  169
To chce nemít v počítači bordel...
mira Mira Optimista se učí anglicky - pesimista rusky a realista střílet... 13.2.2011 21:51  168
nojo, ale to prece nemyslej vazne, aby clovek hledal na pocitaci ten spravnej adresar a pak si ho manualne kopiroval!??
huh huh 13.2.2011 16:37  167
Obyčejně zkopírovat nestačí?
mira Mira Optimista se učí anglicky - pesimista rusky a realista střílet... 13.2.2011 15:13  166
VB ve VS 2010 Expressjak ulozit projekt na flashdisk abych v nem mohl pokracovat na jinem pocitaci??? Furt na to nejak nemuzu prijit :)
[ 94 ] <Novější  <<<Nejnovější  Nejstarší>>>  Starší>  

(c) 2001-2011 Lopuch.cz   
Kontakt