Hej! Visa frågan för användaren som en listbox eller subformulär i datasheet läge. Tack Andreas för hjälpen! :-)Undvika att spara tomma Excelark
Så länge hyresgästen har inregistrerade omsättningar för tidsintervallet StartHyresgäst - StoppHyresgäst så fungerar det som det ska.
Problemet uppstår då det inte finns någon inregistrerad omsättning, då blir det att det sparas ett tomt Excelark och det känns ju onödigt. Dessutom blir inte användaren uppmärksammad om det. Inte förrän den går in och tittar.
Går det att undersöka om "ExcelHyresgästnr" kommer att generera några omsättningsrader i Excelarket och endast köra DoCmd.OutputTo... om så är fallet?
Att den annars visar en meddelanderuta om att det inte finns några omsättningar.
Har försökt leta på nätet, men hittade ingenting.
Här nedan finns aktuell kod
Mycket tacksam för hjälp!
Carina
If (IsNull(Me.ViaHyresgäst)) Or (Me.StartHyresgäst.Value = "") Or (Me.StoppHyresgäst.Value = "") Then
MsgBox ("Välj hyresgäst, start- och stoppdatum för skapandet av Excelbladet")
Else
If (Me.StartHyresgäst > Me.StoppHyresgäst) Then
MsgBox ("Startdatum måste vara tidigare än stoppdatum")
Else
DoCmd.OutputTo acOutputQuery, "ExcelHyresgästnr", "ExcelWorkbook(*.xlsx)", "", False, "", 0, acExportQualityPrint
End If
End IfSv: Undvika att spara tomma Excelark
På så sätt ser det resultatet innan de exporterar.Sv:Undvika att spara tomma Excelark
Jag ska testa med det.
/Carina