We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Function GetO(origin As String) As String Dim aob As AccessObject Dim db As Database Dim td As DAO.TableDef Dim rst As DAO.Recordset Dim strSQL As String Dim varResult As String MsgBox origin strSQL = "Select OUT.TCOMBI " & "FROM OUT " & "WHERE OUT.OUTCOMBI = '" & origin & "' " Set rst = CurrentDb.OpenRecordset(strSQL) If Not (rst.EOF And rst.BOF) Then GetO = DLookup("TCOMBI", "OUT") End If Set rst = Nothing End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Import multiple Excel files to different Access tables (same database) adding an extra column with the Excel`s filename||42||84|
|Open folder via explorer, but stop user from changing folder||6||41|
|Access Report Print Preview locking up the screen||14||47|
|What are the recommended security measures to put in place?||19||83|
Join the community of 500,000 technology professionals and ask your questions.