Office: (Office 2003) Suche Blutdrucktabelle zum Erfassen

Hallo Anne,
bin jetzt leicht verwirrt.

Das habe ich in der Hilfe gefunden:

PHP:

         DoCmd.OpenReport Berichtsname[, Ansicht][, Filtername][, Bedingung]


 

Code:

sollte auch unter Access 2000 funktionieren. Du hast allerdings noch weitere Argumente in der Zeile aufgeführt.

Oder anders: Nach Access 2000 wurde OpenReport um Parameter erweitert, deshalb kommt es bei der erweiterten Syntax mit Access 2000 zum Fehler.

 

Hallo!

Warum willst du das denn runterkonvertieren?

Im Bericht ist noch ein Kombinationsfeld cbo_Patient in dem Öffnungsargumente erwartet werden. Das müsstest du auch noch anpassen.

Grüße
Ingo

 

Hallo Arne,

hier ein weiterer Code der dann nicht weiterläuft:

PHP:

         Private Sub btn_Bericht_Click()
On Error GoTo Err_btn_Bericht_Click

If Len(Nz(Me!Anfangsdatum, "")) = 0 Then
Me!Anfangsdatum = DMin("BlutDatum", "Werte", "[NamenID] = " & cbo_Patient)
End If
If Len(Nz(Me!Enddatum, "")) = 0 Then
Me!Enddatum = DMax("BlutDatum", "Werte", "[NamenID] = " & cbo_Patient)
End If

If Len(Nz(Me!Anfangsdatum, "")) <> 0 Or Len(Nz(Me!Enddatum, "")) <> 0 Then
If Me!Anfangsdatum < DMin("BlutDatum", "Werte", "[NamenID] = " & cbo_Patient) Or _
Me!Anfangsdatum > DMax("BlutDatum", "Werte", "[NamenID] = " & cbo_Patient) Then
MsgBox "Das Anfangsdatum darf nicht kleiner " & DMin("BlutDatum", "Werte", "[NamenID] = " & cbo_Patient) & _
" oder größer " & DMax("BlutDatum", "Werte", "[NamenID] = " & cbo_Patient) & " sein." _
, vbExclamation, "Fehler"
Me!Anfangsdatum.Undo
Me!Anfangsdatum.SetFocus
ElseIf Me!Enddatum > DMax("BlutDatum", "Werte", "[NamenID] = " & cbo_Patient) Or _
Me!Enddatum < DMin("BlutDatum", "Werte", "[NamenID] = " & cbo_Patient) Then
MsgBox "Das Enddatum darf nicht größer " & DMax("BlutDatum", "Werte", "[NamenID] = " & cbo_Patient) & _
" oder kleiner " & DMin("BlutDatum", "Werte", "[NamenID] = " & cbo_Patient) & " sein." _
, vbExclamation, "Fehler"
Me!Enddatum.Undo
Me!Enddatum.SetFocus
ElseIf Me!Enddatum < Me!Anfangsdatum Then
MsgBox "Das Enddatum muss größer oder gleich dem Anfangsdatum sein", vbExclamation, "Fehler"
Me!Enddatum.SetFocus
Else
[u]DoCmd.OpenReport "rpt_Blutdruck", acPreview, , "NamenID = " & Me!cbo_Patient & _
" AND BlutDatum BETWEEN " & "#" & Format(Me!Anfangsdatum, "yyyy-mm-dd") & "# AND #" & _
Format(Me!Enddatum, "yyyy-mm-dd") & "#", , Me!cbo_Patient[/u]
DoCmd.Maximize
End If
Else
DoCmd.OpenReport "rpt_Blutdruck", acPreview, , "NamenID = " & Me!cbo_Patient, , Me!cbo_Patient
DoCmd.Maximize
End If

Exit_btn_Bericht_Click:
Exit Sub

Err_btn_Bericht_Click:
If Err = 2501 Then Exit Sub
MsgBox Err.Description
Resume Exit_btn_Bericht_Click

End Sub


 

Hallo!

Das ist das selbe Problem: Es werden Öffnungsargumente angegeben, die lt. Arne in Access 2000 bei Berichten nicht funktionieren (wusste ich noch gar nicht).

[EDIT] Bei mir klappt das. Habe die DB runterkonvertiert nach 2000, sonst keine Änderungen vorgenommen und ich habe keine Fehlermeldungen [/EDIT]

Grüße
Ingo

 

Hallo

wie gesagt das ist ein Programm das dau meinen anfängen stammt un scho x mal konvertiert wurde und ich kenne es selbst nicht mehr besondern seit leztem Jahr (mit meier dummen Kopf geschichte) *frown.gif* weiss ich nichts mehr doch zum Glück giebt es Arne der kann doch einfach immer Helfen Danke Arne.

 

...Und das alles nur, weil man um die Wette raucht! *yelrotflmao *10points

Das letzte Mal, als ich Pfeife geraucht habe, war Rosmarin und Muskatnuss drin. Ist schon 25 Jahre her und sollte Halluzinationen verursachen. Stattdessen war Kot... die Folge... *wink.gif*

Aber eine Pfeife habe ich auch schonmal aus einem Bruyère-Block selbst fabriziert.

Gruß, Sascha

 

Hallo,

arbeitest aber weiter mit 2003. Das funktioniert bei mir auch. Aber sobald nur das A2000 benutzt wird kommt die Fehlermeldung.

 

... man sollte es auch geniessen und nicht eine ... suchnen.

 

Hallo rkami

Was meinst Du jetzt das Pfeifenrauchen oder das Access Programmieren ?
@Sasch Du erstaunst mich jetzt das Du weist was ein IF .. else .. end If ist das ist mir klar doch das Dir Bruyère ein Begriff ist Hut ab. *entsetzt *wink.gif*

 

... ich meine, solange man keinen Druck von Außen hat, kann auch das Programmieren Spaß machen, und ist immer wieder spannend.

 

Hallo
noch einmal
ich wollte nicht verwierung stifften mit meinem Beispiel
hoffe es Hilt Dir doch einwenig. wie so es mit 2000 nicht läuft weis ich auch nicht werde es aber versuchen.

 

... hast Du denn noch eine A2000-Version?

 

Hallo Ingo,

kannst Du mir helfen, ich habe meine Office-Version neu installieren müssen. Jetzt fehlt mir die OWC10.DLL Die wird bei Deiner Tabelle benötigt. Wenigstens meldet Acc es.

 

Hallo!

Das ist die Microsoft Office XP Web Components und befindet sich bei mir hier:
C:\Programme\Gemeinsame Dateien\Microsoft Shared\Web Components\10

Allerdings ist die bei meiner DB als Verweis nicht angegeben. Probiers halt mal.

Hier ist übrigens eine aktuelle Version zu finden. Die habe ich lediglich noch um ein paar Statistikwerte erweitert:
http://www.ms-office-forum.net/forum...2&postcount=16

Grüße
Ingo