Bom dia amigos, mais uma vez recorro a ajuda de vocês!
Tenho em meu projeto, um formulário que possui uma combobox. No evento após atualizar, gostaria de que se o valor for igual a "Processado Parcialmente" então, seria aberta uma janela de seleção para que o usuário possa selecionar a pasta e o arquivo a ser importado para o banco.
Tenho um código não obtive sucesso. Podem me ajudar?
Desde já agradeço!
Tenho em meu projeto, um formulário que possui uma combobox. No evento após atualizar, gostaria de que se o valor for igual a "Processado Parcialmente" então, seria aberta uma janela de seleção para que o usuário possa selecionar a pasta e o arquivo a ser importado para o banco.
Tenho um código não obtive sucesso. Podem me ajudar?
Desde já agradeço!
- Código:
Private Sub Combinação11_AfterUpdate()
If (Me.Combinação13) = "Processado Parcialmente" Then
On Error GoTo Err_cmd_Arquivo_Click
Dim endereco As String
Dim abrirArquivo As New CommonDialog
endereco = abrirArquivo.GetOpenFile(Me.Hwnd, "Selecione o arquivo a ser importado", "C:\Users\gabriel.p.lisboa\Desktop\Gerenciador de Filas - Construção\Input\")
If Len(endereco) > 0 Then
txt_Arquivo = endereco
Else
txt_Arquivo = vbNullString
End If
Me.Recalc
Me.Repaint
Me.Requery
Exit_cmd_Arquivo_Click:
Exit Sub
Err_cmd_Arquivo_Click:
MsgBox Err.Description, vbCritical + vbOKOnly, "Nº Erro - " & Err.Number
Resume Exit_cmd_Arquivo_Click
Else
Exit Sub
End If
End Sub