Private Sub onay1_Click()
If onay1 = -1 Then
Me.Metin4 = CLng(Nz(Metin0)) + CLng(Nz(Metin2))
MsgBox "TOPLAM...*" _
& [Metin4] & " *DIR* " _
& vbCr & vbCr & " DOĞRUMUDUR...", vbInformation, "..***..DİKKAT..***.."
Else
Me.Metin4.Value = Null
MsgBox "TOPLAM ALANI...*" _
& [Metin4] & " *BOŞ* " _
& vbCr & vbCr & " DOĞRUMUDUR...", vbInformation, "..***..DİKKAT..***.."
End If
End Sub
Bu Kod İş görürmü ? Yoksa Yanlış mı anladım acaba ?
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Son Düzenleme: 09/12/2008, 21:44, Düzenleyen: Puletin.