Vil fange datagrid error ...

Det lyder som om du mangler at få kaldt datagrid_error når datagrid\'en mister focus, kan det tænkes, at den også skal registreres som \'onblur\' event el. lign?

Jeg har forsøgt at lave en lostfocus ... men når jeg kalder Datagrid1_Error fra en anden procedurer vil den have parametre, bl.a. fejlnummeret, og jeg ved ikke hvordan jeg får fat i det fejlnummmer. Jeg vedlægger lige min datagrid_error procedurer:

Private Sub Datagrid1_Error(ByVal dataerror As Integer, response As Integer)
    Dim besked As Integer
    response = 0
   
If dataerror = 6153 Then
    MsgBox \"Dette felt må ikke være blankt. Handlingen annulleres\", , \"Manglende værdi\"
    Screen.MousePointer = vbHourglass
    Adodc1.Recordset.CancelUpdate
    Screen.MousePointer = vbArrow
End If

If dataerror = 7007 Then
    MsgBox \"Du har forsøgt at indtaste en forkert værdi i dette felt. Prøv igen\", , \"Forkert værdi\"
    Screen.MousePointer = vbHourglass
    Adodc1.Recordset.CancelUpdate
    Screen.MousePointer = vbArrow
End If
   
End Sub

Ved nærlæsning af DataGrid Error Event beskrivelsen får man den tanke,
at eventet kun kommer, hvis en data access resulterer i en fejl. Antagelig
medfører tab af focus ikke i sig selv at den aktuelle record bliver skrevet
tilbage, men hvad med at lade LostFocus kalde Update på det underliggende
recordset og dermed gennemtvinge en databaseskrivning?

Jeg har også prøvet at kalde update i lostfocus-proceduren. Men når jeg gør det, viser den ikke de fejlmeddelelser jeg har angivet i datagrid1_error. Istedet vises én eller anden standard fejlmeddelelse med et langt fejlnummer... og det vil jeg jo naturligvis gerne undgå...

Du burde selv kunne fange fejlen på Update ved fx at skrive

  On Error Resume Next
  Adodc1.Recordset.Update
  If Err.number <> 0 Then
      \' Generer fejludskrift
      Err.Clear
  End If

Det var jo lige det jeg skulle bruge ... jeg takker :-)