AccessTr.neT
+ ve - tuşları ile tarihleri veya sayıları artırıp azaltmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Dersleri (https://accesstr.net/forum-access-dersleri.html)
+--- Konu Başlığı: + ve - tuşları ile tarihleri veya sayıları artırıp azaltmak (/konu-ve-tuslari-ile-tarihleri-veya-sayilari-artirip-azaltmak.html)

Sayfalar: 1 2

Cvp: + ve - tuşları ile tarihleri veya sayıları artırıp azaltmak - ozanakkaya - 21/11/2009

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


Cvp: + ve - tuşları ile tarihleri veya sayıları artırıp azaltmak - Puletin - 21/11/2009

(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. Sadd