Centar za edukaciju-BiH

Predmet:Unable to create an mde database

---

Napokon sam napravio svoju jednu aplikaciju i da je konvertujem u MDE dobijam slijedecu poruku
Googlao sam malo i nasao na jednom linku da je mogce do koda negdje, da precicom Ctrl+G otvorim wba editor...te dA provjerim kodove...Provjeravajuci kodove to jest brisuci pa pokusavajuci onda uraditi Mde sam dosao do ovog koda za skrivanje accesovog prozora ono sto sam postavio pitanje vec na forumu.

Kad izbrisem ovaj kod bez problema kovertujem u MDE... Sta da radim ? I da napomenem koristim access 2000 ako to nesto znaci.

---

Predmet:Re: Unable to create an mde database

---

Kod nemoj brisati.
Imas opciju uVB prozoru
Debug-->Copile
Tu ce ti javiti ako nesto u kodu nije dobro.

---

Predmet:Re: Unable to create an mde database

---

Provjeravao sam ponovo nije do koda, do forme mi je ove nove sto sam je uredio, koji mogu biti problemi s njom?

Provjerio sam kako si mi napisao na ovom kodu mi pokazalo da nije ok
Private Sub Command26_Click()
On Error GoTo Err_Command26_Click

Dim stDocName As String

stDocName = "Q_Ispis"
DoCmd.OpenReport stDocName, acNormal

Exit_Command26_Click:
Exit Sub

Err_Command26_Click:
MsgBox Err.Description
Resume Exit_Command26_Click

End Sub
Dim mstPrevControl As String ovo na mi poplavito bude DIM

---

Predmet:Re: Unable to create an mde database

---

Hehe pa ovo nemas gore u onoj proceduri.
Ptovjeri jos imas li uopste ovaj taster Command26.
Morao bi imati comandni taster koji ce zove Command26.

ova var.
Dim mstPrevControl As String

neznam gdje ti se nalazi.
Da nije dupla.

---

Predmet:Re: Unable to create an mde database

---

Moguce da bas jeste dupla nista evo poceo sam formu ovu nanovo sad cu pripaziti na dupliranje...

---

Predmet:Re: Unable to create an mde database

---

Jos jednom samo mogu se zahvaliti mnogo ovom portalu sto postoji... Rijesen je moj problem zahvaljujuci korisnom po ko zna koji put od ZxZ. Preporucujem kod pravljenja koda ili ubacivanja vec napravljenih primjera obavezno koristiti opciju uVB prozoru
Debug-->Copile

To me je i dovelo do rjesenja nasao sam dvije greske u kod kod sebe ispravisi to rijesio se problem.

---

Predmet:Re: Unable to create an mde database

---

Nakon provjere koda izbaci mi dvije greske i to kod:
Private Sub Command11_Click()
DoCmd.OpenReport _
Reportname:="pravi Izvjestaj", _
View:=acViewPreview, _
OpenArgs:="Monat/Jahr: " & Me.Mjesec & ", " & Me.godina
End Sub

Ovo open Args mi pozuti i drugi kod takodje vezano za openArgs pozuti

Private Sub Report_Open(Cancel As Integer)
Me.Mjesec.Caption = Me.OpenArgs
DoCmd.Maximize
End Sub

Gdje je problem

---

Predmet:Re: Unable to create an mde database

---

OpenArgs- ne postoji kod open report.
Ima ga kod open form.
DoCmd.OpenForm formname[, view][, filtername][, wherecondition][, datamode][, windowmode][, openargs]
DoCmd.OpenReport reportname[, view][, filtername][, wherecondition]

---

Predmet:Re: Unable to create an mde database

---

U nasem je kodu onom a sad me ovo buni
Private Sub Command11_Click()
DoCmd.OpenReport _
Reportname:="pravi Izvjestaj", _
View:=acViewPreview, _
?:="Monat/Jahr: " & Me.Mjesec & ", " & Me.godina
End Sub

---

Predmet:Re: Unable to create an mde database

---

?:="Monat/Jahr: " & Me.Mjesec & ", " & Me.godina
znaci umjesto ?: moze biti
filtername: ili
wherecondition

Vise bi ti napisao kad bi znao sta zelis prikazati u izvjestaju.

---