Skip to main content

AccessTr.neT


Alandaki verileri nasıl değiştirebilirim.?

Alandaki verileri nasıl değiştirebilirim.?

Çözüldü #1
Merhaba arkadaşlar,

Benim sıkıntım şu;
ADSOYAD ve MESLEGI adında iki tane alanım var ve;

"MESLEGI" alanındaki veriler "ADSOYAD" alanına yazılmış. Şu şekilde

ALİ VELİ(NAKLİYECİ)

Parantez içinde yazılmış olan bilgileri nasıl silebilirim veya MESLEGI kutusuna nasıl aktarabilirim. Bununla ilgili bir kod veya formül varmı acaba?

Bana bu konuda yardımcı olabilirseniz çok ama çok sevinirim. Şimdiden herkese çok teşekkür ederim.
Cevapla
Çözüldü #2
Örnek nerde? Sen örneğini göndereceksin ki yardım edebilelim, değil mi???
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #3
Öncelikle ilginize çok teşekkür ediyorum. Örneği ekledim. Yardımcı olabilirseniz çok müteşekkir olacağım

[uyari]Forum Kuralları Madde 18[/uyari]
.rar DENEME.rar (Dosya Boyutu: 85,59 KB | İndirme Sayısı: 11)
Son Düzenleme: 16/04/2009, 12:30, Düzenleyen: teo81a.
Cevapla
Çözüldü #4
Forma buton ekle, tıklama olayına aşağıdaki kodu yaz.

Kod:
strSQL = "SELECT * FROM KEFIL "
Set rsyenile = New ADODB.Recordset
rsyenile.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rsyenile
.Find "[ORTAK_NO]=" & Me.ORTAK_NO
.Update
.Fields("MESLEGI") = Mid([ADSOYAD], InStr(1, [ADSOYAD], "(") + 1)
.Update
End With
Me.Mesleği.Requery

Cevapla
Çözüldü #5
Ustadım çok tşk ederim. Tamam bakıp deneyeceğim tekrar görüş bildiririm duruma göre. tekrar tekrar çok teşekkür ederim ilgi ve alakanıza.
Söylediğiniz gibi yaptım oldu ve parantez içinde yazılan veriyi meslek alanına ekledi fakat o parantez içinde yazılan (eski verileri) sildirme şansımız olamaz mı? parantezlerde dahil. sadece adı ve soyadı kalsın yani
Son Düzenleme: 16/04/2009, 13:53, Düzenleyen: teo81a.
Cevapla
Çözüldü #6
verdiğim kodaki
Kod:
.Fields("MESLEGI") = Mid([ADSOYAD], InStr(1, [ADSOYAD], "(") + 1)
hemen altına aşağıdakini ekle,

Kod:
.Fields("ADSOYAD") = Left([ADSOYAD], InStr(1, [ADSOYAD], "(") - 1)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task