Hallo Leute habe ein Problem,
habe ein Programm geschrieben das läuft nicht kann mir jemand helfen!!! siehe Code wollte es bei Access einsetzen doch leider bringt er mir immer eine Fehlermeldung
Private Sub Befehl3_Click()
On Error GoTo Err_Befehl3_Click
Form.Refresh
Dim stDocName As String
stDocName = "(Auswertung) Jahresauswertung ADM"
DoCmd.OpenReport stDocName, acPreview, 1
Dim Mldg, Stil, Titel, Antwort, Text1
Mldg = "Möchten Sie Drucken?"
Stil = "vbYesNo + vbApplicationModal"
Titel = "Drucken?"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Text1 = "Ja"
Else
Text1 = "Nein"
End If
DoCmd.printOut acPages, 1, 1
Exit_Befehl3_Click:
Exit Sub
Err_Befehl3_Click:
MsgBox Err.Description
Resume Exit_Befehl3_Click
End Sub
| Betreff |
Von |
Datum |
|
|
  |
Re: VB Programm
| Hi,<br><br>der Stil der Meldung (vbYesNo etc) ist kein String, sondern das sind Programmkonstanten, die du nicht als String angeben kannst. Du könntest Dir die hexadezimalen Werte berechnen, aber am... |
|
|
|
|
|
Rainer
Jeschor
|
10.05.2004 14:07 |
|
|
|
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
