Office: (Office 2007) Code Wiederholen / VBA

verschiebe ich auf morgen...

 

Moin Atrus,

und kannst mir helfen ??

Viele Grüße

 

Achja (*aufwach*):

Trage beim Ereignis NachAktualisierung des Formulars folgende Ereignisprozedur ein:
Code:

nach dem Ändern des Formulars wird der aktuelle Wert des Palettenbarcodes als deren Standardwert beibehalten, und der gilt dann für die neuen Datensätze, bis er geändert wird.

 

Weltklasse , vielen Dank, wie kann ich das nur wieder gut machen.

Funktioniert . Danke Danke

 

Hi Atrus,

sorry ich muss dich noch mal nerven,
Ich muss die Datensätze die gebucht werden noch Zählen. Habe hier ein Code vom anderen User bekommen, der zählt mir alle Datensätze die in einer Tabelle sind. das Ergebnis wird in einem Textfeld angezeigt. Ich benötige aber eine Zählung die Tagesaktuell ist. So das im Textfeld nur die Daten vom Aktuellen Tag zu sehen sind.

Hier der Code, funktioniert auch! Nur gerne möchte ich den wie beschrieben haben


Function Anz() As Integer
On Error GoTo Fehler
Dim dsg As Recordset

Set dsg = Me.RecordsetClone
dsg.MoveLast
Anz = dsg.RecordCount
dsg.Close
Exit Function

Fehler:
Select Case Err.Number
Case 3021
Anz = 0
Case Else
MsgBox Err.Number
End Select
End Function


Gruß

 

Da wirst du in deiner Tabelle irgendwo ein Feld brauchen, wo das Anlagedatum abgelegt ist. Sonst kann Access nicht ermitteln, wann welcher Satz angelegt wurde.

Also bau ein Feld z.B. Anlagedatum in deiner Tabelle ein. Belege es im Standardwert =Date(), damit bei neuen Sätzen immer das aktuelle Datum eingetragen wird. Damit wird der Anlagetag autoamtisch vermerkt.

Und das kannst du dann auch auswerten.
Code:

Ungetestet, aber so in der Art.

 

nur bekomme jetzt den Fehler .

"Fehler beim Kompilieren:
Unzulässige Verwendung einer Eigenschaft:

Function Anz() As Integer
On Error GoTo Fehler
Dim dsg As Dao.Recordset
Set dsg = Me.RecordsetClone
dsg.Filter "Anlagedatum = #" & Format(Date, "yyyy-mm-dd") & "#"
dsg.MoveLast
Anz = dsg.RecordCount
dsg.Close
Exit Function

Fehler:
Select Case Err.Number
Case 3021
Anz = 0
Case Else
MsgBox Err.Number
End Select
End Function

Soll ich die DB noch mal hoch schissen ??

 

ja, habs gerade gemerkt...


Code:

 

bekomme jetzt von Access diesen Fehlercode als Popup 3061
Und Zählen geht noch nicht.

Und im Textfeld steht jetzt eine Null

Gruß

 

Lad mal hoch.

 

Auch hier die Frage: Wie heißt dein Datenfeld?!

 

Anbei die Datei

Ist zu groß, werde es kleiner machen

 

Wo ist sie denn? *redface.gif*

 

Hie ist Sie, hoffe das auch noch die Funktionen drin sind

 

Standardwert fehlte
Anlagedatum in Datenquell fehlte
Datenquelle auf fest Abfrage qry umgestellt
Zählung per DCOunt eingebaut