Skip to main content

AccessTr.neT


Farklı Veri Kontrolü Yaptırma

Farklı Veri Kontrolü Yaptırma

Çözüldü #1
merhabalar,
[img][Resim: do.php?img=11399][/img]
eklemiş olduğum örnekte veri tipi aynı olanları veri aktar butonuna tıklayınca gecici tabloya kaydediyor,
sonrasında üstteki liste kutusundan yine başka bir veri seçip liste kutusuna aktar diyince veri tipi farklı olsa bile kaydediyor,

AMAÇ: alttaki liste kutusundaki veritipi ile üstten aktarmak istediğimiz verinin veri tipi aynı ise aktarsın,
aynı değilse veri tipi farklı olduğundan aktarmasın istiyorum, yardımcı olabilirmisiniz?
.rar veri tipi farklı olduğunda işlem yapma.rar (Dosya Boyutu: 33,81 KB | İndirme Sayısı: 6)
Cevapla
#2
buton kodunu aşağıdaki gibi düzenleyip dener misiniz?
sadece If DCount("*", "gecici", "veritipi<>" & x) > 0 Then MsgBox " veri tipi farklı": Exit Sub satırı eklendi
Visual Basic Code
Private Sub Komut10_Click()

Sayi = ""
Dim varItm As Variant
For Each varItm In Me.Liste8.ItemsSelected
x = CLng(Me.Liste8.Column(3, varItm))
If Sayi = "" Then Sayi = x 'Else Exit Sub

If Sayi <> "" Then
If Sayi = x Then
Sayi = x
Else
MsgBox "tipler farklı"
Exit Sub
End If
End If
10
Next varItm
If DCount("*", "gecici", "veritipi<>" & x) > 0 Then MsgBox " veri tipi farklı": Exit Sub '<<== eklenen satır
For Each varItm In Me.Liste8.ItemsSelected
CurrentDb.Execute "INSERT INTO gecici (sipno, kg, veritipi) VALUES(" & Me.Liste8.Column(0, varItm) & ", " & Me.Liste8.Column(1, varItm) & ", " & CLng(Me.Liste8.Column(3, varItm)) & ")"
Next varItm
Me.Liste11.Requery
End Sub
Cevapla
#3
Ben de ekteki gibi bir çalışmayla destek olmak istedim...
.rar veri tipi farklı olduğunda işlem yapma.rar (Dosya Boyutu: 41,25 KB | İndirme Sayısı: 4)
Cevapla
#4
sn üstadlar, merhaba,
gecici tablo ile ilgili yapılan işlemler sonuca ulaşıyor.

Bu işlemi yaparken liste kutusundaki veri sorgulanarak yapılabilir mi?
ben bu dosyayı örnek olarak ekledim, aslında gecici diye bir tablom yok,
yardımlarınız için teşekkür ederim,
saygılarımla
Cevapla
#5
If DCount("*", "gecici", "veritipi<>" & x) > 0 Then MsgBox " veri tipi farklı": Exit Sub yukardaki kısmı aşağıdaki kodla değiştirip dener misiniz?
Visual Basic Code
If Me.Liste11.ListCount > 0 Then If x <> Me.Liste11.Column(3, 1) Then MsgBox "veri tipi uygun değil": Exit Sub
Cevapla
#6
(17/11/2021 16:25)berduş Adlı Kullanıcıdan Alıntı: If DCount("*", "gecici", "veritipi<>" & x) > 0 Then MsgBox " veri tipi farklı": Exit Sub yukardaki kısmı aşağıdaki kodla değiştirip dener misiniz?
Visual Basic Code
If Me.Liste11.ListCount > 0 Then If x <> Me.Liste11.Column(3, 1) Then MsgBox "veri tipi uygun değil": Exit Sub
Visual Basic Code
If Me.Liste11.ListCount > 0 Then If x <> CLng(Me.Liste11.Column(3, 1)) Then MsgBox "veri tipi uygun değil": Exit Sub

sn üstad, teşekkür ederim,
liste kutusunun başına
CLng(Me.Liste11.Column(3, 1))
ekledim, 
bu şekilde çözüldü,
çok teşekkürler,
saygılarımla
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da