Mesela Vardiya Raporu formunda 1_1, 1_2 diye tanımladığın combolar var. İlkini 1_0 yaptıktan sonra

dim say as integer

dim kayitdurumu as boolean  

Metin="1_"

for say=0 to 8

if metin & say <>null or metin & say<>"" then

kayitdurumu=true

else 

kayitdurumu=false

end if

next

if kayitdurumu=true then (Kaydet yordamını çalıştır)

else 

(kaydetme yordamını çalıştır)

end if