ændring af dlookup opslag
jeg har lavet sådan en frækkert med en komboboks, der kommer med en meddelelse hvis kunden ikke har noget ordre der dækker perioden. Den går ind og læser i min tabel "Ordre" og ser på to datoer... Det der skal ændres er at den skal ind og læse på stadig de to samme datoer, men slutdatoen er flyttet til en anden tabel, "Kunder". Dvs. startdatoen ligger i "Ordre", og slutdato er i "kunder"...Private Sub Combo19_AfterUpdate()
Dim varX As Variant
Me.opkaldsdato = Date
Me.Opkaldstid = Time
varX = DLookup("[Ordrenr]", "Ordre", "[Kundenr] = " & kundenr & " and [Startdato]<=now() and [Slutdato] >=now()")
If IsNull(varX) Then
MsgBox "Den valgte kunde har ingen ordre der dækker nuværende periode!", vbInformation, "Info"
Else
Me.ordrenr = varX
Me.Dage = DLookup("[Dage]", "Ordre", "[Ordrenr] = " & varX)
End If
End Sub
