MS Access, значение ComboBox в SQL-заявлении

Question

Функция моей формы - позволить пользователю назначить другому пользователю задачу, это отлично работает. Пользователь выбирает, кому они хотят назначить задачу, через поле со списком, которое связано с БД доступа, теперь я пытаюсь реализовать эту функцию, я могу получить значение этого выбранного пользователя из поля со списком (путем сопоставления идентификатора в комбокс с идентификатором в БД, а затем нахождение электронной почты из этой строки, поэтому я могу вставить его в сообщение электронной почты Outlook, которое появляется, когда пользователь нажимает «Назначить» (код Outlook работает отлично, он просто не тянет значение из поля со списком, поэтому щелкните по нему, чтобы получить новый вид электронной почты Outlook, но поле «Кому» пусто, я также попытался напечатать переменную, которую я назначаю этому полю, чтобы убедиться, что это не проблема с кодом перспективы и он не замирает возвращает никакого значения).

Вот фрагмент кода, который не будет работать ....

Dim OutApp As Object 
Dim OutMail As Object 
Dim EmailSubject As String 
Dim EmailSendTo As String 
Dim MailBody As String 
Dim db As DAO.Database, rs As DAO.Recordset 
Dim s As String 
Dim sqlStatement As String 

Combo2.SetFocus 

Set db = CurrentDb 
Set rs = db.OpenRecordset("SELECT tblUsers.Email FROM tblUsers WHERE tblUsers.UserID = 'Combo2.Text ") 

Combo2 - название combobox

Answer 1

Может быть так?

Set rs = db.OpenRecordset("SELECT tblUsers.Email FROM tblUsers WHERE tblUsers.UserID = " & Combo2.SelectedItem.ToString()) 

Answer 2

Попробуйте это:

Если ваш идент Text попробовать это один:

Set rs = db.OpenRecordset("SELECT tblUsers.Email FROM tblUsers WHERE tblUsers.UserID = '" & Combo2.Text & "'") 

Однако, если ваш идент numeric попробовать это одно:

Set rs = db.OpenRecordset("SELECT tblUsers.Email FROM tblUsers WHERE tblUsers.UserID = " & Combo2.Text) 

Answer 3

I не совсем понимаю, как Access вступает в игру, поэтому, если это неправильно, я приношу свои извинения. Это, как я хотел бы сделать это в Access:

Dim OutApp As Object 
Dim OutMail As Object 
Dim EmailSubject As String 
Dim EmailSendTo As String 
Dim MailBody As String 
Dim db As DAO.Database, rs As DAO.Recordset 
Dim EmailTo as String 
Dim s As String 
Dim sqlStatement As String 

Combo2.SetFocus 

Set db = CurrentDb 
EmailTo = DLookup ("Email", "tblUsers", "tblUsers.UserID = '" & Combo2.Text & "'") 

Если Идентификатор_пользователя является INT, вы меняете бы ту последнюю линию:

EmailTo = DLookup ("Email", "tblUsers", "tblUsers.UserID = " & Combo2.Text & "") 

Кстати, вы сказали решение Edper в «Ждут» t возьмите что-нибудь ». Вы знаете, что «rs» не будет иметь реальной стоимости в этом сценарии, верно? RS («Отправить»), однако, так что если вы добавили:

EmailSendTo = rs("Email") 

после SQL строки, которые могут дать вам то, что вам нужно.