REFERENCIA WORD 12.0 X VB6
Olá,
A rotina abaixo contendo o evento ButtonClick de um DBGrid está funcionando normalmente na minha aplicação, sua funcionalidade no dbgrid é para que o usuário escolha na célula uma opção de combo Box contendo dados aleatórios, entretanto, após fazer referência no projeto ao “Microsoft Word 12.0 object Library†que nada tem haver ao DBGrid está dando o erro abaixo, e o mais interessante é que a referência feita ao Word é porque um outro formulário é chamado a partir deste, para mesclar dados e abrir o word sem que esta rotina tem nenhuma participação em tal procedimento. Outra observação importante é que se eu desmarcar a referência feita ao word a aplicação volta a funcionar normalmente. Alguém poderia ajudar-me?
Compiler error:
Method or data member not found
Private Sub DBGrid1_ButtonClick(ByVal ColIndex As Integer)
Dim Coluna As Column
DBGrid1.Columns(0).Text = Date
Alterou = True
movimento = True
If ColIndex = colindex_lista Then
Set Coluna = DBGrid1.Columns(ColIndex)
With lista
.Left = DBGrid1.Left + Coluna.Left ======
.Top = DBGrid1.Top + DBGrid1.RowTop(DBGrid1.Row) + DBGrid1.RowHeight
.Width = Coluna.Width + 15
.ListIndex = 0
.Visible = True
.ZOrder 0
.SetFocus
End With
End If
End Sub
A rotina abaixo contendo o evento ButtonClick de um DBGrid está funcionando normalmente na minha aplicação, sua funcionalidade no dbgrid é para que o usuário escolha na célula uma opção de combo Box contendo dados aleatórios, entretanto, após fazer referência no projeto ao “Microsoft Word 12.0 object Library†que nada tem haver ao DBGrid está dando o erro abaixo, e o mais interessante é que a referência feita ao Word é porque um outro formulário é chamado a partir deste, para mesclar dados e abrir o word sem que esta rotina tem nenhuma participação em tal procedimento. Outra observação importante é que se eu desmarcar a referência feita ao word a aplicação volta a funcionar normalmente. Alguém poderia ajudar-me?
Compiler error:
Method or data member not found
Private Sub DBGrid1_ButtonClick(ByVal ColIndex As Integer)
Dim Coluna As Column
DBGrid1.Columns(0).Text = Date
Alterou = True
movimento = True
If ColIndex = colindex_lista Then
Set Coluna = DBGrid1.Columns(ColIndex)
With lista
.Left = DBGrid1.Left + Coluna.Left ======
.Top = DBGrid1.Top + DBGrid1.RowTop(DBGrid1.Row) + DBGrid1.RowHeight
.Width = Coluna.Width + 15
.ListIndex = 0
.Visible = True
.ZOrder 0
.SetFocus
End With
End If
End Sub
vc tem alguma outra referencia do word marcada
Marcelo,
No projeto não existe nenhuma outra referência ao Word, pois, você só consegue referenciar no projeto uma única vez. Tens alguma sugestão?
No projeto não existe nenhuma outra referência ao Word, pois, você só consegue referenciar no projeto uma única vez. Tens alguma sugestão?
Tópico encerrado , respostas não são mais permitidas