PC-HELP.CZ

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

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

Díky Zkusím to