Kriterlere Göre Kayıt Güncelleme
Tarih
30/01/2014 00:35
Konu Sahibi
orderyazbim
Yorumlar
4
Okunma
1527
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



orderyazbim
Aktif Üye
Kullanici Avatari
Aktif Üye
56
17/12/2010
0
İstanbul
Belirtilmemiş
Bugün,15:53
Çözüldü 
Sponsor Reklam
Tüm arkadaşlarıma iyi akşamlar dilerim. Aşağıda gönderdiğim Vb kodunda formdaki kriterlere göre ilgili tabloda kayıt bulup güncelleme yapıyorum. Sorun şu Eğer bu kriterlerden birine uygun bir kayıt yoka güncellemeyi pas geçip tabloda yeni bir kayda gidip kayıt yapabilirmiyiz. Yadımlarınız için teşekkür ederim. Saygılarımla.
Kodumuz;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub L7_DblClick(Cancel As Integer)
Dim Kriter As String
If Len(Me.birimkodu) > 0 Then
Kriter = Kriter & "tbl_brmkodu LIKE '%" & Me.birimkodu & "%' AND "
End If
If Len(Me.aktiftarih) > 0 Then
Kriter = Kriter & "tbl_tarih LIKE '%" & Me.aktiftarih & "%' AND "
End If
If Len(Me.islmkodu) > 0 Then
Kriter = Kriter & "tbl_islmkodu LIKE '%" & Me.islmkodu & "%' AND "
End If
If Len(Me.islmaltadı) > 0 Then
Kriter = Kriter & "tbl_islmaltadı LIKE '%" & Me.islmaltadı & "%' AND "
End If
If Len(Kriter) > 0 Then
Kriter = " WHERE " & Left(Kriter, Len(Kriter) - 4)
End If

'Bu kriterlere uygun kayıt varsa güncellemeyi yapıyor
'Eğer bu kriterlere uygun kayıt yoksa yeni kayda gidip bilgi kaydnı yapsın

strSQl = "SELECT * FROM tbl_olaylar " & Kriter & ";"
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQl, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Update
.Fields("tbl_brmkodu") = Forms![frm_trhdizini].Form![birimkodu]
.Fields("tbl_tarih") = Forms![frm_trhdizini].Form![aktiftarih]
.Fields("tbl_islmkodu") = Me.[islmkodu]
.Fields("tbl_kö") = Me.[sayı1]
.Fields("tbl_ke") = Me.[sayı1]
.Update
End With
End Sub


Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.184
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,12:59
Çözüldü 
Örnek uygulamanızı ekleyiniz.

Site Kuralları:
3-) Sorulara örnek uygulama eklemek zorunludur. Ekleyeceğiniz dosyaların içinde resim vb. yer kaplayacak şeyleri silin. Gereksiz tüm verileri silip sadece sorunu anlatacak örnek veri giriniz ve asla gerçek şahıs/kurumlara ait veri bırakmayınız. Dosyanızda önce Access ile Veritabanı Sıkıştır ve Onar işlemini uygulayınız. Daha sonra herhangi bir sıkıştırma programı ile (WinRar/WinZip/7Zip vb.) Sıkıştırma Yöntemi En İyi (Best) olacak şekilde sıkıştırınız.
Dosya Düzenle Onar ve WinRar ile Sıkıştırma İşlemi 
[Uyarı Puanı: +2]

Cevapla

orderyazbim
Aktif Üye
Kullanici Avatari
Aktif Üye
56
17/12/2010
0
İstanbul
Belirtilmemiş
Bugün,15:53
Çözüldü 
Sponsor Reklam
Öncelikle ilgiliniz ve uyarınız için teşekkür ederim. Örneğimi düzenleyip kısmet olursa yarın akşam ekleyeceğim. Saygılarımla. İyi çalışmalar.
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.184
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,12:59
Çözüldü 
Sql WHERE deyiminde hata  linkine eklediğiniz örnek uygulamayı düzenledim.
İnceleyiniz, koddaki eksik ayanları uygulamanıza göre düzenlersiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Dim Kriter As String
If Len(Me.birimkodu) > 0 Then
    Kriter = Kriter & "tbl_brmkodu LIKE '%" & Me.birimkodu & "%' AND "
End If
If Len(Me.tarih) > 0 Then
    Kriter = Kriter & "tbl_tarih LIKE '%" & Me.tarih & "%' AND "
End If
If Len(Kriter) > 0 Then
    Kriter = " WHERE " & Left(Kriter, Len(Kriter) - 4)
End If
    strSQl = "SELECT * FROM tbl_ameliyatalt " & Kriter & ";"
    Set rstkayit = New ADODB.Recordset
    rstkayit.Open strSQl, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    With rstkayit
        If Not rstkayit.EOF Then
            Me.ydshpl = .Fields("tbl_ydokukö")
            Me.ydshpz = .Fields("tbl_ydokuköa")
            Me.sdshpl = .Fields("tbl_sdokukö")
            Me.sdshpz = .Fields("tbl_sdokuköa")
        Else
            .AddNew
            If MsgBox("" & Me.birimkodu & " Birim Kodlu ve " & Me.tarih & " tarihli yeni kayıt eklensin mi?", vbInformation + vbYesNo) = vbYes Then
                .Fields("tbl_brmkodu") = Me.birimkodu
                .Fields("tbl_tarih") = Me.tarih
                .Update
            End If
        End If
    End With
Recalc




Ek Dosyalar
.rar   KriterYeniKayitSLD.rar (Dosya Boyutu: 21,7 KB / İndirme Sayısı: 25)
Cevapla

orderyazbim
Aktif Üye
Kullanici Avatari
Aktif Üye
56
17/12/2010
0
İstanbul
Belirtilmemiş
Bugün,15:53
Çözüldü 
Sponsor Reklam
Sayın ozanakkaya ilgi ve alakanızdan dolayı teşekkür eder saygılarımı sunarım. Örneği uygulayacağım. Sorun devam ederse örnek uygulama ile bilgilerinize tekrar baş vururum.

Teşekkürler.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Gelen sonuca göre otamatik metin yazdırma hknct 13 249 16/01/2017, 16:35 hknct
  Firmaya göre Ödeme Şekli ayrımı ile Toplam değerleri form üzerinde gösterme metınaycıcek 4 188 12/01/2017, 23:27 metınaycıcek
  Listbox tarihe göre sıralatma mustim1547 5 211 12/01/2017, 16:49 mustim1547
Question Tedarikçilere göre toplam alma ve form üzerinde gösterme safakben 5 150 12/01/2017, 12:58 atoz112
  Tarihe Göre Toplamlar Görüntüleme Serkan Çevik 3 88 10/01/2017, 22:02 Serkan Çevik


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya