Schönen guten Morgen,
habe folgende Frage, habe in einem Formular, ein ufrm, in diesem Unterformular werden mehrere Kunden angezeigt, habe dann in der letzten spalte eine Sparte "Drucken" ( ja/nein Feld )
Wenn cih dann mehrer Kunden ausdrucken möchte, muss ich jedes mal jeden einzelnen Kunden anklicken, dann kann cih ihn Ausdrucken, das ist ja nicht das Problem.
Das nervige daran ist, das man danach wieder alle Häckchien in dem Ja/nein Feld wegmachen muss, Kann man dies ändern, das nach dem Drucken alle Häckchien wieder verschwinden?
Und meine nächste frage, kann ein ein Befehlsfläche machen, die heißt "alle makieren" bedeutet, das wenn ich 10 kunden da stehen habe, die alle Ausgedruckt haben möchte, damit ich nicht jeden einzelnen Kunden makieren muss.
Könnte mir jmd helfen :-P ;) ^^ danke schonmal
Hallo,
sind die ja/nein Felder gebunden?
Wenn ja einfach in der Tabelle das Feld zurücksetzen und die Datenherkunft des Formulars aktualisieren.
Gruß Andreas
Hallo,
ja die felder sind gebunden, aber wenn cih das richtig verstehe, muss ich das immer wieder machen, mit der Datenherkunft aktualisieren. Das soll ja alles Automatisch gehen ^^
Und zu der Frage, das ich alle Makieren aufeinmal, mit einer Befehlsfläche oder so, darauf eine antwort?
Hallo,
das geht alles, man muß es nur programmieren.
1. Möglichkeit: per Aktualisierungsabfragen
2. per VBA mittels Recordsetclone auf das Unterformular.
Ohne Kenntnis der genauen Namen der Felder/Objekte erstell ich aber jetzt keinen Code dafür...
frm_OffeneVorgänge ( datenherkunft=tblKunden )
ufrm_OffeneVorgänge ( datenherkunft=abfOffeneVorgänge )
Und dann noch das Feld "Drucken" ( Ja/Nein Feld )
Braust du noch was`?
Hallo,
in etwa so:
Private Sub im HauptForm-Modul
Private Sub subSetDrucken(jn as Boolean)
Dim rs as Dao.Recordset
Set rs=Me!ufrm_OffeneVorgänge.Form.Recordsetclone
If rs.Recordcount > 0 Then
With rs
.Movefirst
Do Until .Eof
.Edit
!Drucken=jn
.Update
Loop
.Movenext
End With
End If
set rs=Nothing
Runcommand accmdsaverecord
End Function
Sub btnDReset_Click() 'Button zum Resetten der Haken
subSetDrucken False
End Sub
Sub btnDSet_Click() 'Button zum Setzen der Haken
subSetDrucken True
End Sub
Zuerst einmal vielen Dank an alle Access Geübte, die in diesen Foren posten. Ich habe schon sehr viel gelernt und versuche immer zuerst bereits vorhandene Postings abzugrasen bevor ich eine Frage stelle. Aber diesmal komme ich nicht mehr weiter. Ich muss vorausschicken, dass ich in VBA leider wenig geübt, bitte um Nachsicht wenn ich bestimmte Dingen falsch benenne oder evtl. LösungsVorschläge nicht gleich kapiere.
Ich habe ein ähnliches Problem wie hier beschrieben und hoffte, mit dem Vorschlag von DF6GL eine Lösung gefunden zu habe. Aber es hakt noch.
Ich habe eine HF in dem man mittels Eingabe von Parametern einen SQL string erzeugen kann.
Private Sub MakeSQL()
Krit = ""
If Not IsNull(Me!Ime) Then Krit = Krit & " AND Ime LIKE '" & Me!Ime & "*'"
If Not IsNull(Me!DatumOd) Then Krit = Krit & " AND Datum >= #" & Format(Me!DatumOd, "yyyy-mm-dd") & "#"
If Not IsNull(Me!DatumDo) Then Krit = Krit & " AND Datum <= #" & Format(Me!DatumDo, "yyyy-mm-dd") & "#"
If Not IsNull(Me!Usluge) Then Krit = Krit & " AND IDUsluge LIKE '" & Me!Usluge & "'"
If Not IsNull(Me!Prijavljen) Then Krit = Krit & " AND JePrijavljen = " & IIf(Me!Prijavljen, "True", "False")
SQL = "SELECT * FROM qryHranarinaUporaba "
If Krit <> "" Then
Krit = Mid(Krit, 5)
SQL = SQL & "WHERE " & Krit
End If
End Sub
Dieser SQL string dient als Recordsource für das Suchen der entsprechenden Datensätze in einem Unterformular:
Private Sub Suchen_Click()
MakeSQL
Me!ufrmSporUslugeSuchen.Form.RecordSource = SQL
End Sub
Das Aufbereiten der Daten im UOF funktioniert so weit ohne Probleme.
Nach Auswahl der entsprechenden Datensätze müsste ich zwei Felder für alle vorhandenen Datensätze im UF aktualisieren (ein Ja/Nein Feld und ein Datumsfeld). Ich habe versucht das mit dem Lösungsvorschlag von DF6GL zu realisieren:
Private Sub subSetObracunano(jn As Boolean)
Dim rs As Dao.Recordset
Set rs = Me!ufrmSporUslugeSuchen.Form.RecordsetClone
If rs.RecordCount > 0 Then
With rs
.MoveFirst
Do Until .EOF
.Edit!
!Obracunano = jn
.Update
Loop
.MoveNext
End With
End If
Set rs = Nothing
RunCommand acCmdSaveRecord
End Sub
den ich so aufrufe:
Private Sub Befehl123_Click()
MakeSQL
Me!ufrmSporUslugeSuchen.Form.RecordSource = SQL
subSetObracunano True
End Sub
Versuche ich nun das Ja/Nein Feld mit obigen Code zu aktualisieren, wird der erste DS markiert aber dann scheint sich die Prozedur aufzuhängen. Bei Unterbrechen der Prozedur wird die Zeile Loop gelb markiert. Würde mich freuen, wenn mir jemand Tipps geben könnte was ich hier alles falsch mache. Vielleicht gibt es auch eine viel leichtere Lösung, die ich im Forum nur noch nicht gesehen habe. Vielen Dank.
Eblajs
Hallo,
so herum:
.
.
.
.Update
.MoveNext
Loop
.
.
.
Guten Tag Franz,
tausend Dank und schönes Wochenende! Es ist frustrierend, wie man als unbedarfter Access User bei den kleinsten Problemen hängen bleibt. Ohne solche User-Foren wäre man komplett verloren.
Ernst