Merhaba,

form3'deki kodu aşağıdaki ile değiştirerek deneyiniz.

Private Sub Ayrıntı_Paint()

If DCount("*", "Form3 Sorgu") > 0 Then

    If Me.CİNSİYETİ = "ERKEK" Then

        Me.ADI.BackColor = 16777111

        Me.SOYADI.BackColor = 16777111

        Me.CİNSİYETİ.BackColor = 16777111

    Else

        Me.ADI.BackColor = 12698111

        Me.SOYADI.BackColor = 12698111

        Me.CİNSİYETİ.BackColor = 12698111

    End If

End If

End Sub

sayın semalp,

konunuzun 4.mesajındaki hitabınıza yönelik olarak;
kendi adıma geçerli olmak sureti ile ve bir yanıt vermiş olmak amacı ile,

açıkçası,yeni okudum yazdıklarınızı,konunuzun Cevaplanmış Sorular Kategorisi'ne taşınması sonrasında.

her ne kadar,sayın ozan bey de bir yanıt vermelerine rağmen,ben de bir çalışmada bulunmuştum.eklemekte sakınca olmayacaktır temennisi ile,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.

sayın semalp,

konu takibiniz açısından,hatırlatma anlamında;
konunuz ile ilgili son gelişme ne durumdadır.

şüphesiz,işlemleriniz tamamlanmış ve sorununuzu çözmüş de olabilirsiniz.site içi aramalarınız neticesinde sitede yer alan konuları ve örnekleri incelemelerinizin sonucu ile bazı gelişimler elde etmiş de olabilirsiniz...bilgilendirmek ister misiniz lütfen.teşekkürler.

bilginize...iyi çalışmalar,saygılar.

Sayın atoz112,
ozanakkaya'nın verdiği kodlarla sorun çözüldü. görünümde sorun yok ama arada sırada yine hata veriyor.
hazırladığım dosyaya eklemeler yapıyorum. ikamet ve tlf rehberinide kişilere ekledim.
dosyaya il,ilçe, mahalle ve posta kodu bilgilerini ekledim. kişi bilgilerini seçerek doldurmayı sağladım.