Ziyaret Takip Programında Sorun - Baskı Önizleme +- 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ığı: Ziyaret Takip Programında Sorun (/konu-ziyaret-takip-programinda-sorun.html) |
Cvp: Ziyaret Takip Programında Sorun - arif1971 - 06/10/2009 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. Cvp: Ziyaret Takip Programında Sorun - mehmetdemiral - 06/10/2009 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.... Cvp: Ziyaret Takip Programında Sorun - mehmetdemiral - 06/10/2009 Kodları şu şekilde değiştirirseniz, aranan plaka bulduğunda plaka arka planı kırmızı olacaktır. Kod:
Dim A As String Kod:
Private Sub Komut8_Click() Cvp: Ziyaret Takip Programında Sorun - arif1971 - 07/10/2009 Hocam çok teşekkür ederim, tam istediğim gibi olmuş, elinize sağlık. |