[es] - pokretanje baze iz baze

Dr.Pucko
Jurica Lucic
Hrvatska

Član broj: 35345
Poruke: 30
*.adsl.net.t-com.hr.

Profil

^{10.01.2008. u 13:49}

zanima me kako pokrenuti mdb fajl iz mdb fajla

zanc imam aplikaciju
mdb koja je pocetna
pa onda druge aplikacije
koje se pokrecu iz te
znaci zanima me kako da na dugme iz jedne mdb otvori drugu normalno u drugom prozoru

^{10.01.2008. u 13:49}

Getsbi
Miroljub Zahorjanski
Vršac

Moderator
Član broj: 124608
Poruke: 1567
91.150.113.*

Profil

Re: pokretanje baze iz baze

^{10.01.2008. u 16:10}

Probaj sa funkcijom Shell().

I'll know what I want, when I see it.

^{10.01.2008. u 16:10}

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 406
89.146.169.*

Sajt: www.icentar.com

Profil

Re: pokretanje baze iz baze

^{10.01.2008. u 23:19}

Function OtvoriDrugu()
Dim objAccess As Object
Dim Putanja as String
Dim Dokument As String

Putanja="Putanja" & "\"
Dokument =Putanja & "Imedokumenta"
Set objAccess = GetObject(Dokument)

End Function

zxz

^{10.01.2008. u 23:19}

Getsbi
Miroljub Zahorjanski
Vršac

Moderator
Član broj: 124608
Poruke: 1567
91.150.106.*

Profil

Re: pokretanje baze iz baze

^{11.01.2008. u 06:44}

Izonic je u pravu. Shell pokreće samo izvršne datoteke tipa .exe. Za .mdb ipak treba da se setuje objekat.

I'll know what I want, when I see it.

^{11.01.2008. u 06:44}

Dr.Pucko
Jurica Lucic
Hrvatska

Član broj: 35345
Poruke: 30
*.adsl.net.t-com.hr.

Profil

Re: pokretanje baze iz baze

^{11.01.2008. u 09:22}

probavam

^{11.01.2008. u 09:22}

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 406
89.146.166.*

Sajt: www.icentar.com

Profil

Re: pokretanje baze iz baze

^{11.01.2008. u 10:02}

Getsbi dobro si ti njemu rekao mislim da moze i shelom samo je mozda ovo elegantnije rjesenje.

zxz

^{11.01.2008. u 10:02}

Dr.Pucko
Jurica Lucic
Hrvatska

Član broj: 35345
Poruke: 30
*.mobile.carnet.hr.

Profil

Re: pokretanje baze iz baze

^{12.01.2008. u 18:35}

Private Sub btnProizvodnja_Click()
Dim objAccess As Object
Dim Putanja As String
Dim Dokument As String
Putanja = "C:\Software\Proizvodnja" & "\"
Dokument = Putanja & "SoftProizvodnja.mdb"
Set objAccess = GetObject(Dokument)
End Sub

ne otvori
uredno se ucitaju ali ga ne otvori

^{12.01.2008. u 18:35}

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 406
89.146.168.*

Sajt: www.icentar.com

Profil

Re: pokretanje baze iz baze

^{12.01.2008. u 19:40}

Probaj sa ovom.

Public Function OtvoriFajl(Sfile As String) As Variant
'*******************************************
'Ime: OtvoriFajl (Function)
'Sadržaj: Otvaranje drugog fajla
'Ulazni parametri:Na vrhu modula postaviti sledece:

'.............................................................................................................................................................................
'Const MAX_FILENAME_LEN = 260
'Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
'.............................................................................................................................................................................
'Izlazni parametri:
'*******************************************

On Error GoTo Greska

Dim Izvrsni As String
Dim i As Integer, s2 As String
Dim a

If Dir(Sfile) = "" Or Sfile = "" Then
MsgBox "File not found!", vbCritical
Exit Function
End If

s2 = String(MAX_FILENAME_LEN, 32)

i = FindExecutable(Sfile, vbNullString, s2)
If i > 32 Then
Izvrsni = Left$(s2, InStr(s2, Chr$(0)) - 1)
Else
MsgBox "Nije povezano"
End If
Shell Izvrsni & " " & Sfile, vbNormalFocus

