[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 - pre 198 meseci}

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

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: pokretanje baze iz baze

^{10.01.2008. u 16:10 - pre 198 meseci}

Probaj sa funkcijom Shell().

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
89.146.169.*

Sajt: www.icentar.ba

+2 Profil

Re: pokretanje baze iz baze

^{10.01.2008. u 23:19 - pre 198 meseci}

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

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: pokretanje baze iz baze

^{11.01.2008. u 06:44 - pre 198 meseci}

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

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

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 - pre 198 meseci}

probavam

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
89.146.166.*

Sajt: www.icentar.ba

+2 Profil

Re: pokretanje baze iz baze

^{11.01.2008. u 10:02 - pre 197 meseci}

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

zxz

Odgovor na temu

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 - pre 197 meseci}

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

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
89.146.168.*

Sajt: www.icentar.ba

+2 Profil

Re: pokretanje baze iz baze

^{12.01.2008. u 19:40 - pre 197 meseci}

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

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: pokretanje baze iz baze

^{13.01.2008. u 06:22 - pre 197 meseci}

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

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
89.146.186.*

Sajt: www.icentar.ba

+2 Profil

Re: pokretanje baze iz baze

^{13.01.2008. u 10:41 - pre 197 meseci}

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

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: pokretanje baze iz baze

^{13.01.2008. u 12:28 - pre 197 meseci}

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.

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

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 - pre 197 meseci}

win xp sp2
office 2003 sad ne znam dali je sp2

Odgovor na temu

Trtko
Koprivnica

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

+8 Profil

Re: pokretanje baze iz baze

^{14.01.2008. u 07:59 - pre 197 meseci}

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)

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: pokretanje baze iz baze

^{14.01.2008. u 11:25 - pre 197 meseci}

@ 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.

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

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 - pre 197 meseci}

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

Odgovor na temu