Ayuda. Expresión en Msgbox con botón aceptar y cancelar

Cuando lanzas un msgbox, para que te ponga dos botones, tienes que indicárselo y además programar los eventos que quieras para cada uno y una variable que recoja el valor del botón pulsado.

Por ejemplo:

Dim respuesta as integer

respuesta= MsgBox ("Mensaje con botones Aceptar/Cancelar",vbOKCancel,"TITULO MENSAJE")

If respuesta=vbOK then

msgbox "Has pulsado Aceptar"

Else

msgbox "Has pulsado Cancelar"

End if

Fíjate que el msgbox en el primer caso lleva paréntesis. Si quieres poner botones de si/no, en vez de aceptar/cancelar, usarías vbYesNo y respuesta=vbYes.

Si en el editor de vba, coloca el cursor encima de la palabra msgbox y pulsa F1, se te abrirá la ayuda y allí puedes ver todas las opciones de botones y valores devueltos.

Gracias por contestar pero estoy un poco liado.

esto es lo que tengo en activar registro.

If IsNull(Form!IdNomMateria.Value) = True Then

MsgBox "Esta MATERIA no tiene datos para montrar"

End If Close

lo que quisiera es que mostrara los botones aceptar y cancelar si pulso aceptar que habrá el formulario pero si pulso cancelar cierre el box.

A ver si es esto lo que pides, porque me has liado con tu explicación:

Dim respuesta as Integer

If IsNull(Form!IdNomMateria.Value) = True Then
respuesta=MsgBox ("Esta MATERIA no tiene datos para mostrar",vbOkCancel)

if respuesta=vbCancel Then DoCmd.Close acForm, Me.Name
End If Close

De este modo, si pulsas aceptar no hace nada (entiendo que se te carga el formulario), y si pulsas cancelar, se cierra el box y el formulario.

Ya me dirás.

Perdona si no lo e explicado bien.

Lo que quiero es que en el box salga el botón aceptar y cancelar si pulso aceptar

me habrá el formulario MATERIA y si pulso cancelar no haga nada simplemente cierra el box.

Lo que he hecha yo me habré el formulario MATERIA tanto si pulso aceptar como cancelar.

Gracias un saludo.

Prueba a poner el código que te dije antes en vez del que tu tienes y si no te sirve, prueba a poner este otro en el evento al abrir del formulario, en vez de en Al activar registro:

Dim respuesta as Integer

If IsNull(Form!IdNomMateria.Value) = True Then
respuesta=MsgBox ("Esta MATERIA no tiene datos para mostrar",vbOkCancel)
if respuesta=vbCancel Then Cancel=True
End If Close

Siento darte tanto la lata pero es que no me funciona ninguno de los dos

Private Sub Form_Open(Cancel As Integer)

Dim respuesta As Integer
If IsNull(Form!IdNomMateria.Value) = True Then

respuesta = MsgBox("Esta MATERIA no tiene datos para mostrar", vbOKCancel)

If respuesta = vbCancel Then Cancel = True

End If Close

End Sub

el End If Close queda marcado en rojo no se si es por algún problema.

Si, disculpa, sobra el close, me lo pegó de otro lado.

Vamos aver si me aclaro de una vez te explicare desde el principio.

Tengo un menu de opciones con varias opciones entre ellas hay una de colegio que al pulsar me habré un cuadro combinado donde me da a elegir las materias Matemáticas, Ingles etc.

Al pulsar la elegida me habré el formulario de la materia elegida por eso quisiera que si hay alguna materia sin datos me habré el Box informando que dicha materia no tiene datos.

El que me as mandado cuando le doy a cancelar sale.

Se ha producido el error '2501' en tiempo de ejecución:

La acción OpenForm se cancelo.

Pulso en depurar donde tengo lo siguiente

Private Sub Cuadro_combinado80_Click()

If VarType(Me.Cuadro_combinado80) = vbNull Then MsgBox "Elige el gasto.", vbCritical + vbOKOnly, "Error"

Else

DoCmd.OpenForm "Consulta_Materia", , , "[IdNomMateria] = " & Me.Cuadro_combinado80 DoCmd.Close acForm, "Opciones"

End If

End Sub

Marca en amarillo lo subrayado.

Opciones es el menu de opciones.

Gracias.

Vale, eso es que el código que te dí funciona, pero hay que modificar este otro. Prueba así:

Private Sub Cuadro_combinado80_Click()

on error goto sol_err
If VarType(Me.Cuadro_combinado80) = vbNull Then MsgBox "Elige el gasto.", vbCritical + vbOKOnly, "Error"
Else
DoCmd.OpenForm "Consulta_Materia", , , "[IdNomMateria] = " & Me.Cuadro_combinado80 DoCmd.Close acForm, "Opciones"
End If

sol_err:

If err.number=2501 Then resume next

End Sub

Si aún así no te va, haz una cosa:

Haz una copia de tu bd, borra los datos que puedan ser confidenciales, y pásame la copia. Para eso, vete a www.filebig.net, le das a seleccionar archivo, buscas la copia, le das a start upload, y cuando acabe, me pegas aquí el primer enlace que salga.

http://filebig.net/files/MRaXXZJ4wn

hay va.