Zaobilaženje poruke greškeNa formi imam dugme kojim pokrečem append query koji popunjava tablicu podacima. Tablica ima dvostruki ključ kako bi se spriječio unos duplih podataka.
Ako se to dogodi Access mi izbaci sistemsku poruku:
MS Access can't append all the records in the append query.
Ms Access set 0 field(s) to Null due to a type conversion failture, and it didn't add 20 record(s) to the table....
Našao sa već prije na ovom forumu nešto o tome i po tim uputama , želeći zaobići poruku, napisao ispod dugmeta donji kod, međutim to ne pomaže. Uvjek mi se prvo pojavi sistemska poruka pa tek iza nje ova moja.
Code:
Private Sub PopuniTablicu_Click()
On Error GoTo Err_PopuniTablicu_Click
Dim stDocName As String
stDocName = "qryPopunaTablice"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Forms![TablicaForm]![TablicaSubform].Requery
Exit_PopuniTablicu_Click:
Exit Sub
Err_PopuniTablicu_Click:
Select Case Err.Number
Case 3059
MsgBox " Greška 3059, tablica je već popunjena"
Case Else
MsgBox "Greska broj " & Err.Number & vbCrLf & Err.Description & vbCrLf & " u funkciji Command34_Click"
End Select
Resume Exit_PopuniTablicu_Click
End Sub
Private Sub PopuniTablicu_Click()
On Error GoTo Err_PopuniTablicu_Click
Dim stDocName As String
stDocName = "qryPopunaTablice"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Forms![TablicaForm]![TablicaSubform].Requery
Exit_PopuniTablicu_Click:
Exit Sub
Err_PopuniTablicu_Click:
Select Case Err.Number
Case 3059
MsgBox " Greška 3059, tablica je već popunjena"
Case Else
MsgBox "Greska broj " & Err.Number & vbCrLf & Err.Description & vbCrLf & " u funkciji Command34_Click"
End Select
Resume Exit_PopuniTablicu_Click
End Sub
