İLİŞkİLİ TABLOLAR ARASI KAYIT SORUNU

[mustafa_f4]

arkadaşlar herkese selamlar,

yaptığım çalışmayı ekliyorum, benim sorunum şu ;

birbirleriyle ilişkili çalışan combobox'lardan seçtiğim data' yı başka bir tablo da istadiğim alana atmak istiyorum ancak o data daha önceden atılmış mı atılmamış mı önce kontrol etmeli daha sonra kayıt etmeli , bu sorunuma çözüm olacak vb kodlarını hazırlayabilriseniz sevinirim,

umarım bu çalışma bütün arkadaşlara referans ve yardımcı olacaktır,,

, şimdiden herkese teşekkürler

 

[mustafa_f4]

gençler bir örnek veya acele bir cvp beklemekteyim

saygılarımla....

 

[mehmetdemiral]

Sayın Mustafa f4 .. Özür dileyerek birşey sormak istiyorum size. 31.01.2006 tarihinde bu siteye kayıt yaptırıp nasıl bu kadar süre içinde (yaklaşık 2 yıl) bu mesaja kadar sadece 2 mesaj gönderdiniz. Sürekli beklemede mi kaldınız? Merakımdan soruyorum yanlış anlamayın sakın. eleştiri falan değil yani.. Sorunuzla da ilgileneceğim şimdi..

 

[mehmetdemiral]

Bununla ilgili olarak birkaç gün çnce yine bu formda arkadaşlardan biri mükerrer kayıt adıyla bir word dosyası eklemişti. Ben onun içini aşağıya aynen yapıştırıyorum. Size yardımı olacaktır.



arkadaşlar mükerrer kayıt ile ilgili kod lazımsa kalın yazılı olan yerleri kendi formunuza göre düzeltip uyarlayın

olay>güncelleştirme öncesi>kod oluştur açılan yere aşağıdakileri uyarlayın

adı soyadı olan yer mükerrer kayıt kontrol edilmesi gereken yer giriş ise forumun ismi

kolay gelsin

Alıntı:
Private Sub adısoyadı_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[adısoyadı].Value
stLinkCriteria = "[adısoyadı]=" & "'" & SID & "'"
If DCount("[adısoyadı]", "giriş", stLinkCriteria) > 0 Then
'Undo duplicate entry
MsgBox "Girmekte Oldugunuz " _
& SID & " isim Daha Önce İşlenmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "Mükerrer Kayıt"

End If
End Sub


Not: Bu arada sözü geçen kalın yazılı yerleri burada göremiyoruz. Ben adlarını yazayım.
1- adısoyadı
2- giriş
3- isim

Bu ifadeler sizin verilerinizdekilerle yer değiştirecek..

 

[mustafa_f4]

Sayın Mustafa f4 .. Özür dileyerek birşey sormak istiyorum size. 31.01.2006 tarihinde bu siteye kayıt yaptırıp nasıl bu kadar süre içinde (yaklaşık 2 yıl) bu mesaja kadar sadece 2 mesaj gönderdiniz. Sürekli beklemede mi kaldınız? Merakımdan soruyorum yanlış anlamayın sakın. eleştiri falan değil yani.. Sorunuzla da ilgileneceğim şimdi..

sayın mehmetdemiral dediğiniz gibi uzun süredir beklemedeydim , o tarihte siteyi bir arkadaşın tavsiyesiyle üye olmuştum ama çok uzun zamanlar siteye girmedim ama bundan sonra daha aktif olmaya çalışacağım bende ,, sanada cvp için teşekkür ederim

 

[mehmetdemiral]

Bu arada gönderdiğiniz dosyanın access dosyası olmadığını farkettim. Uzantısı tanımadığım bir uzantı.. Nedir o?

 

[mustafa_f4]

Bu arada gönderdiğiniz dosyanın access dosyası olmadığını farkettim. Uzantısı tanımadığım bir uzantı.. Nedir o?

dosya access ancak office 2007 kurulu ondandır bende şimdi baktım excel dosyaları içinde öyle oluyor zannediyorum ...

 

[mehmetdemiral]

Doğru.. Ama seçeneklere girerek kaydetme bölümünden dosya formatını seçebilirsiniz. Böylece çalışmalarınız eski access formatında kaydedilir.

 

[msonmez]

Sayın Mustafa_f4,

ezio.accdb yi Eski Access formatına çevirebilirmisiz.

Saygılarımla.

 

[mustafa_f4]

msonmez ekte yapmak istediğim çalışmanın denemesini tamamladım bundan faydalanabilirsin saygılarımla...