[ rribaric @ 26.01.2005. 15:55 ] @
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 |