Gracias por el ejemplo y perdona por la molestadera pero queria saver sobre que evento coloco el codigo y ademas si podes corregirme el codigo que cambie y este es
select count codigo from citas where procita = date() into cursor Cant
select Cant
go top
if Cant.codigo > 2 then
messagebox("Van 50 registros")
endif
al correrlo sobre el evento init me dice que codigo no existe