Izlaz:
Exit Function
Greska:
GreskaB (Err.Number)
Resume Izlaz
End Function

zxz

^{12.01.2008. u 19:40}

Getsbi
Miroljub Zahorjanski
Vršac

Moderator
Član broj: 124608
Poruke: 1567
91.150.105.*

Profil

Re: pokretanje baze iz baze

^{13.01.2008. u 06:22}

Kod mene Izonic-ova prvobitna funkcija radi. Otvara .mdb u minimize WindowStil-u.

I'll know what I want, when I see it.

^{13.01.2008. u 06:22}

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 406
89.146.186.*

Sajt: www.icentar.com

Profil

Re: pokretanje baze iz baze

^{13.01.2008. u 10:41}

Moja pretpostavka zasto negdje ne radi je:
Zato sto je access vec podignut a acces ne moze podici 2 aplikacije e sad dali postoji opcija da se ponovo podigne access te aplikacija to bih ja vas pitao ako neko zna.
Ako nisam uspio dobro objasniti pokusat cu na wordu.
Word napr. ima opciju da se vise dokumenata podigne u jednom prozoru ili pak svaki dokument u drugom.

zxz

^{13.01.2008. u 10:41}

Getsbi
Miroljub Zahorjanski
Vršac

Moderator
Član broj: 124608
Poruke: 1567
212.200.204.*

Profil

Re: pokretanje baze iz baze

^{13.01.2008. u 12:28}

OS: MS Winows XP Profesinal v.2002 sp2
DBMS: MS Access 2003 (Office 2003 sp2)

Ovo su moje reference. Mogu da otvorim Access onoliko puta koliko imam memorije. Možda starije verzije ne mogu. Probaću popodne u kacelariji tamo imam Access 2000 pod Windows '98 SE. Čini mi se da ranije nije moglo.

I'll know what I want, when I see it.

^{13.01.2008. u 12:28}

Dr.Pucko
Jurica Lucic
Hrvatska

Član broj: 35345
Poruke: 30
*.adsl.net.t-com.hr.

Profil

Re: pokretanje baze iz baze

^{13.01.2008. u 12:39}

win xp sp2
office 2003 sad ne znam dali je sp2

^{13.01.2008. u 12:39}

Trtko
Koprivnica

Član broj: 69494
Poruke: 503
*.bilokalnik.hr.

Profil

Re: pokretanje baze iz baze

^{14.01.2008. u 07:59}

Ako se koristi shell onda ovako

program = "C:\Program Files\Microsoft Office\Office10\msaccess"
putanja = "c:\damir\OPTIkvaliteteTRT.mdb"
start = program + " " + putanja
izvrsi = Shell(start)

^{14.01.2008. u 07:59}

Getsbi
Miroljub Zahorjanski
Vršac

Moderator
Član broj: 124608
Poruke: 1567
79.101.172.*

Profil

Re: pokretanje baze iz baze

^{14.01.2008. u 11:25}

@ Trtko
Hvala Trtko. Ovo nisam znao. Pokretao sam sa Shell() samo .exe. Isprobaću.
@ Dr.Pucko
Trebalo bi da pokreće više prozora bez obzira na to koji je Office 2003. I Office 2002 isto to može. Starije verzije više nemam.

I'll know what I want, when I see it.

^{14.01.2008. u 11:25}

Dr.Pucko
Jurica Lucic
Hrvatska

Član broj: 35345
Poruke: 30
*.mobile.CARNet.hr.

Profil

Re: pokretanje baze iz baze

^{14.01.2008. u 19:06}

Private Sub btnProizvodnja_Click()
Dim putanja, program, start, izvrsi

program = "C:\Program Files\Microsoft Office\OFFICE11\msaccess"
putanja = "C:\Software\Proizvodnja\SoftProizvodnja.mdb"
start = program + " " + putanja
izvrsi = Shell(start)

End Sub

Ovo radi
Hvala svima na savjetima problem riješen

^{14.01.2008. u 19:06}