Private Sub Açýlan_Kutu18_AfterUpdate()
Dim rs As dao.Recordset
Set rs = CurrentDb.OpenRecordset("Select * From ILLER Where [ILLER]= '" & Me.Açýlan_Kutu18.Value & "'")
Me.FIYAT.Value = Empty
If Not rs.EOF = True Then Me.FIYAT.Value = rs("FIYAT").Value
rs.Close
Set rs = Nothing
End Sub
Buda DAO ile kod örneği.