Usar dato de Inputbox en DoCmd.RunSQL

[cyberagente]

Dentro de mi función tengo una sentenciasentencia SQL en la cual en vez de coger el dato del InputBox me lo sigue preguntando. ¿ Cómo hago para que me coja el que le he metido en el InputBox ?

SubGrupo = InputBox("¿ Cuál es el SUBGRUPO ?")

DoCmd.RunSQL "UPDATE tabla SET tabla.SubGrupo = ""Z"" WHERE tabla.[SubGrupo]= " & SubGrupo & "; "

Yo creía que se hacía así, pero me sigue preguntando SubGrupo

[black_devil]

Hola, mira lo que hago yo para hacer una búsqueda con un inputbox y luego ejecutarla en una sentencia sql, algo así :

En un módulo, declaro el inputbox...

declaro...

Código:

Public SubGrupo As String

Realizo una función para colocar el inputbox

Código:

Public Sub buscarsubgrupo(a)
On Error GoTo Errores
SubGrupo = InputBox("Ingrese el subgrupo a buscar: ", "Búsqueda por Subgrupo", "Ej. 1")
Exit Sub
Errores:
End Sub

En el formulario, donde tengas tu sentencia SQL "Ej. un botón"

Código:

Private Sub cmdactualizar_Click()
On Error GoTo Errores
'llamada a la función
buscarsubgrupo(a)
'yo hago la actualización de otra forma
sql = "UPDATE TABLA SET TABLA.SubGrupo = 'Z' WHERE TABLA.Subgrupo =  '" & SubGrupo & "'"   '<--- aca llamo a mi inputbox
cn.Execute sql

'NOTA MODIFICA TU SENTENCIA COMPARANDOLA CON LA MIA

'DoCmd.RunSQL "UPDATE tabla SET tabla.SubGrupo = ""Z"" WHERE tabla.[SubGrupo]= " & SubGrupo & "; "

Exit Sub
Errores:
End Sub

Espero te sirva...