erro : run time error 2501

bem é assim chamo um Form mas se cancelar da o seguinte erro :

run time error ´2501´
A acção ´open form´ foi cancelada

como passar por cima deste problem ?

bem é assim chamo um Form...

Assim como? Todos os detalhes são importantes.

E quais são as funções utilizadas?

tenho la por exemplo o seguinte código :
Private Sub btImprimir2_Click()
If IsNull(Me!cboLista.Value) Then
MsgBox "...", vbInformation, "..."
Exit Sub
End If
DoCmd.OpenForm Me.cboLista.Column(2)
End Sub

se fizer debug marca a linha :
DoCmd.OpenForm Me.cboLista.Column(2) em amarelo

Tente colocar a linha que abre o form dentro do bloco If:

Código:

f IsNull(Me!cboLista) Or Me.cboLista.Value = "" Then
    MsgBox "...", vbInformation, "..."
Else
    DoCmd.OpenForm Me.cboLista.Column(2)
End If

Obrigado... mas não resultou !

boas...
n/ se utilizando irei dizer boas manhãs ( rs rs rs )

Private Sub btImprimir2_Click()
If IsNull(Me!cboLista.Value) Then
MsgBox "...", vbInformation, "..."
Else
DoCmd.OpenForm Me.cboLista.Column(2)
End If


Da o mesmo erro... mesmo que feche com:

End Sub

sendo uma maçada quando queremos cancelar a consulta que estamos a efectuar... Obrigado a atenção de todos os " mestrianos "
( obs.: acordei com vontade de aumentar nomes ao Dicionário Português )

A primeira linha da sua função está diferente da que eu passei. Tente utilizar da forma que passei, usando o Null e o sem nada (""). Um é diferente do outro e muitas das vezes resolve dessa forma.

Private Sub btImprimir2_Click()
If IsNull(Me!cboLista) Or Me.cboLista.Value = "" Then
MsgBox "...", vbInformation, "..."
Else
DoCmd.OpenForm Me.cboLista.Column(2)
End If
End Sub

Criquio... meu amigo como tenho é assim... você Companheiro mandou o seguinte :

If IsNull(Me!cboLista) Or Me.cboLista.Value = "" Then
MsgBox "...", vbInformation, "..."
Else
DoCmd.OpenForm Me.cboLista.Column(2)
End If

... penso que a diferença esta :

Private Sub btImprimir2_Click()
.
.
.
End Sub

Será que estou a ver bem ? e experimentei sem ("") e nada . . . erro mantem-se.
Desculpa Criquio ! e Obrigado mas esta confuso...

O nome do formulário está mesmo na coluna 2? Talvez esteja na coluna 1. Se a sua combo tiver apenas duas colunas, são elas as colunas zero e um. Assim, ou o nome está na coluna 0 ou na coluna 1.

Criquio...
- você diz :

O nome do formulário está mesmo na coluna 2? Talvez esteja na coluna 1. Se a sua combo tiver apenas duas colunas, são elas as colunas zero e um. Assim, ou o nome está na coluna 0 ou na coluna 1.

Criquio a combo tem 3 Linhas( Colunas ) se eu colocar 1, ou mesmo 0 diz que o Form não existe... Criquio se eu em vez de Cancelar der a data Inicial e Final - Funciona apenas acontece com o Cancelar . . .

Mas como é esse Cancelar? Quando abrimos um formulário através de um botão ou algo do gênero, não existe opção de cancelar a abertura. Explique esse Cancelar.

Ainda está meio confuso isso aí. Esse "onde podemos colocar a Data e depois OK ou Cancelar..." a que você se refere está no formulário ou é a caixa de parâmetro de uma consulta? Se for a segunda opção, e ao que parece é, mude o parâmetro da consulta para verificar os campos de data no formulário ao invés de abrir essa caixa de parâmetro.

ui !
agora você bateu em mim... rs rs rs
sim criquio é a caixa de parâmetro de uma consulta... Na consulta se for direito a consulta ele funciona e posso cancelar...amigão como posso mudar ?

Você fala que tem duas datas, ao que supondo serem a data inicial e a data final. No parâmetro da consulta, seria algo assim:

>= Forms!NomeDoForm!CampoDataInicial And <= Forms!NomeDoForm!CampoDataFinal

Não Criquio... tenho uma Consulta do tipo...... em que o criterio é : Entre [Data de inicio] E [Data Final] dentro da Consulta !

SELECT tbl_km.IdKm, tbl_km.Matriculas, Sum(tbl_km.Combustivel) AS Combustivel, Avg(tbl_km.MediaKm) AS MediaKm, tbl_Matriculas.Marca, tbl_km.Data
FROM tbl_Matriculas INNER JOIN tbl_km ON tbl_Matriculas.ID = tbl_km.IdKm
GROUP BY tbl_km.IdKm, tbl_km.Matriculas, tbl_Matriculas.Marca, tbl_km.Data
HAVING (((tbl_km.Data) Between [Data de inicio] And [Data Final]));

É a mesma coisa. Tente mudar para o que falei acima. Tambem pode usar o ENTRE e o E no lugar de >= e <=

Nada!
Criquio até já me sinto incomodado . . . mas "Népia" como se diz cá em Portugal.