Arkadaşlar inanın çok uğraştım ama oldukça zorlandım yapamıyorum. Yardim ederseniz cok sevinirim . Bu dostaya cok ihtiyacim var parca parca ihtiyacim dogrultusunda olusturmaya çalışıyorum. Yardimi dokunan herkesten Allah razı olsun.

Giriş için
Kullanıcı adı 1
[color=#141414][size=small][font=Roboto,]Şifre

Hocam EvKontrat formunda Değiştir butonuna bastığımda 
Tablo1 e değişiklikleri kaydedecek
kişiye ait Plantarih tablosunda eğer kişiye ait NOT alanında İLK TARİH / ELK SU GAZ DEPOZİTO / DEPOZİTO / KOMİSYON

Bilgileri yok ise onları ekleyecek var ise sadece değişiklikleri kaydecek 
inşallah anlatabilmişimdir

ya da siz ne demek istediğimi formu inceleyerek anlayabilirsiniz 

bir de bu formda diğer kodlarda hata veya daha iyi nasıl olur inceleyebilirseniz sevinirim
teşekkür ederim

topluca kontollerdeki özellikleri değiştirmek için

    Dim semptomText As String
    semptomText = tagName
    Dim ctl As Control
    For Each ctl In Me.Form
        If ctl.ControlType = acComboBox Then
            If InStr(1, ctl.Tag, tagName) <> 0 Then
                ctl.Enabled = True
            End If
        End If
    Next ctl
    Set ctl = Nothing

burada controller var

[url=https://docs.microsoft.com/en-us/office/vba/api/access.accontroltype]https://docs.microsoft.com

[vb]Sub BulDegistir1()

Set pDict = CreateObject("Scripting.Dictionary")
pDict.Add "ÅŸ", "ş"
pDict.Add "ı", "ı"
pDict.Add "Ç", "Ç"
pDict.Add "Ä°", "İ"
pDict.Add "Ş", "Ş"
pDict.Add "ü", "ü"
pDict.Add "Ö", "Ö"
pDict.Add "Ãœ", "Ü"
pDict.Add "Ğ", "Ğ"
pDict.Add "ÄŸ", "ğ"
pDict.Add "ö", "ö"
pDict.Add "ç", "ç"
'Buraya istenildiği kadar ekleme yapılabilir.

For Each p In pDict
    Columns("C:AA").Replace what:=p, replacement:=pDict.Item(p), LookAt:=xlPart, _
        SearchOrde

merhaba arkadaşlar bir listem var 1.4 milyon kayıt ekli burda bulunan tablomda cinsiyet kategorisine Erkeklere 1 kadınlara 2 vermişim acaba bu listede sadece cinsiyet sutununda bulup değiştirme seçeneğpim varmıdır acaba?


[Resim: https://resim.accesstr.net/do.php?img=10009]

(10/03/2021, 00:21)feraz yazdı: Bir Excel açın ve modül ekleyin ve ilk mesajdaki kodu olduğu gibi ekleyin modüle ve çalıştırın.

Kodlardan anladığım kadarıyla c:aa aralığındaki bozuk olanları koddaki karşılıkarı ile değiştirir.

---

(12/03/2020, 15:26)accessman yazdı: pDict.Add "ÅŸ", "ş"

Yani koda göre ş den öndeki bozuk karakter c:aa aralığında varsa ş olarak değiştirir diğerleride aynı şekilde değişir.

Merhabalar
"Posta liste

merhaba
forumda çok aradaım ama tam cevap vereni bulamadım

ekteki programda metin değil nor olarak oluşturduğum tablo var
tüm tablo içinde hiç sormadan onay istemeden tek tuşla
klasik ctrl+h ile elle oluyor ama tuşla olmuyor
bul değiştir kaydet yaptıramıyorum yardımcı olurmusunuz.

merhaba arkadaşlar,
eklediğim jpeg de
1 nolu tabloda "BL-" ile başlayan renkler var.
fakat REC_RECETELER tablosunda ise bu renkler yok.
[Resim: https://resim.accesstr.net/do.php?img=12201]

1 nolu tabloda, renk numarası "BL-" ile başlayan rengin "BL-" den sonraki kısmı taboldaki gibi örneğin =19006  ve müşterisi de "D" ise
2 nolu tablodan bu renge bakacak, bakarken tüm renklerde "-"

iyi günler kolay gelsin
vba kodlarını kullanarak
Sayfa1 de 1. sütunda bulunan kelimeleri
Sayfa2 de 1. sütunda aratmak istiyorum
bulduğunda Sayfa2 de 2. sütun boş ise
Sayfa2 de 2. sütuna Sayfa1 deki 2. sütunundaki değeri yazdırmak istiyorum
bu konuda yardımcı olursanız memnun olurum