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

Lopuch, server nejen
pro botaniky

Lopuch.cz

Povinné ručení
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. Práva vám může přidělit moderátor klubu. Požádejte ho v soukromé poště.

[ 94 ] <Novější  <<<Nejnovější  Nejstarší>>>  Starší>  
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 22.3.2012 11:04 - Oblíbené kluby (02:33) 186
mám to!vymyslel jsem to takto:
rst!ID_Pristrojx = Forms!frm_Pristroj_Final!ID_Pristroj
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 22.3.2012 09:42 - Oblíbené kluby (02:33) 185
díky huhjsem pokročil o velký kus dál

nyní ještě malý dotaz
jak zjistím zapsání ID nadřazeného formuláře (vycházející z tbl_Pristroj) když v podformuláři zapisuji do tb-Navody nějaké dokumenty a chci aby se zapsal jako cizí klíč ID z toho nadřazeného formuláře

klíčová část kodu:



Set rst = CurrentDb.OpenRecordset("tbl_Navody")
For Each str In fDialog.SelectedItems
MsgBox str
Dim target
target = strCesta & "test\" & GetFilename(str)
If FileExists(target) Then
MsgBox ("Soubor uz existuje")
Else
Call FileCopy(str, target)
rst.AddNew
rst!ID_Pristrojx = ID_Pristroj
rst!Navod_adresa_zdroje = str
rst!Navod_adresa = target
rst.Update

End If
Next str
rst.Close




problém je
rst!ID_Pristrojx = ID_Pristroj

ID_Pristrojx zůstane prázdné

zkoušel jsem včera asi 30 různých kombinací metodou pokus omyl a buď hodí nějakou chybu nebo zůstane pole prázdné

myslím si, že se jedná o jednoduchou věc, ale já tohle neumím ošetřit
...
huh huh 20.3.2012 13:52  184
Function GetFilename(ByVal str As String) As String
    Dim i
    Let i = InStrRev(str, "\")
    If i > 0 Then
        Let GetFilename = Right(str, Len(str) - i)
    Else
        Let GetFilename = str
    End If
End Function

Function FileExists(ByVal path As String) As Boolean
    FileExists = Dir(path) <> ""
End Function

Sub okno()
    Dim fDialog

    Set fDialog = Application.FileDialog(msoFileDialogOpen)
    If fDialog.Show Then
        Dim rst As Recordset
        Dim str
        Set rst = CurrentDb.OpenRecordset("Tabulka1")
        For Each str In fDialog.SelectedItems
            MsgBox str
            Dim target
            target = "c:\temp\" & GetFilename(str)
            If FileExists(target) Then
                MsgBox ("Soubor uz existuje")
            Else
                Call FileCopy(str, target)
                'CurrentDb.Execute ("INSERT INTO [Tabulka1] ([Pole1]) VALUES ('" & str & "')")
                rst.AddNew
                rst!Pole1 = str
                rst.Update
            End If
        Next str
        rst.Close
    Else
        MsgBox "Nic"
    End If
    
    
End Sub

puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 20.3.2012 13:25 - Oblíbené kluby (02:33) 183
VB je pro mě ještě víc neuchopitelný než php
:-)
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 20.3.2012 13:25 - Oblíbené kluby (02:33) 182
koukám pro inspiraci sem:

FileDialog Property

Working with Files and Folders in Office 2003 Editions

ale zatím jsem tam stejně nevyčetl jak vybraný soubor uložím do předem zadané složky
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 20.3.2012 12:45 - Oblíbené kluby (02:33) 181
děkujihuh [180]:


Private Sub PokusOpenSaveFile_Click()

Dim fDialog As Variant

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



Otevře se dialog k otevření souboru, vyskočí okno s vybranou cestou.
Potřebuji ten vybraný soubor uložit do jiné složky a uložit tu novou cestu a název ...
Nemáš ještě po ruce nějaký fungující kód na ty zbývající věci ... ?
huh huh 20.3.2012 12: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 08:02 - Oblíbené kluby (02:33) 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... 20.3.2012 00: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 16:03 - Oblíbené kluby (02:33) 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 16:00 - Oblíbené kluby (02:33) 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 14: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 17: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 15: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 20: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...

[ 94 ] <Novější  <<<Nejnovější  Nejstarší>>>  Starší>  
Povinné ručení porovnání

(c) 2001-2011 Lopuch.cz   
Kontakt