+- 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ığı: Parantez İçerisindeki Yazıyı Almak (/konu-parantez-icerisindeki-yaziyi-almak.html)
Cvp: Parantez İçerisindeki Yazıyı Almak - berduş - 16/02/2020
Cevaplanmışlara taşınan konulara dosya eklenemiyor.
Tekrar sorulara taşıdım dosya ekleyebilirsiniz
Cvp: Parantez İçerisindeki Yazıyı Almak - xoseng - 16/02/2020
(16/02/2020, 16:16)berduş yazdı: Cevaplanmışlara taşınan konulara dosya eklenemiyor.Bunu bilmiyordum, sağ ol.
Tekrar sorulara taşıdım dosya ekleyebilirsiniz
Cvp: Parantez İçerisindeki Yazıyı Almak - feraz - 16/02/2020
(16/02/2020, 16:11)xoseng yazdı:(16/02/2020, 16:01)feraz yazdı: Örneği inceleyiniz.Önceki kodda left,riggt,ve mid kodlarındaki yerler ters yazılmış.Forum sitesinde sorun var sanırım, dosya yükleyemiyorum.
Textboxa veri girip butona tıklayınız.
Textbox boşssa felan şart koydum gerek olmayabilir hata vermemesi içindi.
Forma yükleyemedim dosyayı.
https://www.dosyaupload.com/74g3
Kod:Option Compare Database
Private Sub Befehl0_Click()
Dim x As Byte, y As Byte
If Not IsNull(txt1.Value) Or txt1.Value <> "" Then
If Left(txt1.Value, 1) = "(" Then
x = 2
Else
x = 1
End If
If Right(txt1.Value, 1) = ")" Then
y = Len(txt1.Value) - 1
Else
y = Len(txt1.Value)
End If
If x > 1 Then y = y - 1
txt1.Value = Mid(txt1.Value, x, y)
End If
End Sub
Elinize sağlık doğru şekilde çalışıyor ve hata vermedi. Farklı örnekler üzerinden denedim çalışıyor. sağ olun, teşekkür ederim.
Rica ederim.
Kodun çalışma mantığını açıklayayım yinede.Belki gereksiz yerleri kullanmayabilirsiniz.
X değişkini atadım çünkü soldan il karakter ( varmı diye varsa metinin 2.karakterinden ( yoksa ilk karakterinden başlasın parçaalmak için(mid)
Y olayıda en sağdan baksın ) varmı diye varsa ensondakinin bir önce karakterden yoksa enson karaktere kadar alsın.
Mantık böyle.
Cvp: Parantez İçerisindeki Yazıyı Almak - feraz - 16/02/2020
Dosyayı ekledim.