Notifications
Clear all

Textbox com MsgBox

11 Posts
3 Usuários
0 Reactions
1,749 Visualizações
(@wenpra)
Posts: 76
Trusted Member
Topic starter
 

Olá Boa Tarde gostaria de saber se tem como eu colocar um conteúdo de um " TextUserName.text " nessa mensagem aqui? segue o código abaixo:

Sub Benvindo_Usuário()
currenttime = Hour(Now())
If currenttime < 12 Then
g01 = "Bom dia"
Else
If currenttime <= 18 Then
g01 = "Boa Tarde"
Else
g01 = "Boa Noite"
End If
Lbl_Saudação = "Olá " & g01 & ", "
End Sub

 
Postado : 22/05/2014 1:28 pm
Basole
(@basole)
Posts: 487
Reputable Member
 

O que voce chama de "TextUserName.text" seria um TextBox ? se for isso, então insira o codigo no evento Initialize como abaixo:

Private Sub UserForm_Initialize()
currenttime = Hour(Now())
If currenttime < 12 Then
g01 = "Bom dia"
Else
If currenttime <= 18 Then
g01 = "Boa Tarde"
Else
g01 = "Boa Noite"
End If
Me.TextBox1.Text = "Olá " & g01 '& ", "
End If
End Sub

Click em se a resposta foi util!

 
Postado : 22/05/2014 2:26 pm
(@wenpra)
Posts: 76
Trusted Member
Topic starter
 

oLÁ EU NÃO SOUBE ME EXPLICAR

MAS É ASSSIM EU TENHO UM CAMPO CHAMANDO Lbl_USERNAME O QUE TENHO DENTRO DELE É UM NOME por Exemplo "PRATES"

GOSTARIA DE ACRECENTAR O NOME QUE ESTA DENTRO DESSA Lbl_USERNAME NO FINAL DA MSG: ( Me.TextBox1.Text = "Olá " & g01 '& ", " ) = Olá Bom Dia , Prates!

 
Postado : 22/05/2014 2:44 pm
Basole
(@basole)
Posts: 487
Reputable Member
 

Entaõ seria assim:...

Sub Benvindo_Usuário()
currenttime = Hour(Now())
If currenttime < 12 Then
g01 = "Bom dia"
Else
If currenttime <= 18 Then
g01 = "Boa Tarde"
Else
g01 = "Boa Noite"
End If
Lbl_Saudação = "Olá " & g01 & ", Prates"
End If
End Sub

Click em se a resposta foi util!

 
Postado : 22/05/2014 2:54 pm
(@wenpra)
Posts: 76
Trusted Member
Topic starter
 

então quase o problema que cada hora vai ter um nome diferente dentro dessa Lbl_USERNAME

teria que ser algo que buscasse o que esta dentro desta Lbl_USERNAME.

 
Postado : 22/05/2014 5:56 pm
Basole
(@basole)
Posts: 487
Reputable Member
 

wenpra,
Qual seria a ref. desta label? O ideal seria vc. compartilhar seu arquivo ou talvez um modelo c/ alguns dados .

Click em se a resposta foi util!

 
Postado : 22/05/2014 6:04 pm
(@wenpra)
Posts: 76
Trusted Member
Topic starter
 

ELA ESTA DENTRO DESTE MESMO FORMULARIO MAS VAI PEGAR O DADO DE UM OUTRO FORMULARIO TODA VEZ QUE ABRIR.
SERIA ALGO ASSIM QUE QUERIA TENTAR FAZER:

Sub Benvindo_Usuário()
UserName = Lbl_USERNAME
currenttime = Hour(Now())
If currenttime < 12 Then
g01 = "Bom dia"
Else
If currenttime <= 18 Then
g01 = "Boa Tarde"
Else
g01 = "Boa Noite"
End If
Lbl_Saudação = "Olá " & g01 & ", " & UserName &
End If
End Sub

 
Postado : 22/05/2014 6:15 pm
(@wenpra)
Posts: 76
Trusted Member
Topic starter
 

wenpra,
Qual seria a ref. desta label? O ideal seria vc. compartilhar seu arquivo ou talvez um modelo c/ alguns dados .

ELA ESTA DENTRO DESTE MESMO FORMULARIO MAS VAI PEGAR O DADO DE UM OUTRO FORMULARIO TODA VEZ QUE ABRIR.
SERIA ALGO ASSIM QUE QUERIA TENTAR FAZER:

Sub Benvindo_Usuário()
UserName = Lbl_USERNAME
currenttime = Hour(Now())
If currenttime < 12 Then
g01 = "Bom dia"
Else
If currenttime <= 18 Then
g01 = "Boa Tarde"
Else
g01 = "Boa Noite"
End If
Lbl_Saudação = "Olá " & g01 & ", " & UserName &
End If
End Sub

 
Postado : 22/05/2014 6:54 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Wenpra, sem ver seu modelo fica complicado, vamos ficar sempre na suposição, e trocar um monte de post's.

pelo que entendi SUPONHO que o lbl_Username "pertence" a um outro formulário, e esse formulário não foi ainda carregado, ou estou errado.
Se não foi carregado o Label ainda não tem/recebeu o nome desejado.
Você pode utilizar nesse formulário o mesmo comando utilizado para preencher o lbl_Username.
(obs.: Evite mandar mensagens em letra maiúscula, pois em fóruns como o nosso isso é sinonimo de gritar)

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/05/2014 6:02 am
(@wenpra)
Posts: 76
Trusted Member
Topic starter
 

Wenpra, sem ver seu modelo fica complicado, vamos ficar sempre na suposição, e trocar um monte de post's.

pelo que entendi SUPONHO que o lbl_Username "pertence" a um outro formulário, e esse formulário não foi ainda carregado, ou estou errado.
Se não foi carregado o Label ainda não tem/recebeu o nome desejado.
Você pode utilizar nesse formulário o mesmo comando utilizado para preencher o lbl_Username.
(obs.: Evite mandar mensagens em letra maiúscula, pois em fóruns como o nosso isso é sinonimo de gritar)

Não seria assim essa lbl_Username na hora que iniciar o formulário já vai ter um conteúdo dentro dela gostaria de acrescentar no final dessa msg (Lbl_Saudação = "Olá " & g01 & ", " & UserName &)

 
Postado : 23/05/2014 8:16 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Agora complicou. E vamos continuar no Achômetro, Voce disse anteriormente "...vai pegar o dado em outro formulário..."
Acho / Suponho que Lbl_Saudação esteja no formulário corrente e que Lbl_UserName esteja/pertença a outro formulário.
Voce deseja "pegar" o conteúdo dessa Lbl e adiciona-lo na Saudação de entrada; porem se é uma saudação de entrada, suponho que seja o primeiro formulário a executar, então o outro ainda não está carregado, consequentemente a Lbl não tem conteúdo.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/05/2014 8:56 am