[Access 2007]

Tukaj je še koda gumba:

Private Sub Command23_Click()
On Error GoTo Err_Command23_Click

Dim stDocName As String
Dim db As DAO.Database
Dim rec As DAO.Recordset
Dim strSQL As String
Dim strEmailAddresses As String

Set db = CurrentDb()

strSQL = "SELECT MailZap FROM ProsnjeStefan WHERE Mailzap = '" & ProsnjeStefan & "'"

Set rec = db.OpenRecordset(strSQL, dbOpenDynaset)

'("SELECT InStock FROM tblInventory WHERE tblInventory.BarCode= " & [Forms]![frmOrderItems]![txtBarCode1] & ";")
'("SELECT InStock FROM tblInventory WHERE (((tblInventory.BarCode)=[Forms]![frmOrderItems]![txtBarCode1]));")


'Do Until rec.EOF
'strEmailAddresses = strEmailAddresses & ";" & rec![Email Address]
'rec.MoveNext
'Loop


DoCmd.RunCommand acCmdRefresh
stDocName = ChrW(79) & ChrW(100) & ChrW(103) & ChrW(111) & ChrW(118) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(110) & ChrW(97) & ChrW(32) & ChrW(112) & ChrW(114) & ChrW(111) & ChrW(353) & ChrW(110) & ChrW(106) & ChrW(111) & ChrW(32) & ChrW(352) & ChrW(116) & ChrW(101) & ChrW(102) & ChrW(97) & ChrW(110)

DoCmd.SendObject acReport, stDocName, acFormatPDF, strEmailAddresses



Exit_Command23_Click:
Exit Sub

Err_Command23_Click:
MsgBox Err.Description
Resume Exit_Command23_Click

End Sub

Ne ve noben pomagati ali vprašanje ni dovolj jasno zastavljeno?

Ne ve noben pomagati ali vprašanje ni dovolj jasno zastavljeno?

Ne ve noben pomagati ali vprašanje ni dovolj jasno zastavljeno?

Hmmm... Kaj ne gre tukaj za SubForm, kjer mora Seznam dijakov biti povezan z Seznamom Razredov preko Dijak.IDRazred = Razred.IDRazred.

Sledi še en SubForm Ocena, ki je z nadrejenim Dijak povezan preko Ocena.IDDijak = Dijak.IDDijak.

Ključi so postavljeni vsepovsod, so primarni in unikatni. Nevem kaj naj nardim :S

http://www.filedropper.com/e-redovalnica

hvala že vnaprej, če se bo dalo nardit

v tabeli Ocena imam ta problem

No lepo da si pogruntal, jaz sem ti pa ravno odgovor hotel napisat :)

Upam da veš kje je bila fora, v tistem selectu s kerim si najprej mislil se sklicuješ na splošne vrednosti(vse) iz tabele, moreš mu pa določit samo tisto vrednost, ki je v polju, kar si tudi naredil.

Select je pač select :), sicer pri accesu lahko veliko stvari delaš znotraj tega ampak vse pa pač ne, polja iz forme mu ne moreš notri dajat. Tako da narediš "select neki where a = " & vrednostIzPolja in če je vednostIzPolja 1, bo on to razumel kot select neki where a = 1. Ker drugače bi prebral vse skupaj kot string in bi namesto števila vzel kot vrednost ime polja

To kaj ti kašna stvar naredi lahko tudi tako probaš, v tisto okno debugger(ctrl+g) vtipkaš:
?"SELECT IDDijak, ime, priimek FROM Dijak WHERE Dijak.IDRazred= " & Me.cboIDRazred
In pritisneš enter, pa ti bo izpisalo kako to vidi access, ful priročna zadeva tud če kako spremeljivko iščeš :)

Pa če boš hotel kdaj kake querije sprobat, pač neseš kodo ki ti jo debuger dobi v nek nov query pa daš run, ker vedno access ne javi napake, če je na nivoju sqla, pa potem tam vidiš kaj bi rad, če pa dela pa vidiš kašen rezultat ti da.

Pa veliko sreče pri projektu :)

to sem nekak rešil recimo..

eno vprašanje še mam, ki je malo lažje.

imam tabelo ocene.. kako bi naredil poročilo, ki bi mi naprimer prikazalo ocene le za dijaka, ki ga izberem

ali pa recimo samo za 1 predmet ali kaj takega..

vglavnem Kako filtrirati poročilo?

sem rešil kot je mislim da najboljše.. sem najprej mislil narediti tako, da te pred odprtjem poročila povpraša po nekem parametru (naprimer imenu al nekaj) in ti potem access kreira ustrezno poročilo. ampak sem nekako ugotovil, da mi bolj ustreza, da poročilo v začetku pokaže vse zapise, nato pa uporabnik enostavno uporabi besedilne filtre, ki so že vgrajeni v sam access, saj so le ti narejeni prav z tem namenom.