|
Member
Beiträge: 7
| Hallo zusammen
Hab mal wieder ein Problem
Hab ein Formular mit dem Namen FO_Einstelldaten_Start
In disem befindet sich ein Unterform. mit Namen FO_AusfaellerListe_U Bei Doppelkick öffnet sich das Formular FO_Einstelldaten.
In diesem befindet sich ein Register mit dem Namen RegisterStr0.
Meine Frage geht es das bei Doppelklick sich die Seite mit dem Namen Ausfaeller öffnet.
Bisher verwendeter Code:
Private Sub Auftragsnummer_DblClick(Cancel As Integer)
On Error GoTo Auftragsnummer_DblClick_Err
Dim stDocName As String
DoCmd.OpenReport "BE_Ausfaeller", WhereCondition:="IDAusfaeller = " & Me!IDAusfaeller, View:=acViewPreview
Auftragsnummer_DblClick_Exit:
Exit Sub
Auftragsnummer_DblClick_Err:
MsgBox Error$
Resume Auftragsnummer_DblClick_Exit
End Sub
Ein weitere Frage zu diesem Code Per Button Mail versenden:
1. Bericht öffnen
2. Bericht Drucken
3. Bericht senden
4. Bericht und Formulat schließen
So hab ich den Code zusammen gebastelt funct. oder geht es noch ein wenig elleganter?
Private Sub SendenAusfaeller_Click()
On Error GoTo SendenAusfaeller_Err
DoCmd.OpenReport "BE_Ausfaeller", acViewPreview, , "IDAusfaeller=" & Me!IDAusfaeller
stDocName = "BE_Ausfaeller"
DoCmd.OpenReport stDocName, acNormal
DoCmd.SendObject acReport, "BE_Ausfaeller", "RichTextFormat(*.rtf)", "xxx@xxx.de", "", "", "Ausfäller", "", False, ""
DoCmd.Close acForm, "FO_NeuerAusfaeller"
SendenAusfaeller_Exit:
Exit Sub
SendenAusfaeller_Err:
MsgBox Error$
Resume SendenAusfaeller_Exit
Vielen Dank für Eure Bemühungen
End Sub | |
|
Hilfe VBA