Vba Abfragen

[AQUAGIRL2802]

Hallo Leute!

Folgendes Problem!

Es geht um eine Datenbank in der Zahlen aus zwei Tabellen durch drücken eines Buttons verglichen werden sollen!

Dann soll in einer Massagebox ein Text erscheinen, Abfrage soll gucken ob die Zahl A größer ist als Zahl B wenn ja Massagebox mit Text1, wenn nein Massagebox mit Text2!

na wer versteht mein Problem und kann mir helfen! Is dringend und wäre echt dankbar...

Bussi eure AQUA

[AQUAGIRL2802]

Achja die Datenbank soll in Access 97 geschrieben werden!!!!

[P3AC3MAK3R]

"Massagebox" ist auch gut.

Wo hapert es denn genau?

Ich würde einfach die zu vergleichenden Zahlen in zwei Variablen holen, die dann miteinander vergleichen und abhängig vom Ergebnis des Vergleichs den Text in der Messagebox auswählen.

[AQUAGIRL2802]

Huch *rotwerd*

Also ja so wie du das beschreibst soll da ja auch gemacht werden! Is so ne art Lagerverwaltung wo überprüft werden soll ob der Meldebestand erreicht ist und dann soll die Meldung in ner msgBox erscheinen! Eben über eine VBA Abfrage! Weiß nur nicht wie das gehen soll...keinen Plan von VBA :confused:

[P3AC3MAK3R]

Bei mir ist es auch eine Zeit her, daß ich mit Visual Basic gearbeitet habe.

Ich müßte mir daher auch erst die Hilfe vornehmen.

[tauron]

Moin !

Am einfachsten scheint es mir, wenn Du auf die beiden Tabellen über Recordsets zugreifst, deren Inhalt dann in Variablen packst und schliesslich vergleichst.

Hier mal schnell ein Beispiel, musst Du natürlich noch entsprechend Deiner Tabellen anpassen..

---------------Schnipp---------------

Private Sub btn_Vergleich_Click()

'die Recordsets werden hier deklariert

Dim rst_Meldebestand As Recordset

Dim rst_aktuellerBestand As Recordset

'die Werte werden aus den Tabellen geholt

Set rst_Meldebestand = CurrentDb.OpenRecordset("SELECT * FROM Meldung WHERE Meldung.Materialnr = " & lst_Material.Value)

Set rst_aktuellerBestand = CurrentDb.OpenRecordset("SELECT * FROM Bestand WHERE Bestand.Materialnr = " & lst_Material.Value)

'hier werden die Werte verglichen

If (rst_Meldebestand!Meldung > rst_aktuellerBestand!Bestand) Then

MsgBox "Der Meldebestand ist unterschritten !"

Else

MsgBox "Reicht noch !"

End If

End Sub

---------------Schnipp---------------

Hoffe das hilft Dir weiter !

gruß

Christian

[AQUAGIRL2802]

Danke Christian,

würd dann mal getestet!

Gruß Aqua

Sonst noch wer Vorschläge???

[g_nikolai]

ne eigentlich nicht. so kannst du die abfrage schon aufbauen. wenn beide Tabellen in der gleichen DB sind könntest du sie auch miteinander verknüpfen und nur ein RS nutzen.

Aber das sind kleinigkeiten. allerdings auch nicht vergessen die abfrage so zu gestalten das nicht alle Datensätze ausgegeben werden, sondern nur einer.

Weil du ja auch nur ein Produkt vergleichen möchtest.

Guido