| miro35 | 18.05.2012 15:39 |
|---|---|
|
Predmet:Code u Access2010 Zašto ova ovo ne radi u 2010 a radi u starijim verzijama i šta su mjenjali u Vb7.Čini mi se da ima više komplikacija i pisanja više koda |
|
| Prilozi: Primjeri.rar (Velicina datoteke:63.54 KB) | |
| roko | 18.05.2012 17:38 |
|---|---|
|
Predmet:Re: Code u Access2010 1.Set dbsCurrent = CurrentDb 2.imas poziv na mdb pa stavi na accdb "MS Access;Database=" & CurrentProject.Path & "\DB1.accdb" |
|
| miro35 | 19.05.2012 10:07 |
|---|---|
|
Predmet:Re: Code u Access2010 Radi ali vrlo sporo zato sam ja mislio da ne radi.Ovo sa mdb sam krivi fajl zakačio kao primjer.Kod mene ima puno tabela pa sam mislio da ne radi.Ali u ovom primjeru jednu tabelu linkuje više od minute. |
|
| roko | 19.05.2012 10:13 |
|---|---|
|
Predmet:Re: Code u Access2010 to ti nešto nije uredu . meni momentalno odradi |
|
| miro35 | 19.05.2012 10:19 |
|---|---|
|
Predmet:Re: Code u Access2010 Kad izbrišem linkovanu tabelu onda linkuje više od minute.A kad već postoji tabela linkovana onda neće da ulinkuje i zapne na codu a ne javlja grešku.Kad uđem u modul refreshLink onda mi javlja da je zauzet i da ne mogu ništa mjenjati.Izglrda nešto sa ovim "If File Exist".Ali ne javlja gdje se nalazi greška.Da napomenem da ovaj modul refreshlink u 2003 radi normalno. |
|
| roko | 19.05.2012 10:25 |
|---|---|
|
Predmet:Re: Code u Access2010 evo opet sasm provao i prodje bez problema pa ? |
|
| roko | 19.05.2012 10:30 |
|---|---|
|
Predmet:Re: Code u Access2010 možda da staviš Dim strBE As String strBE = CurrentProject.Path & "\VBA_Rresh_Links_FunctionSAMPLE.accdb" Set dbsCurrent = DBEngine.Workspaces(0).OpenDatabase(strBE) |
|
| miro35 | 19.05.2012 10:38 |
|---|---|
|
Predmet:Re: Code u Access2010 Sad sa ovim ne blokira kod ali ne linkuje neznam referenca da neka ne fali |
|
| miro35 | 19.05.2012 10:47 |
|---|---|
|
Predmet:Re: Code u Access2010 kad obrišeš tabelu 1B onda linkuje ali moraš dugo čekat da se tabela pojavi.Kad promjeniš u kodu da linkuje iz druge baze a linkovana tabela postoji onda ne uradi ništa. I što je najčudnije kad funkcija linkuje tabelu onda moraš izać iz baze pa ponovno uć da bi vidio tabelu.Nešto kao refresh. |
|
| roko | 19.05.2012 10:47 |
|---|---|
|
Predmet:Re: Code u Access2010 Našo grešku moraš definirati u funkciji dao ifTableExists prijedlog : Dim rs As DAO.Recordset Dim Db As DAO.Database i kod recordset Set rs = Db.OpenRecordset("Select " & TableName & ".*, * FROM " & TableName & ";") |
|