Доступ к VBA SQL, где задан вопрос

Question

Мне нужна помощь. Когда я запускаю нижеприведенный запрос, я не получаю никаких результатов, если я включу часть номера Pkg в. Когда я запускаю запрос в Access, он работает нормально. примера Варса номера пакет 1_282 Rptdt 201301

Dim db As Database 'generic database object 
Dim rst As Recordset 'this is going to hold the query result 
Set db = CurrentDb 
Dim PKG As Double 
Dim rptDT As Double 
Dim wireDT As Date 

Set rst = db.OpenRecordset("SELECT Max(tbl_Revision.Revision_Number) as Revision_Number FROM tbl_Revision" & _ 
" where (tbl_Revision.RUN_YR_MO=" & rptDT & ")" & _ 
" and (tbl_Revision.Package_Number=" & PKG & ")") 

getRevision = rst!Revision_Number + 1 

Answer 1

PKG не может быть двойным, если вы хотите 1_282 работать. Поэтому сделайте строку. Также вам нужно будет добавить котировки:

" where (tbl_Revision.RUN_YR_MO='" & rptDT & "')" & _