AccessTr.neT
Seçmeli Deger Aktaran Vba İnput Kutusu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Seçmeli Deger Aktaran Vba İnput Kutusu (/konu-secmeli-deger-aktaran-vba-input-kutusu.html)



Seçmeli Deger Aktaran Vba İnput Kutusu - tarkanaykın - 24/10/2020

If (a=Inpotbox("kullanıcı kodunu giriniz"))=vbCancel then...
Gibi birsey yapmaya çalıştım ama olmadı...
Kullanmak üzere a ya deger aktarmak, vazgeçilmesi durumunda islemleri sonlandırmak istiyorum, bunun yöntemi nedir arkadaşlar,  şimdiden teşekkürler.


RE: Seçmeli Deger Aktaran Vba İnput Kutusu - berduş - 24/10/2020

Dim a As String

a= InputBox("kullanıcı kodu girin")

'Cancel'a basılınca boş değer döner
If a= "" Then
MsgBox "cancel'a bastınız", vbInformation, "kapatılıyor"
Exit Sub
Else
'boş girmezse çalışacak kodlar
End If
Şeklinde dener misiniz?


RE: Seçmeli Deger Aktaran Vba İnput Kutusu - tarkanaykın - 25/10/2020

Çok teşekkürler, bu kısım da tamam.