Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

metin kutusuna girilen ilk karakterin silinmesi

slayerrrrr
slayerrrrr
Access Cevaplanmış Soruları
4
1717

metin kutusuna girilen ilk karakterin silinmesi

#1
slayerrrrr
Aktif Üye
slayerrrrr
Bul
Aktif Üye
Adı Soyadı: En.... TU....
Yaşı: 40
Konum: İzmir
Ofis Versiyonu: Ofis 2007
Son Oturumu: 03/11/2021,07:50
Yorumları: 93
Konuları: 20
Kayıt Tarihi: 14/01/2011
Teşekkür Puanı: 13
Mesleğiniz: satın alma
Merhaba,
aramenu_spa formundaki combox (sic) 5 haneli rakamdan oluşan bir barkod okutuyorum (sic) bağlı olduğu tablodaki sicil bölümü 4 karakterden oluşuyor bundan dolayı istediğim değeri getiremiyorum.
sic combox nasıl bi kod yazılması lazım barkod okutulduğu anda ilk karakterini silmesi için

(Neden teknisyen sicil tablosuna sicil kısmına başlarına 0 koymuyorsun derseniz farklı formlara bağlı ve 4 haneli olarak işlem yapıyor.)

Teşekkürler....

çok denedim ama dosyayı buradan ekleyemedim verdiğim linkten indirirseniz sevinirim....

https://www.dropbox.com/s/5buu3lrpk81ies...k.rar?dl=0
Son Düzenleme: 13/01/2017, 13:32, Düzenleyen: slayerrrrr. (Sebep: ek)
Cevapla
#2
atoz112
Onursal Üye
atoz112
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 55
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 09/12/2017,11:02
Yorumları: 5.716
Konuları: 9
Kayıt Tarihi: 04/08/2009
Teşekkür Puanı: 1.172
sayın slayerrrrr,

bahsettiğiniz talebinize yönelik olarak;

öncelikle,
eklediğiniz örnek uygulama üst sürüm olması gerekçesi ile,kendi adıma olmak üzere,inceleme imkanım olmamaktadır.

fakat fikir vermesi ve çözüme öneri olması adına,

bir metin denetimindeki ilk karakteri silmek istiyorsanız (kod sayfasında geçerli olmak üzere):

Kod:
Me.elde_edilecek_sonucun_gosterilecegi_denetim_adi = Right(Me.ilk_degeri_silinecek_denetimin_adi, Len(Me.ilk_degeri_silinecek_denetimin_adi) - 1)
kod satırını kullanarak deneyiniz.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
slayerrrrr
Aktif Üye
slayerrrrr
Bul
Aktif Üye
Adı Soyadı: En.... TU....
Yaşı: 40
Konum: İzmir
Ofis Versiyonu: Ofis 2007
Son Oturumu: 03/11/2021,07:50
Yorumları: 93
Konuları: 20
Kayıt Tarihi: 14/01/2011
Teşekkür Puanı: 13
Mesleğiniz: satın alma
Merhaba,
denedim ancak bir çözüm olmadı başka bir öneriniz var mı?
aslında güncelleme sonrasına bu kodu eklediğimde çalışıyor ancak  Me.sic = Right(Me.sic, Len(Me.sic) - 1) ancak barkod okuyucu barkodu okuyup enter yaptığı için tabloda bulunamadı hatası alıyorum. tabloda olan bir veriyi girdiğimde sizin verdiğiniz kod çalışıyor ve başından ilk karakteri siliyor.
Cevapla
#4
atoz112
Onursal Üye
atoz112
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 55
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 09/12/2017,11:02
Yorumları: 5.716
Konuları: 9
Kayıt Tarihi: 04/08/2009
Teşekkür Puanı: 1.172
sayın slayerrrrr,

kodları net şekilde inceleyemeden yazacaklarım sadece farazi kalacaktır.bu nedenle,eğer ekleyebilirseniz,
MDB olarak da konunuza uygulamanızı dahil etmeye çalışınız.

otel otomasyonu

yukarıda bağlantısı yazılı konunun 4.mesajındaki işlemleri yaparak eklemeyi deneyiniz,bir de.

ayrıca,

Alıntı:barkod okuyucu barkodu okuyup enter yaptığı için tabloda bulunamadı hatası alıyorum. 

ifadenize yönelik olarak;
eğer tabloda değer yoksa bu hatayı vermesi doğal.bu nedenle,kontrol kodları dahil ederek (IF Fonksiyonu mesela) eğer mevcut değilse yapmasını istediğiniz işlem ya da işlemler ne ise yapmasını ve eğer tabloda varsa (ELSE) bu ilk karakteri iptal etme işlemini sağlatmalısınız.

son olarak;
kodun kullanımında ve sonuç edinmede sorun yok.zaten siz de bunu belirtiyorsunuz.dolayısı ile yapmanız gereken okutma işlemi akabinde veya sonrasında bu kontrol kodlarını dahil ederek deneyiniz.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#5
slayerrrrr
Aktif Üye
slayerrrrr
Bul
Aktif Üye
Adı Soyadı: En.... TU....
Yaşı: 40
Konum: İzmir
Ofis Versiyonu: Ofis 2007
Son Oturumu: 03/11/2021,07:50
Yorumları: 93
Konuları: 20
Kayıt Tarihi: 14/01/2011
Teşekkür Puanı: 13
Mesleğiniz: satın alma
Merhaba,
yardımınız için teşekkürler ben bir şekilde çözdüm olayı aynı konu karşılaşan olursa diye kodu da vereyim.
Kod:
Private Sub sic_NotInList(NewData As String, Response As Integer)
If Left(Me.sic.Text, 2) = "00" Then
       Me.sic = Right(Me.sic.Text, Len(Me.sic.Text) - 2)
       NewData = Me.sic
       If TablodaVarmi Then
           Response = acDataErrContinue
           Call sic_AfterUpdate
       Else
           Response = acDataErrContinue
           MsgBox "Siciliniz Kayıtlı Değildir", vbOKOnly
       End If
   ElseIf Left(Me.sic.Text, 1) = "0" Then
       Me.sic = Right(Me.sic.Text, Len(Me.sic.Text) - 1)
       NewData = Me.sic
       If TablodaVarmi Then
           Response = acDataErrContinue
           Call sic_AfterUpdate
       Else
           Response = acDataErrContinue
           MsgBox "Siciliniz Kayıtlı Değildir", vbOKOnly
       End If
   Else
       Response = acDataErrContinue
       MsgBox "Siciliniz Kayıtlı Değildir", vbOKOnly
   End If
End Sub
Function TablodaVarmi() As Boolean
   If CurrentDb.OpenRecordset("SELECT count(*) FROM TEKNISTEN_LISTESI WHERE SİCİL = '" & Me.sic.Text & "';").Fields(0) > 0 Then
       TablodaVarmi = True
   Else
       TablodaVarmi = False
   End If
End Function
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task