Acces - podmínka

[kuldajarda]

Ahoj, tvořím databázi do školy a nevím si rady s posledním úkolem, který mám v rámci této práce vytvořit. Tímto úkolem je vytvořit makro s podmínkou. Jde mi jen o zápočet a bude stačit udělat něco hodně jednoduchého... Rád bych vytvořil makro, které vytiskne tabulku, pokud je počet záznamů ve sloupci větší než 20... Problém ale je, že jsem za 3 hodiny nepřišel na to, jak zadat správně tu podmínku... Mohl by mi prosím někdo poradit? Díky Jarda

[Reklama]

[karel.laska]

Buď vítán na fóru...

Tak já bych to udělal asi takto..
VBA scriptem bych si načetl počet řádků které splňují podmínku.

'Definice promennych a db
Dim dbMyDB As DAO.Database
Set dbMyDB = CurrentDb()
Dim DotazSQL As String
Dim ZaznamyDB As DAO.Recordset

'Dotaz
DotazSQL = "SELECT Pole FROM Tabulka WHERE (Podminka);"

'Nacti vysledek
Set ZaznamyDB = dbMyDB.OpenRecordset(DotazSQL)

'Zjisti výsledek
If ZaznamyDB.RecordCount = 0 Then
'Co má dělat když bude 0
Else
'Jinak udělej kontrolu počtu
If ZaznamyDB.RecordCount > 20 Then
'Tisk
end if
End If

Co takto?

Karel

P.S.okud by jsi chtěl tisknout makrem, jako že asi chceš, nahrál bych si makro v excelu (postup jak tisknout) a potom jenom přenesl do ACCESSu

[kuldajarda]

Díky Zkusím to