Skip to main content

AccessTr.neT


Ziyaret Takip Programında Sorun

Ziyaret Takip Programında Sorun

Çözüldü #19
Hocam bukadar yoğunluk içinde birde bana zaman ayırdığın için çok teşekkür ederim.

Anlatmak istediğim kişi geliyor ve ben bunu form üzerine kayıt yapıyorum
1. isim + soy isim (program sakıncalı ise bana uyarıyor)
2. aynı form üzerine aracının plakasını yazıyorum (sakıncalı ise program bana uyarı vermesi gerekiyor)

Aslında sizin dediğiniz doğru ama ayrı, ayrı formda yaparsam kayıtlar birbirinde farklı olur çünkü gelen kişinin adı, soyadı, araç plakası belli.

Sorun sakıncalı araç plakalı ayrı yazıyla gelmesi, sakıncalı kişi bilgileri ayrı gelmesi. Ama ziyarete gelen aracı ile birlikte geldiği için aynı form üzerinde göstermem gerekiyor.
Cevapla
Çözüldü #20
Buyrun, istediğiniz gibi yaptım. Bu arada plaka girerken aralarında boşluk da verseniz bileştiren şekilde yaptım. İstemezseniz o bölümü değiştirebilirsiniz. Kodlar şu şekilde:

Dim A as string
A = Replace(ARACPLAKASI, " ", "")
Me.ARACPLAKASI = A
If ARACPLAKASI = Dlookup ("[araç plakası]", "[tblSakıncalıAraç]", "[araç plakası]=forms![frmKayit]!ARACPLAKASI") Then
MsgBox " BU ARAÇ PLAKASI SAKINCALIDIR"
Else
End If

Kolay gelsin....
.rar girişleri kontrol etmek_demiral.rar (Dosya Boyutu: 61,49 KB | İndirme Sayısı: 40)
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #21
Kodları şu şekilde değiştirirseniz, aranan plaka bulduğunda plaka arka planı kırmızı olacaktır.
Kod:
Dim A As String
A = Replace(ARACPLAKASI, " ", "")

Me.ARACPLAKASI = A
If ARACPLAKASI = DLookup("[araç plakası]", "[tblSakıncalıAraç]", "[araç plakası]=forms![frmKayit]!ARACPLAKASI") Then
Me.ARACPLAKASI.BackColor = 255

MsgBox " BU ARAÇ PLAKASI SAKINCALIDIR"
Else
End If

Bu arada yeni kayıt butonunun kodlarını da şöyle değiştirin ki, yeni kayıta basınca alan rengi normale dönsün:

Kod:
Private Sub Komut8_Click()
On Error GoTo Err_Komut8_Click

Me.ARACPLAKASI.BackColor = -2147483643
    DoCmd.GoToRecord , , acNewRec

Exit_Komut8_Click:
    Exit Sub

Err_Komut8_Click:
    MsgBox Err.Description
    Resume Exit_Komut8_Click
    
End Sub

İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #22
Hocam çok teşekkür ederim, tam istediğim gibi olmuş, elinize sağlık.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task