Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
1 usuário online :: Nenhum usuário registrado, Nenhum Invisível e 1 Visitante :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
CONEXÃO MYSQL EM SITES

25/7/2018, 16:28 por AMELIO

BOA TARDES A TODOS
ESTOU TENTO UM PROBLEMINHA QUE QUANDO FAÇO A CONEXÃO MYSQL EM SERVIDOR  


Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 3

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 1

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 1

ACESSAR WEBSERVICE COM HTTPS

5/4/2018, 14:48 por AJC

Pessoal recebi este material em C# preciso fazer esta função em vfp9

YourBeanService port = new …

Comentários: 0

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

Os nossos membros postaram um total de 12261 mensagens em 1555 assuntos

importando imagens vba

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

Voltar ao Topo


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