Kod:
Dim GPresNo As Integer
GPresNo = "-" & Me.PRES.Column(0)
Dim rs As DAO.Recordset
Sorgu = "TBL_URUNLER" & GPresNo
Set rs = CurrentDb.OpenRecordset("SELECT Kimlik, * FROM [" & Sorgu & "] WHERE [MAMULKODU]=" & "'" & Me.MAMULKODU & "'")
If rs.RecordCount <> 0 Then
With rs
Me.PRESADI = .Fields("PRES_ADI")
Me.OC1 = .Fields("OC1")
Me.OC2 = .Fields("OC2")
Me.OC3 = .Fields("OC3")
Me.OC4 = .Fields("OC4")
Me.OC5 = .Fields("OC5")
Me.OC6 = .Fields("OC6")
Me.OC7 = .Fields("OC7")
Me.YOLLUK_AD = .Fields("YOLLUK_AD")
Me.YOLLUK_TIPI_SOGUK = .Fields("YOLLUK_TIPI_SOGUK")
Me.YOLLUK_TIPI_SICAK = .Fields("YOLLUK_TIPI_SICAK")
Me.BOYA_ADI = .Fields("BOYA_ADI")
End With
Else
MsgBox ("prese ait veri bulunamadı")
End If
rs.Close
Set rs = Nothing