Office: Variablen mittels Code in Tabelle schreiben

Hallo!

Ich lasse mittels VBCode beim Öffnen einer Tabelle die Anzahl von verschiedenen Einträgen ermitteln. Wie kann ich die ausgegebenen Werte die in einer bestimmten Variable stehen mittels Code nun in eine andere Tabelle schreiben - die Felder der Tabelle haben die gleichen Namen wie die Variablen.

Beispiel:
Public Function CountMA()
Dim MAanzahl As Long
MAanzahl = DCount("Name", "Mitarbeiter")
DoCmd.OpenTable "Variablen"
Schreibe in Table "Variablen" den Wert von MAanzahl in das Feld "MAanzahl"
End Function

Wär super wenn das jemand hinbekommt.

:)

 

dbengine(0)(0).execute "UPDATE variablen SET MAanzahl = " & str(MAanzahl)

HTH Erwin...

 

\@Erwin: Konntest Du ja fast aus dem anderen Beitrag kopieren. *wink.gif*

 

Hallo!
Mit dem Code

dbengine(0)(0).execute "UPDATE variablen SET MAanzahl = " & str(MAanzahl)

tut sich gar nichts. Die Variable enthält den Wert 106, in der Tabelle bleibt aber weiterhin der Wert 0.
Muss ich um diesen Code nutzen zu können vorher per Code oder Eigenschaften noch irgendwelche Vorkehrungen treffen?

 

also bei mir klappt sowas (sinngemäß) immer - kommt ein Fehler, oder ist die Tab. "Variablen" noch leer - dann musst natürlich einen INSERT machen und keine UPDATE (siehe OH zu SQL)

dbengine(0)(0).execute "INSERT INTO variablen Fields(MAanzahl) Values(" & str(MAanzahl) & ")"

so long Erwin...

 

Also irgendwie will das einfach nicht. Es kommt zwar wieder kein Fehler aber wenn ich den Code wie oben verwende, dann öffnet sich mein Formular nicht mehr...

Der Grund für die Tabelle ist der:
Personalverwaltung
Ich möchte einen Report erstellen in welchem gewisse Angaben der Datenbank enthalten sind wie z.B.
Anzahl männlicher Mitarbeiter
Anzahl weiblicher Mitarbeiter
Anzahl Mutterschutz / Urlaub etc.
Anzahl 100%-Kräfte, 75%-Kräfte etc.

Ich kann diese Werte zwar mittels Code und dem Befehl DCount ermitteln, aber ich weiß nicht wie ich diese Werte dann in den Report einfüge. Ich hab versucht die Variable einfach in ein Textfeld welches im Report ist zu übergeben aber der Code
Textfeld1.text = Variable
geht nicht, da ich in Reports die Erweiterung wie .text oder .value nicht zur Auswahl habe, sondern nur text1.controls, .form, .itemdata, .object, .oldvalue und ähnliche - aber die helfen mir nicht weiter.
Deshalb der Umweg die mit Code und DCount ermittelten Werte erst in eine Tabelle zu schreiben und dann ganz simpel im Report mit entsprechenden Feldern auszugeben, aber das klappt ja auch nicht. Wie kann ich denn mein Vorhaben möglichst einfach verwirklichen? Es kann doch nicht so kompliziert sein die Anzahl der Datensätze einer Tabelle z.B. in einem Report auszugeben...

 

Hat hiervon wirklich keiner Ahnung?

 

Mal eine ganz dumme Variante.
In deinem Bericht existieren also Felder, die deine ermittelten Werte ausgeben sollen.
Demnach müsste für jede deiner Variablen auch ein separates Feld vorhanden sein.
Anstatt die Berechnung durchzuführen und "mühsam" an den Report zu übergeben, leg die Berechnung in die Steuerelementinhalte der Berichtsfelder. Dann wird der Wert beim Aufruf des Reports dort jeweils neu und in den richtigen Feldern ausgeführt. Somit auch kein "lästiges" übergeben.

im Steuerelementinhalt des Reportfeldes =DCount(Deine Angaben)
o.dgl.

(hab´s nicht getestet!)

 

Ich hab in einem Bericht in der Entwurfsansicht leider nicht die Möglichkeit einem Element ein "Ereignis" hinzuzufügen so wie man es zum Beispiel bei einem Steuerelement eines Formulars kann. In dem Textfeld dass sich in einem Bericht befindet kann ich lediglich ein Tabellenfeld auslesen...die Möglichkeit mittels Code in einem Steuerelement eine Berechnung zu machen scheidet demnach aus...
Ich bin mitterweile schon so weit dass ich mit VB6 ne eigene Andwendung progge die dann auf eine Datenbank zugreift, da es über Access ja anscheinend nicht so möglich ist wie ich es gerne hätte. VB6 finde ich zudem noch einfacher und besser als die Entwicklungsumgebung von Access.

 

Du kannst schon, nur es geht eben etwas anders:

Du kannst in einem Feld des Reports Ausdrücke unterbringen wie z.B. Summe().

Auch selbst geschriebene Funktionen. Sie müssen nur Public Functions sein.

 

Leider auch nicht.
Da gibts jede Menge Fehlermeldungen
Entweder "#Fehler", "#Wert" , "Der blablabla ist dedaktisch falsch etc.", warum weigert sich Access in einem Report Variablen in ein Feld auszugeben?

 

weil Du eine Variable nicht dort ausgeben kannst. Das geht über einen Umweg:

Wenn deine Variable

varx

heisst:

Public Function pVarx()
pVarx = varx
end Function


Im Feld des Reports setzt Du dann ein

=pVarx()

Damit erhältst Du den Inhalt der Variablen dort angezeigt.

 

OK, so gehts jetzt...hatte die () vergessen und deshalb kam die Meldung "#name?"
Vielen Dank...