tablo değerlerini kontrol
Tarih
16/05/2012 15:06
Konu Sahibi
accessman
Yorumlar
5
Okunma
1164
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
iyi günler
bir tablomuz var
içinde tarihler ve izlemler vs var
bu tablotu mantıksal olarak kontrol etmemeiz lazım
nasıl mı
bir tarihteki mesela canlı bebek sayısı
daha önce olan bir tarihdeki canlı bebek sayısından az olmamalı
aynı olabilir ama fazla olmamalı
şöyle düşünelim
bir kadının izleminde toplam gebelik sayısı geçen sene 4 ise
bu sene 4 veya daha fazla olmalı
bunu nasıl kontrol edebiliriz
yani tarihe bakacak izlem değerine bakacak
aynı izlem aynı kişi için daha önce daha büyük değer girilmiş mi bakacak
tabiki bunu 500 hastanın toplam 2500 izlemi için yapacak
bir diğer ifadeyle
bir kişi için bir alandaki değer
daha önceki tarihlerde
daha küçük girilmiş mi bakacak
eğer girilmişse hastanın tc nosunu ve ilgili kaydı bir tabloya ekleyecek

Ek Dosyalar
izlem.rar

bir döngü hastaları tc no ya göre tarayacak
bir döngü izlem tarihlerine göre tarayacak
işlemde önceki veya sonraki izlemdeki değeri karşılaştıracak

Kod:
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
Private Sub Komut0_Click()
On Error Resume Next
Dim kim, ne As String
Dim sor, bul As String

Dim rs As New ADODB.Recordset
Dim ds As New ADODB.Recordset

sor = "SELECT kadin_izlem.Kimlikno FROM kadin_izlem ORDER BY kadin_izlem.Kimlikno;"
rs.Open sor, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

    rs.MoveFirst
    kim = rs.Fields("Kimlikno")

    
bul = "SELECT kadin_izlem.Kimlikno, kadin_izlem.YapilmaTar, kadin_izlem.CanliDogum FROM kadin_izlem WHERE (((kadin_izlem.Kimlikno)= kim)) ORDER BY kadin_izlem.YapilmaTar;"
ds.Open bul, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    
    ds.MoveFirst
    ne = ds.Fields("Kimlikno")
        
    'rs.Update
    ds.Close
    rs.Close
End Sub

bu kodda nerede yanlışlık var
birinci döngüde elde ettiğim ki değeri msgboxda hastanın tc sini veriyor
ama ikinci Sql sorgusunda kriter olarak görmüyor
bul sorgu dizesinde kim değerini nasıl kullanabilirim

@benbendedeilem
Cevapla


mk70
Aktif Üye
Kullanici Avatari
Aktif Üye
M.... K....
121
18/02/2010
37
Karaman
Ofis 2010 64 Bit
04/11/2016,21:11
Çözüldü 
Sayın accessman,
Tablonuzdaki kayıtlı kişi aynı kişi ise (ki öyle gibi görünüyor) kişi bilgileri tablosu ile izleme bilgileri tablosunu ayırmanız gerekmektedir. Bu bilgileri sorguda birleştirip sorgulamayı sorgu üzerinden yapmalısınız.
Ben çalışmanızı bu hale getirdim gerisi üstadlara kalıyor...


Ek Dosyalar
izlem1.rar
mk70, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
ilginiz için teşekkürler
@benbendedeilem
Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
çözümü ekliyorum
biraz zor oldu benim için ama güzel oldu

Kod:
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Private Sub Komut0_Click()
On Error Resume Next
Dim sor, bul As String

Dim tc, tcE As String
Dim yt, ytE As Date
Dim tg, tgE As Integer
Dim ilerle As Integer
Dim hatasay As Integer

Dim rs As New ADODB.Recordset
sor = "SELECT kadin_izlem.Kimlikno, kadin_izlem.YapilmaTar, kadin_izlem.ToplamGebelik, kadin_izlem.CanliDogum, kadin_izlem.OluDogum, kadin_izlem.YasayanCocuk, kadin_izlem.OlenCocuk, kadin_izlem.DusukSayi, kadin_izlem.ZorlaDusuk FROM kadin_izlem ORDER BY kadin_izlem.Kimlikno, kadin_izlem.YapilmaTar;"
rs.Open sor, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

    rs.MoveFirst
ilerle = 1
hatasay = 0
Do
    
If ilerle <> 1 Then
    If tcE = rs.Fields("Kimlikno") Then
        If ytE < rs.Fields("YapilmaTar") Then
            If tgE > rs.Fields("ToplamGebelik") Then
            
            
            Dim ds As New ADODB.Recordset
            ds.Open "hatali", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
            ds.AddNew
            ds.Fields("Kimlikno") = rs.Fields("Kimlikno")
            ds.Fields("YapilmaTar") = rs.Fields("YapilmaTar")
            ds.Fields("YapilmaTarE") = ytE
            ds.Fields("ToplamGebelik") = rs.Fields("ToplamGebelik")
            ds.Fields("ToplamGebelikE") = tgE
            ds.Update
            ds.Close
            Set ds = Nothing
               
               
            End If
        End If
    End If
End If

    tcE = rs.Fields("Kimlikno")
    ytE = rs.Fields("YapilmaTar")
    tgE = rs.Fields("ToplamGebelik")

    rs.MoveNext
ilerle = ilerle + 1
Loop Until rs.EOF

    
    rs.Close
    
End Sub

@benbendedeilem
Cevapla


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Dün,23:36
Çözüldü 
örnegin kendisinide son haliyle ekleseydiniz keşke
Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
tc numaraları ile uğraşmak istemedim
@benbendedeilem
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Tablo kayıtlarının başka tablolardaki kayıt durumuna göre çaprazlanması uguruygar 3 103 3 saat önce ozanakkaya
  Tablo ilişkilendirme kontrolü hakkında nightashes 2 51 08/12/2016, 23:49 nightashes
  Tablo dan Açılır Kutu ya alınan verilerek Sabit Ekleme yapma ask200075 7 275 21/11/2016, 18:49 ask200075
  Access Veritabanında Tablo Şifreleme ve Formdan Tabloya Bağlanma Nasıl Yapılır?? mehami 11 317 09/11/2016, 23:35 mehami
  Devir işlemi ve tablo güncelleme ates2014 2 133 01/09/2016, 15:40 ates2014


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