Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
14/01/2011 20:35
Konu Sahibi
HSayar
Yorumlar
4
Okunma
2357
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

HSayar

Aktif Üye
Aktif Üye
HÜ.... SA....
 39
 109
 16
 05/01/2011
0
 Edirne
 
 Ofis 2007
 09/03/2011,09:32
Çözüldü 
tblSAHIS tabllosunun ilcekodu alanı boş, il adı ve ilce adı alnları dolu ise Aynı veritabanında bulunan ytbl_MERNISILCEKOD tablosunda il adı ve ilce adı tblsahıstakilerle eşleşiyorsa ilçe kodunu alıp Tblsahıs.ılcekodu alanını güncelleyen kodları alpeki ve sleadgeab hocalarım sayesinde çözdüm.

ancak genel senaryoda böyle bir şey mümkün değil. MERNISILCEKOD tablosu başka bir veritabanı içinde olsa (idi ki öyle olmalı) mesala (vtKODLAR.MDB) aşağıdaki visiual basic kodları nasıl değişmelidir?




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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Private Sub Komut21_Click()
'sleadgeab / accestr
Dim kaynak_tablo_sql, hedef_tablo_sql, hedef_id, islem_sql As String
Dim sira As Integer
Dim ks As ADODB.Recordset
Set ks = New ADODB.Recordset

  DoCmd.SetWarnings False
        
    kaynak_tablo_sql = "SELECT VATNO, SHS_NKOIL, SHS_NKOILCE, SHS_NKOILCEKODU FROM tblSAHIS"
    ks.Open kaynak_tablo_sql, CurrentProject.Connection, adOpenStatic, adLockReadOnly

    Say = 0
      If Not ks.BOF And Not ks.EOF Then
        If ks.EOF <> True Then
          Do
            With ks
              
              If IsNull(.Fields("SHS_NKOILCEKODU")) Then
                Say = Say + 1
                If IsNull(.Fields("SHS_NKOIL")) Then
                  islem_sql = "UPDATE tblSAHIS SET tblSAHIS.SHS_NKOILCEKODU = '9999' WHERE (((tblSAHIS.[VATNO])='" & .Fields("VATNO") & "'));"
                  DoCmd.RunSQL islem_sql
                  GoTo ATLA
                End If
                
                If .Fields("SHS_NKOIL") <> "0" And .Fields("SHS_NKOILCE") <> "0" Then
                  ilimiz = .Fields("SHS_NKOIL")
                  ilcemiz = .Fields("SHS_NKOILCE")
                  hedef_id = Nz(DLookup("MRNS_ILCEKODU", "ytbl_MERNISILCEKOD", "MRNS_ILCEADI='" & ilcemiz & "'"), "9999")
                  
                    If hedef_id = "9999" Then
                      hedef_id = Nz(DLookup("MRNS_ILCEKODU", "ytbl_MERNISILCEKOD", "MRNS_ILADI='" & ilimiz & "' AND MRNS_DIGERILCEADI='" & ilcemiz & "'"), "9999")
                    End If
                  
                    If hedef_id = "9999" Then
                      hedef_id = Nz(DLookup("MRNS_ILCEKODU", "ytbl_MERNISILCEKOD", "MRNS_ILADI='" & ilimiz & "' AND MRNS_DIGERILCEADI2='" & ilcemiz & "'"), "9999")
                    End If
                  
                  islem_sql = "UPDATE tblSAHIS SET SHS_NKOILCEKODU ='" & hedef_id & "' WHERE VATNO='" & .Fields("VATNO") & "'"
                  DoCmd.RunSQL islem_sql
                Else
                  hedef_id = DLookup("TRF_PLKKODU", "ytbl_MERNISILCEKOD", "MRNS_ILADI='" & ilimiz & "'")
                  islem_sql = "UPDATE tblSAHIS SET SHS_NKOILCEKODU = 99 & '" & hedef_id & "' WHERE VATNO='" & .Fields("VATNO") & "'"
                  DoCmd.RunSQL islem_sql
                End If
                        
ATLA:
              End If
              ks.MoveNext
            End With
          Loop Until ks.EOF
        End If
        MsgBox "İşlem başarıyla tamamlandı. - DegKaySay: " & Say, vbInformation + vbOKOnly, "AccessTR.Net"
      Else
        MsgBox "Tabloda kayıt yok"
      End If
End Sub



Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 41
 11.269
 464
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,02:18
Çözüldü 
kodda oynama yapmadan bağlı tablo yöneticisini kullanarak vtKODLAR.MDB veritabanındaki herhangi bir tabloyu geçerli veritabanınızda kullanabilirsiniz.

bkz #37


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

HSayar

Aktif Üye
Aktif Üye
HÜ.... SA....
 39
 109
 16
 05/01/2011
0
 Edirne
 
 Ofis 2007
 09/03/2011,09:32
Çözüldü 
hocam Acces versiyonu olarak ofiste 2010 evde 2007 kullanıyıorum.
Bağlı tablo yöneticisini kullanamay inceleyeceğim. bununla ilgili forum dersi örnek uygulama ise link verir misiniz?
Ama illada kodlarla olsun dersek nasıl olmalıdır?



Kullanici Avatari

alpeki99

Düşünmek en zor iştir...
Uzman
OL....
 38
 6.120
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 30/08/2018,18:18
Çözüldü 
Köprü varken boğazı yüzerek geçeyim diyorsunuz yani Img-grin Ezbere iş yapmayalım geçen sorunuzda öyle yaptınız şartları değiştirdiğiniz için daha soruya bile bakasım gelmiyor. Tam olarak olması gerekenleri yazın ya da dosyaları (gerçekte nasılsa) koyun ona göre çözüm bakalım.


AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.

Kullanici Avatari

HSayar

Aktif Üye
Aktif Üye
HÜ.... SA....
 39
 109
 16
 05/01/2011
0
 Edirne
 
 Ofis 2007
 09/03/2011,09:32
Çözüldü 
En son indirdiğiniz dosyada yrd. tabloyu başka çalışma kitabına pardon mdb ye alınız. kalanı aynı değiştirmeyeceğim söz.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Bir Ürün Tablosundan Farklı Veriler Çekerek Sipariş Oluşturma Ve Ürün Fyat Güncelleme antoryum 9 253 07/08/2018, 08:38
Son Yorum: antoryum
Çözüldü Sorgu Ve Metin Kutusundan Tabloya veri kaydı raburabu 2 181 23/07/2018, 12:18
Son Yorum: raburabu
Çözüldü Form İçinde Tekrar Kaydı Engellemek ALTANs 15 541 10/07/2018, 21:11
Son Yorum: mehmetdemiral
Çözüldü Mükerrer Tarih Kaydı Hk. serkan1985 6 260 05/06/2018, 12:58
Son Yorum: serkan1985
Çözüldü Mükerrer Kaydı Engelleme Allback 4 306 13/04/2018, 13:37
Son Yorum: Allback

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.