Skip to main content

AccessTr.neT


Veri tekrarı

Veri tekrarı

Çözüldü #1
Ekteki veritabanımdaki Tablo1 de Kimlik, İl, İlçe ve SeminerTarihi alanları var. İstediğim şu: Aynı il, ilçe ve tarihte ikinci bir seminer eklenmesin tabloya. Örneğin: Aydın ili Nazilli İlçesi 01/02/2012 tarihli iki tane veri olmasın.
Aynı ilçede farklı tarihte seminer düzenleyebiliriz.
veya;
aynı tarihte farklı bir ilçede de seminer düzenleyebiliriz.
bu sınırlamayı nasıl yapabilirim acaba?
ilginize teşekkür ederim.
.rar Veritabanı2.rar (Dosya Boyutu: 9,43 KB | İndirme Sayısı: 4)
mehcengiz, 06-03-2010 tarihinden beri AccessTr.neT üyesidir
Cevapla
Çözüldü #2
En basit yöntem Tablonun tasarım görünümünde açarak il,ilçe,tarih alanlarını seçip Primary key yapmandır.
Araç çubuğundaki sarı anahtar komutu ile.
Kolay Gelsin.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #3
Teşekkür ederim
mehcengiz, 06-03-2010 tarihinden beri AccessTr.neT üyesidir
Cevapla
Çözüldü #4
primary key yapılırsa tekrara izin verilse bile aynı ilçede seminer olabileceği için farklı tarihte sorun yaratır
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
Çözüldü #5
Abi tarihide primary key yaptığımızdan farklı tarihlerde yapılmasına izin verecektir.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #6
kod



Option Compare Database
Public rstkayit As ADODB.Recordset
Dim strSQL As String
Const tarfor = "\#mm\/dd\/yyyy\#"
Private Sub Komut16_Click()
Call arakaydet
End Sub
Function arakaydet()
Dim strWhere As String
' kriter alanlarını kontrol ediyoruz
If Len(Me.tarih & vbNullString) > 0 Then
strWhere = strWhere & "Tablo2.tarih= " & Format(Me.tarih, tarfor) & "AND "
End If
If Len(Me.ilce & vbNullString) > 0 Then
strWhere = strWhere & "Tablo2.ilce='" & Me.ilce & "' AND "
End If
If Len(Me.semineradi & vbNullString) > 0 Then
strWhere = strWhere & "Tablo2.semineradi='" & Me.semineradi & "' AND "
End If
' where ekleme ve fazla and leri kaldırma
If Len(strWhere) > 0 Then
strWhere = " WHERE " & Left(strWhere, Len(strWhere) - 4)
End If

strSQL = "SELECT * FROM Tablo2 " & strWhere & ";"
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockReadOnly

If Not rstkayit.BOF And Not rstkayit.EOF Then
MsgBox "BU TARİH VE BU İLÇEDE YAZDIĞINIZ SEMİNER BULUNMAKTADIR."
Else
strSQL = "SELECT * FROM Tablo2 "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.AddNew
.Fields("tarih") = Me.tarih
.Fields("ilce") = Me.ilce
.Fields("semineradi") = Me.semineradi
.Update
End With
MsgBox "KAYDINIZ YAPILDI ALANLAR BOŞALTILDI"
Me.tarih = ""
Me.ilce = ""
Me.semineradi = ""
End If
End Function
.rar deneme.rar (Dosya Boyutu: 32,74 KB | İndirme Sayısı: 12)
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task