Skip to main content

AccessTr.neT


metin kutusuna girilen ilk karakterin silinmesi

metin kutusuna girilen ilk karakterin silinmesi

#1
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
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
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
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
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