merhabalar,
ekteki veritabanı, bir adet tablo ve formdan oluşuyor. yapmak istediğim, tablodaki "ad" "soyad" bölümünde yazan kısım hariç, kalanları bir kayıttan diğerine kopyalayabilmek. (örneğin, bir butona tıklayınca; ilk kayıttaki "ali veli" için "ülke", "şehir", "yaş" ve "okul" alanlarında bulunan veriyi "yasin k" ve "emre y" içindeki ilgili alanlara kopyalamak istiyorum)
yardımlarınızı bekliyorum.
teşekkürler
Güncelleme Sorgusu ile yapılmış örneğiniz ektedir.
Ancak bu işi devamlı mı yapacaksınız, yoksa bir kereye mahsus mu belli değil.
Ayrıca tablonuzda bir anahtar alan bile yok, bu şekilde doğru değil.
SERUZ merhaba,
üstad haklısınız:
yeni bir anahtar alan oluşturdum.
bir de bu işi devamlı yapacağız.
aslında bu konuyu bu proje için yapmayacağız, kafamızda yeni proje sadece taslak olarak var ancak size üzerinde çalışılabilecek bir veritabanı vermek için oluşturduk.
istediğimiz fonksiyon şu: diyelim ali veli için girilen kayıtları başka kayıtlarda da kullanmak isteyeceğiz. bunu da, ali veli kaydı içinde iken, (ilk gönderdiğim db içinde olmayan sonradan eklediğimiz form içindeki) KOPYALA butonuna tıklayarak yapmak istiyoruz. bu butona tıklayınca, bize ali veli kaydında yer alan "ülke", "şehir", "yaş" ve "okul" alanlarındaki kayıtları db içinde halihazırda mevcut olan (örneğin yasin y) kaydına ve ilgili "ülke", "şehir", "yaş" ve "okul" alanlarına kopyalamasını istiyoruz. tabi burada kopyalama yapılacak yeri de bize sorması gerekiyor ki orayı seçebilelim. bunu da şu şekilde düşündük: bi listboxt yaptık, ad-soyad'ı seçip o kayda kopyalama yapmak güzel olur. (bu arada yeni db ekte)
yeniden düzenlediğimiz db'de, ülke alanı da combobox oldu bu arada..
biraz uzun oldu ama umarım anlatabilmişimdir. ilgilinize teşekkürler.
Gün içinde fırsat bulduğumda bakacağım.
"Lütfen dosyalarınızı sıkıştırıp gönderin" diye ısrarla belirttiğim halde yine direkt mdb olarak göndermişsiniz.
Gönderdiğiniz dosya 276kb iken "Düzenle ve Onar" yapıp RAR olarak sıkıştırdıktan sonra sadece 15kb oluyor.
seruz hocam kusura bakmayın, dalmışım
bından sonra dikkat ederim.
teşekkürler,
Örnek ektedir.
Kod:
Private Sub Command7_Click()
Dim Secilen_ID
'Uyarı mesajları kapatılıyor
DoCmd.SetWarnings False
'Listeden seçilenler tek tek işleme alınıyor
For Each Secilen_ID In Me.Kopya_Listesi.ItemsSelected
'Formda görünen kişinin bilgileri seçilen kişiye kopyalanıyor
DoCmd.RunSQL "Update Table1 Set ülke=forms!form1.ülke, şehir=forms!form1.şehir, yaş=forms!form1.yaş, okul=forms!form1.okul Where Kisi_ID=" & Secilen_ID
'Listedeki seçim kaldırılıyor
Me.Kopya_Listesi.Selected(Secilen_ID) = False
Next Secilen_ID
'Liste güncelleniyor
Me.Kopya_Listesi.Requery
'Uyarı mesajları açılıyor
DoCmd.SetWarnings True
End Sub