(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
