Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
23 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 22 Visitantes :: 1 Motor de busca

ACSR

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Tudo dá errado

3/2/2017, 16:50 por Douglas Pascini

Troquei de maquina, achei que seria uma boa, [Você precisa estar registrado e conectado para ver esta imagem.]  pois passei para uma maquina melhor.

Instalei o …

Comentários: 1

URGENTE - Instalação do aplicativo

24/1/2017, 08:51 por Douglas Pascini

Bom dia. Estou com um problema, ao fazer a instalação (colocar os arquivo) do aplicativo na …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 3

Estatísticas
Temos 7021 usuários registrados
O último usuário registrado atende pelo nome de diegopeixoto

Os nossos membros postaram um total de 21 mensagens em 12 assuntos

importando imagens vba

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Em curso importando imagens vba

Mensagem por wilherme em 1/3/2011, 11:19

[Você precisa estar registrado e conectado para ver esta imagem.]


Cada foto esta em uma planilha diferente da outra...

CadastroAluno = o aluno preenche

CadastroEscola = importo a planilha preenchida pelo aluno


O que será que esta errado no meu codigo fonte?



Codigo da minha tela de CadastroEscola
Código:
**************************************************
Private Sub ImpExcel()

Dim xlWorkSheet As Excel.Worksheet

'Dim dataAtual As Date
'Dim dataNasc As Date

Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
Dim idade As Long

'Abrir o arquivo do Excel
Set xlw = xl.Workbooks.Open(Application.GetOpenFilename(fileFilter:="xls Files (*.xls), *.xls"))

'xlWorkSheet = xlw.Worksheets("Plan1")
'Definir qual a planilha de trabalho

xlw.Sheets("Plan1").Select

'Exibe o conteúdo da célula na posição 2,3
' variavel = xlw.Application.Cells(2, 3).Value
'MsgBox xlw.Application.Worksheets(1).txtNome.Text

'dataAtual = Now.Date
'dataNasc = Parse.Date(txtNascimento.Text)

'Preenche os TextBox do formulário a partir dos dados do arquivo excel importado
TextBox5.Text = xlw.Application.Worksheets(1).TextBox1.Text
TextBox6.Text = xlw.Application.Worksheets(1).TextBox2.Text
TextBox8.Text = xlw.Application.Worksheets(1).TextBox4.Text
TextBox1.Text = xlw.Application.Worksheets(1).TextBox5.Text
TextBox7.Text = 2011 - (Mid(xlw.Application.Worksheets(1).TextBox3.Text, 7, 10))

' Image2.Picture = xlw.Application.Workbooks(1).Image1.Picture

'Image2.Picture = LoadPicture(xlw.Application.Worksheets(1).Image1)
'Image2.Picture = xlw.Application.Worksheets(1).Image1.Text ' aaaaaa

' Fechar a planilha sem salvar alterações
' Para salvar mude False para True

xlw.Close False

' Liberamos a memória

Set xlw = Nothing
Set xl = Nothing

End Sub

Private Sub CommandButton12_Click()

ImpExcel

End Sub

'Private Sub CommandButton1_Click()
Private Sub CommandButton_Seleciona_Click()

Exibe_Caixa_Dialogo


End Sub


End Sub

Private Sub CommandButton_Click()
Exibe_Caixa_Dialogo
End Sub
****************************************************************

Codigo da minha tela CadastroAluno
****************************************************************
Private Sub CommandButton_Seleciona_Click()
Exibe_Caixa_Dialogo
End Sub

Sub Exibe_Caixa_Dialogo()

Set CaixaDialogo = Application.FileDialog(msoFileDialogFilePicker)

With CaixaDialogo
.Title = "wilherme"
.InitialView = msoFileDialogViewPreview
.AllowMultiSelect = False
If .Show = -1 Then

EnderecoImagem = .SelectedItems(1)
Image1.Picture = LoadPicture(.SelectedItems(1))


End If
End With

End Sub



Private Sub CommandButton1_Click()
ActiveWorkbook.Save
End Sub


Private Sub CommandButton5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Then
TextBox2.Activate
End If
End Sub

Private Sub Image1_Click()

End Sub

Private Sub Label1_Click()

End Sub

'Private Sub CommandButton4_Click()
Private Sub UserForm1_Initialize()

AtualizaListaEstados

CadastroCodigo = Dados.Range("CodCalc").Value + 1

TextBox_Codigo.Value = CadastroCodigo

AtualizaComboBoxPesquisa


End Sub

Private Sub CommandButton5_Click()
End
End Sub



Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Then
TextBox2.Activate
End If
End Sub


Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Then
TextBox3.Activate
End If
End Sub


Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 9 Then
TextBox4.Activate
End If

End Sub



Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Then
TextBox5.Activate
End If
End Sub



Private Sub TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Then
CommandButton1.Activate
End If
End Sub
***********************************************************************

wilherme
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum