+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: tablodan tabloya gönderme (/konu-tablodan-tabloya-gonderme.html)
Sayfalar:
1
2
Cvp: tablodan tabloya gönderme - akd - 29/01/2010
Malesef olmadı,
aynı müşteriye aynı kategoriden 1 den fazla kayıt yapılmasın yapmak istedim and kulandım neden olmadığını anlamadım.
If (DLookup("Katagori", "UrunSatis", "Katagori='" & [ktg] & "'") = [ktg] And Dlookup ("MstID", "UrunSatis", "MstID=" & [FrmID]) = [FrmID]) Then
MsgBox " Bu Kategoriden Daha Önce Kayıt Yapılmış...", vbInformation, "Akd.yazılım..."
Exit Sub
End If
Dim akd As ADODB.Connection, i As Integer
Set akd = Application.CurrentProject.Connection
akd.Execute " insert into UrunSatis(MstID, Katagori, Tanimlama, Aciklama, Siralama) select " & Me.FrmID & ", Katagori, Tanimlama, Aciklama, Siralama from [KategoriTanimlama] where Katagori='" & Me.ktg & "'"
akd.Execute "delete * from UrunSatis where Katagori <> Katagori "
akd.Close
Set akd = Nothing
Me.UrunSatis_alt_formu.Requery
Cvp: tablodan tabloya gönderme - Nurullah_Serdar - 29/01/2010
If (dcount("Katagori", "UrunSatis", "Katagori='" & [ktg] & "' and MstID=" & [FrmID]) <> 0 Then
bu şekilde değiştirirmisin.
Cvp: tablodan tabloya gönderme - akd - 29/01/2010
Çok çok teşekkür ederim sayın nurullah_serdar
eline sağlık..