verideki belli bir bölümü almak

erdem55 · 27-11-2010, 23:38

Arkadaşlar örnek dosyada 3 ayrı tablom mevcut bunlardan tablo alt olana tablo geçicinin içindeki verileri eklemek istiyorum. buraya kadar sıkıntı yok fakat ben ayrıca gecici dosyadan ekleme yapmadan önce bi kontrol yapmasını ve bu kontrol sonrasında anaid alanına bi id atasın istiyorum.
Anlatamıyorum. bir örnek vereyim
form SORGUr vs neyle olursa olsun geçici tablodaki d:\A\ali\ adlı veriyi çektiğimiz varsayarsak d:\ ve \aliyi silip A harfini tablo anadan kontrol edip id numarasını tblalt ın anaid kismina eklemek istiyorum.
yani tblalt a kaydı alırken
anaid 1 dosya ismi ali dosyayolu d:\a\ali\ olarak kaydetmem gerek ama verilerin sayısı değişik olduğundan len() komutu aklıma geldi ama az önceki nedenden dolayı onuda kullanamıyorum umarım sorunumu anlatabilmişimdir. Yardımcı olan herkese şimdiden çok tşk ederim.

Taruz · 28-11-2010, 02:48

Merhaba..

Bu fonksiyonu bir modüle kaydediniz..:

Visual Basic
Public Function trz(yol As String)
trz1 = InStrRev(yol, "\")
trz2 = Left(yol, trz1 - 1)
trz3 = InStrRev(trz2, "\") + 1
trz = Mid(yol, trz3, (trz1 - trz3))
End Function

Sorgu içinde bu şekilde kullananabilirsiniz..:

SQL
trz([dosyayolu])

d:\A\ali\ dosya yolunda A değerini alırsınız.. Alt klasör çoğalsa bile ilgili bölümdeki değer yine gelir.. Yani d:\A\ali\access\sql yolunda access değerini alırsınız.. Bu değer yardımı ile de gerekli kontrolü yapabilirsiniz..

adnanyurdakul · 28-11-2010, 03:17

Örneğiniz ekte
iyi çalışmalr

erdem55 · 28-11-2010, 13:53

Syn adnanyurdakul verdiğiniz örnek için çok tşk edeirm. Mükemmel çalışıyor. Fkat bi konu dikkatimi çekti. Syn taruz beyin verdiği kod daha çok işime yarayacak gibi çünkü sizin kodda ben A harfini değilde aliyi almak istesem sonra ali mehmet olsa kodlamamda hata çıkacak gibime geldi. Çünkü yanlış anlamadıysam mid komutu ile belli biz harf sayısından başlatıp belli bir karaktere kadar aldırmışsınız. kontrolharfi = Mid(rs(2), 4, 1) 4 cü harften sonraki ilk harfi al anlamı taşıyor yorumum yanlış değilse. Buna göre aliyi almak için 5,3 yazmam gerekecek ama ali sonrakinde mehmet olursa sadece meh i alabilecek. Ynede verdiğiniz emek için çok çok tşk ederim.

Syn Taruz bey elinize sağlık. Bu modulu frmdada aynı şekilde kullanabilirim sanırım kanaatimce kusura bakmayın accesste çok iyi değilim uzunca bi süreden sonra elime aldım cafeme bi film müzik prograı yapmaya çalışıyorum. Tekrar tşk ederim.

Taruz · 28-11-2010, 14:29

Merhaba..

Formda da kullanabilirsiniz elbette.. Hatta Adnan beyin prosedürüne entegre ederek direkt kayıt işmemini de gerçekleştirebilirsiniz..

erdem55 · 28-11-2010, 20:05

Syn Adnan bey ve syn Taruz bey ikinizede ayrı ayrı tşk ederim. iki ayrı kodu Taruz beyin önerisi ile birleştirdim fakat koyduğum şartta bi sorun var sanırım. Aşadaki kodu inceleyip hatamı söyleyebilirmisiniz acaba? Nasıl denersem deneyeyim ilk kaydı olması gerektiği gibi var diyo eklemiyo geri kalan kayıtları yine tabloya ekliyo.

Visual Basic
Private Sub Komut0_Click()
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
 
rs.Open "tblgececi", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs1.Open "tblalt", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
Do Until rs.EOF
    If rs!dosyayolu <> rs1!dosyayolu Then
        kontrolharfi = anamenu(rs(2))
        IDbul = DLookup("ID", "tblana", "dosya_adi ='" & kontrolharfi & "'")
        rs1.AddNew
        rs1(1) = CInt(IDbul)
        rs1(2) = rs(1)
        rs1(3) = rs(2)
        rs1.Update
    Else
        MsgBox "dosya mevcut"
     End If
 
rs.MoveNext
Loop
 
'eğer tblgececi yi tamamen silmek isterseniz aşağıdaki kodun koment' lerini kaldırın
'DoCmd.SetWarnings (False)
'DoCmd.RunSQL "delete from tblgececi"
'DoCmd.SetWarnings (True)
 
 
End Sub

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Access Ile Web Den Veri Almak Ve Güncelleme Yapmak.	karamurat42	0	345	08-10-2024, 15:42 Son Mesaj: karamurat42
	Ana Forma Bağlı Alt Formdaki Verilerin Ana Formda Toplamını Almak	ozan028	5	496	09-09-2024, 17:14 Son Mesaj: ozan028
	Farklı Tablodan Mükerrer Olmayan Bilgi Almak	bilservisci	5	535	17-12-2023, 18:04 Son Mesaj: dsezgin
	Access'e Excelden Dış Veri Almak	snapper	3	502	02-10-2023, 22:55 Son Mesaj: dsezgin
	Formda Isteğimize Göre Makbuzda Belli Yerlerin çıkmaması	ankaram	4	432	03-09-2023, 23:16 Son Mesaj: ankaram
	[FORM] Sürekli Formda Belli Bir Sütundaki Satırları Tek Bir Metin Kutusunda Birleştirme	dormin	4	632	18-01-2023, 14:29 Son Mesaj: dormin
	Başlıkları Aynı Olmayan EXcel Tablosunu Dosya Bul Butonu Ile Accese Veri Almak	snapper	1	517	17-12-2022, 03:13 Son Mesaj: dsezgin
	Aktif Formda Raporu Pdf Olarak Almak	ankaram	4	439	06-11-2022, 22:40 Son Mesaj: onur_can

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL