Når jeg opdatere en formular til tabel i My sql!
Jeg har en access database som er linket til en my sql database -når jeg i en formular vil opdatere en post med følgende kode:Private Sub Kommandoknap166_Click()
On Error GoTo Err_Kommandoknap166_Click
Dim validater As Boolean
validater = True
If IsNull(Me.MedarbejderId) Then
MsgBox "Medarbejder feltet er tomt"
validater = False
End If
If Not IsNull(Me.MedarbejderId) Then
If DCount("*", "medarbejder", "[MedarbejderId]= " & Me.MedarbejderId & "") = 0 Then
MsgBox "Medarbejder eksisterer ikke"
validater = False
End If
End If
If validater = True Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
MsgBox "Data er opdateret"
End If
Exit_Kommandoknap166_Click:
Exit Sub
Err_Kommandoknap166_Click:
MsgBox Err.Description
Resume Exit_Kommandoknap166_Click
End Sub
Skriver den slettet i alle felterne - dataen er godt nok overført til My sql - men det er ikke hensigtsmæssig for brugeren at det står på denne måde. Kan jeg ændre koden såldes at de bare går til næste post efter at den har udført opdaterring??
