+ ve - tuşları ile tarihleri veya sayıları artırıp azaltmak

1 2
21/11/2009, 12:10

ozanakkaya

Paylaşım için teşekkürler accessman

(21/11/2009, 11:25)Netustad68 yazdı: bunun accesle ne alakası var. önünüze gelen kodu ekliyorsunuz. kimse ne işe yarar bu demiyor tşk ediyor. sizi anlamak güç :S


sayın Netustad68, kodun uygulanmış hali 1. mesaja örnek olarak tarafımdan eklenmiştir. Açıp bakarsanız Access kodu olduğunu görürsüzün.

Eğer kodu uygulayamadıysanız belirtin, memnuniyetle yardımcı oluruz. Bu şekilde mesaj yazmanıza hiç gerek yok.

Teşekkür edenler neye teşekkür ettiğini iyi biliyor.

yok, ben bu kodu beğenmedim derseniz aşağıdakini deneyin.

Kod:
Private Sub Metin0_KeyPress(KeyAscii As Integer)
Dim intMetin0 As Integer
    If KeyAscii = 43 Or KeyAscii = 61 Then
        KeyAscii = 0
        If IsNothing(Me.Metin0) Then
            intMetin0 = 1
        Else
            intMetin0 = Me.Metin0 + 1
        End If
        If intMetin0 = 16 Then intMetin0 = 1
        Me.Metin0 = intMetin0
       Exit Sub
        End If
    If KeyAscii = 45 Or KeyAscii = 95 Then
        KeyAscii = 0
        If IsNothing(Me.Metin0) Then
            intMetin0 = 0
        Else
            intMetin0 = Me.Metin0
        End If
        intMetin0 = intMetin0 - 1
        If intMetin0 = -1 Then intMetin0 = 15
        Me.Metin0 = intMetin0
        Exit Sub
    
    End If
End Sub
Public Function IsNothing(ByVal varValueToTest) As Integer
Dim intSuccess As Integer

    On Error GoTo IsNothing_Err
    IsNothing = True

    Select Case varType(varValueToTest)
        Case 0
            GoTo IsNothing_Exit
        Case 1
            GoTo IsNothing_Exit
        Case 2, 3, 4, 5, 6
            If varValueToTest <> 0 Then IsNothing = False
        Case 7
            IsNothing = False
        Case 8
            If (Len(varValueToTest) <> 0 And varValueToTest <> " ") Then IsNothing = False
    End Select


IsNothing_Exit:
    On Error GoTo 0
    Exit Function

IsNothing_Err:
    IsNothing = True
    Resume IsNothing_Exit

End Function
21/11/2009, 12:11

Puletin

(21/11/2009, 11:25)Netustad68 yazdı: bunun accesle ne alakası var. önünüze gelen kodu ekliyorsunuz. kimse ne işe yarar bu demiyor tşk ediyor. sizi anlamak güç :S

Gördüğünüz yanlışlıkları söyleyin ki hep beraber öğrenelim, hataları tekrar etmeyelim.
1 2