Hallo Forum leden,
Met jullie hulp heb ik een probleem dmv de wisselknop functie weten op te lossen.
Nu probeer ik er een printopdracht voor een kassabon er aan te koppelen , wat op zich lukt maar bij het aanmaken van een nieuw record wordt er meteen een opdracht gegeven om te printen.
De wissel knop staat in het zelfde formulier waar ook een nieuw verkoop nummer wordt aangemaakt.
Ik kan alleen maar bij Focus of Focus verloren de onderstaande gebeurtenis invullen .
Kas knop
Private Sub WisselknopKas_GotFocus()
On Error GoTo Err_WisselknopKas_GotFocus
Dim stDocName As String
DoCmd.RefreshRecord
DoCmd.OpenReport "rp kassabon_klant_EPSON_formaat", acPrintPreview, , "Verkoop_ID = " & Me.verkoop_id
Exit_WisselknopKas_GotFocus:
Exit Sub
Err_WisselknopKas_GotFocus:
MsgBox Err.Description
Resume Exit_WisselknopKas_GotFocus
End Sub
en voor de PIN knop
Private Sub WisselknopPin_GotFocus()
On Error GoTo Err_WisselknopPin_GotFocus
Dim stDocName As String
DoCmd.RefreshRecord
DoCmd.OpenReport "rp kassabon_klant_EPSON_formaat", acPrintPreview, , "Verkoop_ID = " & Me.verkoop_id
Exit_WisselknopPin_GotFocus:
Exit Sub
Err_WisselknopPin_GotFocus:
MsgBox Err.Description
Resume Exit_WisselknopPin_GotFocus
End Sub
En als ik nu de code Nieuwe mutatie gebruik
Private Sub Knop73_Click()
On Error GoTo Knop73_Click_Err
Dim Recno As Long
DoCmd.GoToRecord , "", acLast
Recno = [verkoop_id] + 1
DoCmd.Close acForm, "fm verkoop_01"
DoCmd.OpenForm "fm verkoop_01", acNormal, "", "", , acNormal
DoCmd.GoToRecord acForm, "fm verkoop_01", acNewRec
Forms![fm verkoop_01]![verkoop_id] = Recno
Knop73_Click_Exit:
Exit Sub
Knop73_Click_Err:
MsgBox Error
Resume Knop73_Click_Exit
End Sub
Krijg ik het bericht -- geen huidig record , maar als ik dan op OK druk is er een nieuw record aangemaakt.
Dit gebeurd alleen als ik de Pin gebeurtenis in de PIN knop plaats
Kas = 1 Pin=2
Ik kom er niet uit.
De bedoeling is dat er een keuze gemaakt wordt KAS of PIN en dan ook direct de kassabon wordt geprint.
Omdat het bovenstaande niet werkt gebruik ik alleen de Kas of Pin knop om aan te geven op welke wijze er betaald is en een seperate knop voor de kassa bon.
Ik wil dat er altijd een keuze gemaakt wordt voordat de bon geprint wordt.
Waar ga ik de fout in
Met jullie hulp heb ik een probleem dmv de wisselknop functie weten op te lossen.
Nu probeer ik er een printopdracht voor een kassabon er aan te koppelen , wat op zich lukt maar bij het aanmaken van een nieuw record wordt er meteen een opdracht gegeven om te printen.
De wissel knop staat in het zelfde formulier waar ook een nieuw verkoop nummer wordt aangemaakt.
Ik kan alleen maar bij Focus of Focus verloren de onderstaande gebeurtenis invullen .
Kas knop
Private Sub WisselknopKas_GotFocus()
On Error GoTo Err_WisselknopKas_GotFocus
Dim stDocName As String
DoCmd.RefreshRecord
DoCmd.OpenReport "rp kassabon_klant_EPSON_formaat", acPrintPreview, , "Verkoop_ID = " & Me.verkoop_id
Exit_WisselknopKas_GotFocus:
Exit Sub
Err_WisselknopKas_GotFocus:
MsgBox Err.Description
Resume Exit_WisselknopKas_GotFocus
End Sub
en voor de PIN knop
Private Sub WisselknopPin_GotFocus()
On Error GoTo Err_WisselknopPin_GotFocus
Dim stDocName As String
DoCmd.RefreshRecord
DoCmd.OpenReport "rp kassabon_klant_EPSON_formaat", acPrintPreview, , "Verkoop_ID = " & Me.verkoop_id
Exit_WisselknopPin_GotFocus:
Exit Sub
Err_WisselknopPin_GotFocus:
MsgBox Err.Description
Resume Exit_WisselknopPin_GotFocus
End Sub
En als ik nu de code Nieuwe mutatie gebruik
Private Sub Knop73_Click()
On Error GoTo Knop73_Click_Err
Dim Recno As Long
DoCmd.GoToRecord , "", acLast
Recno = [verkoop_id] + 1
DoCmd.Close acForm, "fm verkoop_01"
DoCmd.OpenForm "fm verkoop_01", acNormal, "", "", , acNormal
DoCmd.GoToRecord acForm, "fm verkoop_01", acNewRec
Forms![fm verkoop_01]![verkoop_id] = Recno
Knop73_Click_Exit:
Exit Sub
Knop73_Click_Err:
MsgBox Error
Resume Knop73_Click_Exit
End Sub
Krijg ik het bericht -- geen huidig record , maar als ik dan op OK druk is er een nieuw record aangemaakt.
Dit gebeurd alleen als ik de Pin gebeurtenis in de PIN knop plaats
Kas = 1 Pin=2
Ik kom er niet uit.
De bedoeling is dat er een keuze gemaakt wordt KAS of PIN en dan ook direct de kassabon wordt geprint.
Omdat het bovenstaande niet werkt gebruik ik alleen de Kas of Pin knop om aan te geven op welke wijze er betaald is en een seperate knop voor de kassa bon.
Ik wil dat er altijd een keuze gemaakt wordt voordat de bon geprint wordt.
Waar ga ik de fout in
). Je opent het formulier [fm verkoop_01] met de focus op de wisselknop. En de code die je daar aan hebt gehangen wordt getriggerd door de gebeurtenis GotFocus. Dus ja, het is niet zo gek dat-ie gelijk gaat printen! Overigens klopt dit niet:
