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

Diskuze na Lopuchu,
pohlazení na duchu

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ší>  
krte30 28.9.2013 16:44  191
Programování ve Visual BasicAhojky, potřebovala bych docela nutně poradit.
storm Storm Přišel jsem, viděl jsem,.. nechápu. 15.4.2012 12:23  190
DotazPotřeboval bych v label.caption zobrazit vzorec pro výpočet obsahu kruhu a nějak netuším, jak zapsat PI a jak druhou mocninu r.
Netušíte někdo?
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 23.3.2012 09:54 - Oblíbené kluby (07:13) 189
Microsoft Access tips: Introduction to Hyperlink fields
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 23.3.2012 09:00 - Oblíbené kluby (07:13) 188
tak jsem na to přišelmísto
target = "foto\" & GetFilename(str)
jsem napsal
target = "#" & "foto\" & GetFilename(str) & "#"

při vkládání do tabulky přes script musí mít hypertextový odkaz na začátku a na konci znak #
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 23.3.2012 08:47 - Oblíbené kluby (07:13) 187
Hypertextový odkazještě jedna potíž

Skoro vše už mi funguje
ale pokud do tabulky načtu cílovou adresu vloženého dokumenty pomocí níže uvedeného scriptu, tak po kliknutí na hyperlink se nestane nic
zajímavé je, že pokud z pole ve formuláři načtenou adresu vyjmu, vložím do textového editoru (nic jiného neudělám) a z něj opět vyjmu a vložím do toho původního pole ve formuláři, tak už hyperlink funguje !!?!

Netušíte někdo, kde by mohlo být jádro problému?
puschpull puschpull být nad věcí, pohoda a klid ... - AV-Com (Homepage) 22.3.2012 11:04 - Oblíbené kluby (07:13) 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 (07:13) 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 (07:13) 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 (07:13) 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 (07:13) 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 (07:13) 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 (07:13) 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

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

(c) 2001-2011 Lopuch.cz   
Kontakt