Imam frku...uvije glupost kod mene.Trudio sam se sam riješit problem izvrtio sam sve živo ali neide i zato ću problem podijelit s svima na ovom forumu.
Nakon što mi kod napravi requery nakon brisanja pojedinog zapisa.Svi dotad unešeni podaci se obrišu s forme iako fizički postoje u tablici.
Tablica tbl_blagajns Ima parametre br_blagajne,red_broj,Datum,Opis,iznos,u_korist.Primarni ključ nema jer može biti više ulaza za pojedinu blagajnu.Što predlažete kako da organiziram tu jednostavnu bazu!
Na jednoj formi nalaze se command button za unos,BRISANJE,pregled I stampanje.
Cod za brisanje je
Public Function fbrisanje()
Dim strSql, t, z As String
On Error GoTo Err_fbrisanje
'Dozvoljava brisanje ,jer je u prportis forme to na false
Me.AllowDeletions = True
t = Me!Red_broj
z = Me!broj_blagajne
'Pomoću ovo sql izkaza brišem točno pozicionirani zapis brpj_blagajne i red_broj!
strSql = "DELETE * "
strSql = strSql & " FROM tbl_blagajna "
strSql = strSql & " WHERE (red_broj= " & t & ") AND (broj_blagajne=" & z & ");"
Call CurrentDb.Execute(strSql, dbFailOnError)
'Nakon ovog requerya obriše s forme sve podatke iako u tablici postoje
'kako da mi nakon toga ostanu ostali podaci
'Dali neko unboun polje povežem s tekućim brojem blagajne pa da se na njega vežu podaci????HELP!
Forms!frm_blagajna_unos.Requery
Me.AllowDeletions = False
exit_fbrisanje:
Exit Function
Err_fbrisanje:
MsgBox Err.Description
Resume exit_fbrisanje
End Function
Nakon što mi kod napravi requery nakon brisanja pojedinog zapisa.Svi dotad unešeni podaci se obrišu s forme iako fizički postoje u tablici.
Tablica tbl_blagajns Ima parametre br_blagajne,red_broj,Datum,Opis,iznos,u_korist.Primarni ključ nema jer može biti više ulaza za pojedinu blagajnu.Što predlažete kako da organiziram tu jednostavnu bazu!
Na jednoj formi nalaze se command button za unos,BRISANJE,pregled I stampanje.
Cod za brisanje je
Public Function fbrisanje()
Dim strSql, t, z As String
On Error GoTo Err_fbrisanje
'Dozvoljava brisanje ,jer je u prportis forme to na false
Me.AllowDeletions = True
t = Me!Red_broj
z = Me!broj_blagajne
'Pomoću ovo sql izkaza brišem točno pozicionirani zapis brpj_blagajne i red_broj!
strSql = "DELETE * "
strSql = strSql & " FROM tbl_blagajna "
strSql = strSql & " WHERE (red_broj= " & t & ") AND (broj_blagajne=" & z & ");"
Call CurrentDb.Execute(strSql, dbFailOnError)
'Nakon ovog requerya obriše s forme sve podatke iako u tablici postoje
'kako da mi nakon toga ostanu ostali podaci
'Dali neko unboun polje povežem s tekućim brojem blagajne pa da se na njega vežu podaci????HELP!
Forms!frm_blagajna_unos.Requery
Me.AllowDeletions = False
exit_fbrisanje:
Exit Function
Err_fbrisanje:
MsgBox Err.Description
Resume exit_fbrisanje
End Function
Potpis
romano