(iki tanesi yardımcı modül )
Function coz()
Forms!Form2!r00.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 1), 1, 1) & ".gif"
If Len(Forms!Form2!SAYI) < 2 Then GoTo bitir
Forms!Form2!r99.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 2), 1, 1) & ".gif"
If Len(Forms!Form2!SAYI) < 3 Then GoTo bitir
Forms!Form2!r88.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 3), 1, 1) & ".gif"
If Len(Forms!Form2!SAYI) < 4 Then GoTo bitir
Forms!Form2!r77.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 4), 1, 1) & ".gif"
If Len(Forms!Form2!SAYI) < 5 Then GoTo bitir
Forms!Form2!r66.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 5), 1, 1) & ".gif"
If Len(Forms!Form2!SAYI) < 6 Then GoTo bitir
Forms!Form2!r55.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 6), 1, 1) & ".gif"
If Len(Forms!Form2!SAYI) < 7 Then GoTo bitir
Forms!Form2!r44.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 7), 1, 1) & ".gif"
If Len(Forms!Form2!SAYI) < 8 Then GoTo bitir
Forms!Form2!r33.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 8), 1, 1) & ".gif"
If Len(Forms!Form2!SAYI) < 9 Then GoTo bitir
Forms!Form2!r22.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 9), 1, 1) & ".gif"
If Len(Forms!Form2!SAYI) < 10 Then GoTo bitir
Forms!Form2!r11.Picture = CurrentProject.Path & "/" & Mid(right(Forms!Form2!SAYI, 10), 1, 1) & ".gif"
bitir:
End Function
Function basadon()
Forms!Form2!r00.Picture = CurrentProject.Path & "/" & "0.gif"
Forms!Form2!r11.Picture = CurrentProject.Path & "/" & "0.gif"
Forms!Form2!r22.Picture = CurrentProject.Path & "/" & "0.gif"
Forms!Form2!r33.Picture = CurrentProject.Path & "/" & "0.gif"
Forms!Form2!r44.Picture = CurrentProject.Path & "/" & "0.gif"
Forms!Form2!r55.Picture = CurrentProject.Path & "/" & "0.gif"
Forms!Form2!r66.Picture = CurrentProject.Path & "/" & "0.gif"
Forms!Form2!r77.Picture = CurrentProject.Path & "/" & "0.gif"
Forms!Form2!r88.Picture = CurrentProject.Path & "/" & "0.gif"
Forms!Form2!r99.Picture = CurrentProject.Path & "/" & "0.gif"
End Function
Function sayisifirla()
Forms!Form2!SAYI = 0
End Function
Kolay gelsin
Uygulama ektedir
