bu şekilde değiştir ve dene

Private Sub Açılan_Kutu68_AfterUpdate()
Dim esr As Variant
esr = Me.Açılan_Kutu68
Me.T6 = Dlookup ("SatisFiyati", "BARKOD", "ürünadı='" & esr & "'")
Me.T1 = Dlookup ("BarkodNo", "BARKOD", "ürünadı='" & esr & "'")
Me.T4 = Dlookup ("ürünadı", "BARKOD", "ürünadı='" & esr & "'")
Me.T6 = Dlookup ("SatisFiyati", "BARKOD", "ürünadı='" & esr & "'")
Me.Metin300 = Dlookup ("YAYIN_KODU", "BARKOD", "ürünadı='" & esr & "'")
Me.s1 = Dlookup ("SatisFiyati", "BARKOD", "ürünadı='" & esr & "'")
Me.u1 = Dlookup ("ürünadı", "BARKOD", "ürünadı='" & esr & "'")
Me.Metin70 = Dlookup ("BarkodNo", "BARKOD", "ürünadı='" & esr & "'")
Me.Metin73 = Dlookup ("VAR", "BARKOD", "ürünadı='" & esr & "'")
Me.Metin80 = Dlookup ("YENİFİYATI", "BARKOD", "ürünadı='" & esr & "'")
Me.Metin82 = Dlookup ("onay", "BARKOD", "ürünadı='" & esr & "'")
On Error Resume Next
Me.T1.SetFocus
If IsNull(T1) Or IsNull(T4) Or IsNull(T5) Then
MsgBox "BU YAYIN BARKOTUNU KONTROL EDİN..!! BU YAYIN YOK..!!", vbCritical, "DİKKAT"
DoCmd.RunCommand acCmdSelectRecord
Exit Sub
End If
Komut38_Click
Me.T1.SetFocus
Me.YCari_alt_formu3.Requery
Me.SORGU1.Requery
Me.T1.SetFocus
End Sub