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