laponac84 31.12.2010 11:16
Predmet:delete i otvaranje formi

Tehnicko pitanjce Smiling

Dole prikazani kod, je kod za brisanje prikazanog reda u formi koja prikazuje samo odabrani red, ni jedan drgi, nakon klika na dugme obrise se red, i otvara polazna forma programi.

Ali

Nakon svakog brisanja reda, pali se prozorcic koji pita da li sam siguran da zelim da brisem navedeni red.

Kako mogu da ga zaobidjm?
i podpitanje:

Kako mogu da sprecim (ne dozvolim) brisanje reda, koji za sebe ima vezane podatke iz podredjene tabele? da mi se ne dogodi da obrisem Program, sa svim podprogramima koje sadrzi?

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command16_Click()
  2. On Error GoTo Err_Command16_Click
  3.  
  4.  
  5.     DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
  6.     DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
  7.    
  8.     DoCmd.Close acForm, "frm_Programi_del", acSaveYes
  9.    
  10. Exit_Command16_Click:
  11.     Exit Sub
  12.  
  13. Err_Command16_Click:
  14.     MsgBox Err.Description
  15.     Resume Exit_Command16_Click
  16.    
  17. End Sub

zxz 31.12.2010 13:52
Predmet:Re: delete i otvaranje formi

Bolje ti je pozvati na on close.

PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function BrisiPrazne(ImeTabeleB As String, ImeKLjucaB As String, ImeTabeleV As String, ImeKljucaV As String) As Boolean
  2. '*****************************************************
  3. 'Ime:      BrisiPrazne   (Function)
  4. 'Sadržaj:
  5. 'Autor:     ZXZ
  6. 'Datum:      12 31, 2010, 12:00:32
  7. 'Adresa: Tuzla BiH
  8. 'Email:     zxz@icentar.ba
  9. 'Ulazni parametri:Imetabeleb-Tabela
  10. 'iz koje se brisu podaci koji nemaju svojih redaka u tabeli
  11. 'ImetabelV,ImekljucaV-Ime poljakoje je Prim. kljuc
  12. 'ImetabeleB-Tabela u kojoj se provjerava dali ima
  13. 'vezanih podataka
  14. 'ImekljucaV-ekundarni kljuc iz tabele ImetabelB
  15. 'Izlazni parametri:BrisePodatke u tabeli Imetabelb
  16. 'Koji nemaju svojih edaka u tabeli Imetabeleb
  17. 'U referencama ukljucitu dao a iskljuciti ado
  18. '******************************************************
  19. Dim Db As Database
  20. Dim Rs As Recordset
  21. Dim SQL As String
  22. Dim Prazni As Integer
  23. Dim R
  24.  
  25. On Error GoTo Greska
  26.  
  27. SQL = "SELECT * FROM " & ImeTabeleB _
  28. & " WHERE " & ImeKLjucaB & " not in (SELECT " & ImeKljucaV & " FROM " & ImeTabeleV & ")"
  29. Set Db = CurrentDb
  30. Set Rs = Db.OpenRecordset(SQL)
  31. Prazni = Rs.RecordCount
  32.     If Prazni > 0 Then
  33.     Beep
  34.     R = MsgBox("Imate " & Prazni & " bez pariteta", vbQuestion _
  35.     + vbYesNo + vbDefaultButton2, "Prazni")
  36.    
  37.     If R = vbYes Then
  38.         Do While Not Rs.EOF
  39.         Rs.Delete
  40.         Rs.MoveNext
  41.         Loop
  42.     BrisiPrazne = True
  43.     Else
  44.     BrisiPrazne = False
  45.     End If
  46. End If
  47. Izlaz:
  48. Rs.Close
  49. Set Db = Nothing
  50. Exit Function
  51. Greska:
  52. 'Presretanje Gresaka:
  53. '
  54. Resume Izlaz
  55. Kraj:
  56. End Function