Borkod numarasını yazınca, Form'a istediğim bilgileri getiriyorum.
Dim SID As String
Dim stLinkCriteria As String
Dim VeriVarmi As Integer
VeriVarmi = Nz(DCount("Kimlik", "ETIKET_GIRIS", "[BARKOD2]='" & Me.PLTDZLT & "'"), 0)
If VeriVarmi <> 0 Then
Onay188 = Dlookup ("[IPTAL]", "ETIKET_GIRIS", "[BARKOD2]=" & "'" & Me.PLTDZLT & "'")
Metin192 = Dlookup ("[ACIKLAMA]", "ETIKET_GIRIS", "[BARKOD2]=" & "'" & Me.PLTDZLT & "'")
Onay190 = Dlookup ("[SATILDI]", "ETIKET_GIRIS", "[BARKOD2]=" & "'" & Me.PLTDZLT & "'")
Metin194 = Dlookup ("[SACIKLAMA]", "ETIKET_GIRIS", "[BARKOD2]=" & "'" & Me.PLTDZLT & "'")
Else
MsgBox ("Bu Barkoda Tanımlama Yapılmamış.")
Cancel = True
End If
İstediğim Düzeltmeleri yapıyorum fakat kaydet butonuna basınca update yapamadım . Kod aşağıda
CurrentDb.Execute "insert into ETIKET_GIRIS (Onay188, Metin192, Onay190, Metin194)" _
'& " select '" & Me.Onay188 & "' , '" & Me.Metin192 & "' , '" & Me.Onay190 & "' , '" & Me.Metin194 & "' "
ilgili örnek eklenmiştir.
