Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: W jaki sposób można zapisac raport accessa w wordzie za pomocą VB?
PRYMI




Typ: neutral
Postów: 5
Zarejestrowany: Aug 2004
W jaki sposób można zapisac raport accessa w wordzie za pomocą VB?

Witam,
Dopiero zaczynam uczyć się VB oraz Access-a i napotkałem na problem.
W jaki sposób można z poziomu formularza w Access-ie po kliknięcu przycisku zapisać raport z rozszerzeniem .rtf  lub .doc, w taki sposób aby nazwa pliku składała się z kilku liter i zawartości jednego z pól tegoż raportu. Następnie otworzyć worda i wyświetlić ten plik. Tak żeby wszystko wykonał skrypt VB bez ingerencji użytkownika?
Z góry dziękuje za pomoc
Pozdrawiam
PRYMI

21-08-2004 01:27
Pokaż profil PRYMI  Wyślij email do PRYMI   
Tomino




Typ: neutral
Postów: 12
Zarejestrowany: Dec 2003

Czesc
Robisz to np. tak:
masz formularz, na nim przycisk. We właściwościach przycisku wybierasz zdarzenie i w linii "przy kliknięciu" wstawiasz kursor, z prawej strony pokażą sie: strzałka oraz trzy kropki. Kliknij te kropki i wybierz Konstruktor kodu.
Otworzy się okno VBA, w procedurze click wpisz kod:

DoCmd.OutputTo acOutputReport, "raport1", acFormatRTF, "C:\raport.rtf", True

Legenda:
raport1 - nazwa raportu który chcesz wysłać;
true - opcja startu, czy plik ma zostac otwarty czy nie.
Jutro ciąg dalszy pomocy czyli nazwa raportu (zrobie jakiś przykład )
Powodzenia

23-08-2004 21:04
Pokaż profil Tomino  Wyślij email do Tomino   
PRYMI




Typ: neutral
Postów: 5
Zarejestrowany: Aug 2004

Dziękuje za szybką odpowiedz zaraz potrenuje
Pozdrawiam
PRYMI

24-08-2004 00:16
Pokaż profil PRYMI  Wyślij email do PRYMI   
PRYMI




Typ: neutral
Postów: 5
Zarejestrowany: Aug 2004

Witam, wszystko działa, mam jeszcze jedno pytanie w jaki sposób zapić ten plik (raport) pod nazwą składającą się z zawartości jednego pól tego raportu i aktualną datą, tak aby nazwy plików się nie powtarzały. I jeszcze małe pytanko w jaki sposób utworzyć katalog na dysku za pomocą VB?
Z góry dziękuje
Pozdrawiam
PRYMI

24-08-2004 10:13
Pokaż profil PRYMI  Wyślij email do PRYMI   
Tomino




Typ: neutral
Postów: 12
Zarejestrowany: Dec 2003

Prosty przyklad utworzenia folderu na dysku c
o nazwie folder


Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type

Private Sub Command1_Click()
    Dim Security As SECURITY_ATTRIBUTES
   
    Ret& = CreateDirectory("C:\Folder", Security)
    'Jesli ret& zwroci zero, wyskoczy blad
    If Ret& = 0 Then MsgBox "Coś nie tak. Pewnie już jest folder o tej nazwie!", vbCritical + vbOKOnly
End Sub

25-08-2004 10:58
Pokaż profil Tomino  Wyślij email do Tomino   
PRYMI




Typ: neutral
Postów: 5
Zarejestrowany: Aug 2004

Bardzo dziękuje, mogę prosić jeszcze o krótkie objaśnienie kodu?
I cały czas mam problem z tą nazwą raportu, jak to rozwiązać?
Jeszcze raz bardzo dziękuje za pomoc!
Pozdrawiam
PRYMI

25-08-2004 11:24
Pokaż profil PRYMI  Wyślij email do PRYMI   
Tomino




Typ: neutral
Postów: 12
Zarejestrowany: Dec 2003

czesc.
jesli chodzi o kod - dzieli sie on na dwie czesci:
pierwsza - deklaracja zmiennych, czyli to:
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type

oraz procedury zdarzenia:
Dim Security As SECURITY_ATTRIBUTES
   
    Ret& = CreateDirectory("C:\Folder", Security)
    'Jesli ret& zwroci zero, wyskoczy blad
    If Ret& = 0 Then MsgBox "Coś nie tak. Pewnie już jest folder o tej nazwie!", vbCritical + vbOKOnly


Pierwsza czesc umieszczasz na gorze modulu, druga w jakims zdarzeniu, np.: kliknieciu, ladowaniu formularza itp.
Dwie linie warte wyjasnien:
1) Ret& = CreateDirectory("C:\Folder", Security)
sciezka gdzie ma powstac folder
2)  If Ret& = 0 Then MsgBox "Coś nie tak. Pewnie już jest folder o tej nazwie!", vbCritical + vbOKOnly
"Jezeli zmienna Ret& zwroci wartosc 0, to wyswietl komunikat"


Nazwa raportu.
Niebardzo wiem w jaki sposob bedzie umieszczona w raporcie, daj mi swoj adres mailowy - wysle ci przyklad.
W razie problemow pisz na maila.
Jak mozesz to przyslij swoja baze, zobaczymy jak to chcesz zrobic i cos sie wymysli.
Pozdrawiam

25-08-2004 18:21
Pokaż profil Tomino  Wyślij email do Tomino   
PRYMI




Typ: neutral
Postów: 5
Zarejestrowany: Aug 2004

Dziękuje za wyjaśnienia,
moj mail to:
jutro podeśle Ci przykładoą bazke i wyjąsnioe dokładnie o co mi chodzi.
Jeszcze raz bardzo dziękuje.
Pozdrawiam
PRYMI

25-08-2004 20:51
Pokaż profil PRYMI  Wyślij email do PRYMI   
Wszystkich odpowiedzi: 7 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1