Navigation

   Hej
Jeg er i gang med at løbe Microsoft Access 2019 Programming by example igennem men er løbet ind i et problem jeg ikke kan gennemskue.
I kapitel 8 er jeg færdig med at indtaste eksemplet der skal rette i lønninger for medarbejdere. Men jeg bliver standset af en fejl:

Programmet stopper i den nedenfor viste kode:

Sub AddEmployee(empLast As String, empFirst As String, _
empSalary As Currency)
    With emp
        .ID = SetEmpID                          ( det er her fejlet er relateret til)
        .Lastname = empLast
        .FirstName = empFirst
        .salary = CCur(empSalary)
        If .salary = 0 Then Exit Sub
        CEmployee.Add emp
    End With

End Sub

Der er tidligere i eksemplet blevet gjort opmærksom på at ID er oprettet som "Read only", men jeg går ud fra at jeg misser et eller andet.

Hvis der er nogen der kender bogen og som kan gennemskue hvor jeg fejler, så er al hjælp velkommen da jeg er kørt fast

Mvh.

Kimidk1

Navigation

Microsoft Access 2019 Programming by Example