Betinget Message Box

Something like this


If DMax("Dato", "tabel") < DMax("Dato", "tabel2") Then


    If MsgBox("Continue ?", vbYesNo) = vbYes Then
   
   
    End If

   

End If

You also need a criteria for the "afdeling" in each dMax

Example:

DMax("Dato", "tabel", "Afdeling = 1" )

Hej Terry,

Hvis jeg viser dig den kode som skal indeholde løsningen, vil du ikke indbygge din løsning i den?

Koden er som følger mellem linjerne:

-------------------------------------------

Function ImportExcelVagtplan()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE IndlaesIDB.* FROM IndlaesIDB"
   
DoCmd.TransferSpreadsheet transfertype:=acImport, _
    spreadsheettype:=acspreadsheettypeexcel17, _
    tablename:="IndlaesIDB", _
    filename:="" & Forms!HvdFrm!Tekst16, hasfieldnames:=True

DoCmd.RunSQL "Delete IndlaesIDB.Idnr FROM IndlaesIDB WHERE (((IndlaesIDB.Idnr) Is Null))"

DoCmd.RunSQL "UPDATE tblAfdelinger INNER JOIN IndlaesIDB ON tblAfdelinger.tblAfdnr = IndlaesIDB.Afdarb SET IndlaesIDB.VagtPause = [PraeInstilMaltid]"

DoCmd.RunSQL "INSERT INTO tblTimeregistrering ( LoennrTimereg, AfdArb, Dato, VagtStart, VagtSlut, TimeType, Moedt, Gaaet, Maltid, VagtPause ) " & _
"SELECT IndlaesIDB.Idnr, IndlaesIDB.Afdarb, tblDato.DatoID, IndlaesIDB.Vagtstart, IndlaesIDB.Vagtslut, IndlaesIDB.Timetype, IndlaesIDB.Moedt, IndlaesIDB.Gaaet, tblAfdelinger.PraeInstilMaltid, IndlaesIDB.VagtPause " & _
"FROM tblDato INNER JOIN (tblAfdelinger INNER JOIN (tblMedarbProfil INNER JOIN IndlaesIDB ON tblMedarbProfil.ID = IndlaesIDB.Idnr) ON tblAfdelinger.tblAfdnr = IndlaesIDB.Afdarb) ON tblDato.Dato = IndlaesIDB.Dato"

DoCmd.SetWarnings True

MsgBox ("Vagtplanen er indlæst")


End Function

-----------------------------

Bemærk:
Tabel_2 er IndlaesIDB
Tabel_1 er tblTimeregistrering
Dato er Dato
Afdeling er ArbAfd

Jeg regner med, at løsningen skal indbygges liuge før DoCmd.RunSQL "INSERT INTO tblTimeregistrering ...

Håber du har tid til at hjælpe.

Mvh.

ITumpen.

if you can send me your dB (or part of) it may be easier for me

ekspertenATsanthell.dk
AT = @

Det er super Terry! Tak:

Function ImportExcelVagtplan()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE IndlaesIDB.* FROM IndlaesIDB"
   
DoCmd.TransferSpreadsheet transfertype:=acImport, _
    spreadsheettype:=acspreadsheettypeexcel17, _
    tablename:="IndlaesIDB", _
    filename:="" & Forms!HvdFrm!Tekst16, hasfieldnames:=True

DoCmd.RunSQL "Delete IndlaesIDB.Idnr FROM IndlaesIDB WHERE (((IndlaesIDB.Idnr) Is Null))"

If DMax("Dato", "tblTimeregistrering", "AfdArb = 43") < DMax("Dato", "IndlaesIDB", "AfdArb = 43") Then

    If MsgBox("Continue ?", vbYesNo) = vbYes Then
   
        DoCmd.RunSQL "UPDATE tblAfdelinger INNER JOIN IndlaesIDB ON tblAfdelinger.tblAfdnr = IndlaesIDB.Afdarb SET IndlaesIDB.VagtPause = [PraeInstilMaltid]"

        DoCmd.RunSQL "INSERT INTO tblTimeregistrering ( LoennrTimereg, AfdArb, Dato, VagtStart, VagtSlut, TimeType, Moedt, Gaaet, Maltid, VagtPause ) " & _
        "SELECT IndlaesIDB.Idnr, IndlaesIDB.Afdarb, tblDato.DatoID, IndlaesIDB.Vagtstart, IndlaesIDB.Vagtslut, IndlaesIDB.Timetype, IndlaesIDB.Moedt, IndlaesIDB.Gaaet, tblAfdelinger.PraeInstilMaltid, IndlaesIDB.VagtPause " & _
        "FROM tblDato INNER JOIN (tblAfdelinger INNER JOIN (tblMedarbProfil INNER JOIN IndlaesIDB ON tblMedarbProfil.ID = IndlaesIDB.Idnr) ON tblAfdelinger.tblAfdnr = IndlaesIDB.Afdarb) ON tblDato.Dato = IndlaesIDB.Dato"

        DoCmd.SetWarnings True

        MsgBox ("Vagtplanen er indlæst")
   
    End If

End If



End Function

selv tak