Gostaria de auxílio em relação a um programa que estou implementando e a situação é a seguinte:
No formulário (não consigo anexar o arquivo de imagem), tem uma listbox com opção de checkbox, e 3 botões; a idéia é que ao clicar nos item em que quero que imprima e depois clicar no botão prévia, que abrirá uma janela de visualização do que será impresso, portanto o botão Command1 é um pequeno teste que estou tentando fazer para que passa o parâmetro texto do listbox com a caixa selecionada, mas o erro que está dando é que só passa o parâmetro texto quando uma linha for selecionada, então não é isso que quero se seja feito.
Como faço para resolver este problema? Alguém têm uma sugestão?
Segue abaixo o código para análise.
Grato,
Girréis
Option Explicit
Dim vCodIdentificacaoSubsistema As Long
Dim vCod As String
Dim cnnComando As New ADODB.Command
Dim rsSelecao As New ADODB.Recordset
Private Sub cmdFechar_Click()
Unload Me
End Sub
Private Sub Command1_Click() -> [size="6"]AQUI ESTÁ O PROBLEMA[/size]
Dim temp, temp2 As String
Dim i As Integer
For i = 0 To ListaFornecedores.ListCount - 1
If ListaFornecedores.Selected(i) Then
temp2 = ListaFornecedores.Text
End If
Next
End Sub
'Dim vCodFornecedor As Long
Private Sub Form_KeyPress(KeyAscii As Integer)
'Se a tecla Enter foi pressionada, passa o foco para o próximo controle na
'seqüência de TabIndex:
If KeyAscii = vbKeyReturn Then
SendKeys "{Tab}"
KeyAscii = 0
End If
End Sub
Private Sub Form_Load()
Dim vCod2 As String
'Centraliza o formulário na área de trabalho do MDI:
Me.Left = (frmSistControle.ScaleWidth - Me.Width) / 2
Me.Top = (frmSistControle.ScaleHeight - Me.Height) / 2
'Screen.MousePointer = vbHourglass
With cnnComando
.ActiveConnection = cnnBancoSCS
.CommandType = adCmdText
'Monta o comando SELECT para selecionar o registro na tabela:
.CommandText = "SELECT * FROM ConsultaSubsistemas ORDER BY identificacao;"
Set rsSelecao = .Execute
End With
With rsSelecao
If .BOF = False Then
While Not .EOF
vCod2 = rsSelecao("identificacao")
ListaFornecedores.AddItem vCod2
rsSelecao.MoveNext
Wend
Else
MsgBox "Banco de dados vazio!!!", _
vbExclamation + vbOKOnly + vbApplicationModal, "Erro"
Unload frmRelatFornecedores
End If
End With
End Sub
Private Sub ListaFornecedores_Click()
Dim temp As String
End Sub
Pergunta
Girréis
Boa tarde, amigos.
Gostaria de auxílio em relação a um programa que estou implementando e a situação é a seguinte:
No formulário (não consigo anexar o arquivo de imagem), tem uma listbox com opção de checkbox, e 3 botões; a idéia é que ao clicar nos item em que quero que imprima e depois clicar no botão prévia, que abrirá uma janela de visualização do que será impresso, portanto o botão Command1 é um pequeno teste que estou tentando fazer para que passa o parâmetro texto do listbox com a caixa selecionada, mas o erro que está dando é que só passa o parâmetro texto quando uma linha for selecionada, então não é isso que quero se seja feito.
Como faço para resolver este problema? Alguém têm uma sugestão?
Segue abaixo o código para análise.
Grato,
Girréis
Option Explicit Dim vCodIdentificacaoSubsistema As Long Dim vCod As String Dim cnnComando As New ADODB.Command Dim rsSelecao As New ADODB.Recordset Private Sub cmdFechar_Click() Unload Me End Sub Private Sub Command1_Click() -> [size="6"]AQUI ESTÁ O PROBLEMA[/size] Dim temp, temp2 As String Dim i As Integer For i = 0 To ListaFornecedores.ListCount - 1 If ListaFornecedores.Selected(i) Then temp2 = ListaFornecedores.Text End If Next End Sub 'Dim vCodFornecedor As Long Private Sub Form_KeyPress(KeyAscii As Integer) 'Se a tecla Enter foi pressionada, passa o foco para o próximo controle na 'seqüência de TabIndex: If KeyAscii = vbKeyReturn Then SendKeys "{Tab}" KeyAscii = 0 End If End Sub Private Sub Form_Load() Dim vCod2 As String 'Centraliza o formulário na área de trabalho do MDI: Me.Left = (frmSistControle.ScaleWidth - Me.Width) / 2 Me.Top = (frmSistControle.ScaleHeight - Me.Height) / 2 'Screen.MousePointer = vbHourglass With cnnComando .ActiveConnection = cnnBancoSCS .CommandType = adCmdText 'Monta o comando SELECT para selecionar o registro na tabela: .CommandText = "SELECT * FROM ConsultaSubsistemas ORDER BY identificacao;" Set rsSelecao = .Execute End With With rsSelecao If .BOF = False Then While Not .EOF vCod2 = rsSelecao("identificacao") ListaFornecedores.AddItem vCod2 rsSelecao.MoveNext Wend Else MsgBox "Banco de dados vazio!!!", _ vbExclamation + vbOKOnly + vbApplicationModal, "Erro" Unload frmRelatFornecedores End If End With End Sub Private Sub ListaFornecedores_Click() Dim temp As String End SubLink para o comentário
Compartilhar em outros sites
20 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.