[Resolvido] Procedimentos e Funções

[Kyryus 0]

Dá para por um procidimento dentro de outro?? 

cumpZ

[jpaulino 106]

Não

[jpaulino 106]

Mas qual é a ideia ?

[Kyryus 0]

tipo...

 Private Sub [kalker koisa]
         Private Sub [kalker koisa]
            (....)
         End sub
End sub

[jpaulino 106]

Não assim não dá!

O que podes é chamar um procedimento ou função e passar paramêtros, retornando-os ou não. Agora um dentro do outro não permite.

Mas tens algum caso práctico onde aplicar. Talvés existam outras alternativas.

[Kyryus 0]

a linguagem que eu tou a programar nao é bem VB.. é VBA...

eu keria excutar uma função dentro de um procedimento...

Código:

Função:

Public Function ConjuntoAcessorios()
Dim conjunto As String
conjunto = "Acessórios"
ConjuntoAcessorios = conjunto
End Function

e o procedimento:

Public Sub cmd_componentes_Click()
Dim nome As String
nome = "Componentes"
Form_frm_artigos.lbl_conjunto.Caption = "Componentes"
DoCmd.OpenForm ("frm_artigos")
End Sub

a ideia era ao clicar no botão.... o caption desse comando ser aribuido a variavel "conjunto" na função... nao sei se me fiz entender... 

[jpaulino 106]

Para começar à que distinguir o que é uma função e um procedimento. Uma função tem retomar algo e um procedimento não. Ou seja numa função podes passa alguns parâmetros e retomar algo. Exemplo:

Private Function CalculaResultado(x As Integer, y As Integer) As Integer
       CalculaResultado = x * y
End Function

Nos procedimentos pode-se também passar parâmetros mas não retorna nada: Exemplo:

Private Sub MostraResultado(ValorCalculado As Integer)
        MsgBox(ValorCalculado)
End Sub

Essa é a diferença e embora as coisas funcionem, convém utiliza-las da forma correcta.

Mas agora a tua questão. Não percebi muito bem mas será isto:

Public Function ConjuntoAcessorios(strNome As String)
Dim conjunto As String
conjunto = "Acessórios " & strNome
ConjuntoAcessorios = conjunto
End Function

Public Sub cmd_componentes_Click()
Dim nome As String
            nome = "Componentes"
Form_frm_artigos.lbl_conjunto.Caption = "Componentes"
Call ConjuntoAcessorios(nome)
DoCmd.OpenForm ("frm_artigos")
End Sub

Se não for tenta explicar melhor.

[Kyryus 0]

vou tentar a tua maneira e depois digo alguma coisa... bigado 

[Kyryus 0]

[pre]Public Function ConjuntoAcessorios(strNome As String)

  Dim conjunto As String

  conjunto = "Acessórios " & strNome

  ConjuntoAcessorios = conjunto

End Function[/pre]

oia o que significa & strNome?

[jpaulino 106]

Bem a ideia é passar informação entre funções/procedimentos. Por exemplo:

Function Teste(str As String) As String
     Return str.ToUpper()
End Function

Sub Executa()
  MessageBox.Show(Test("O meu teste"))
End Sub

>> a ideia era ao clicar no botão.... o caption desse comando ser aribuido a variavel "conjunto" na função... nao sei se me fiz entender... 

Pelo que percebi queres juntar a uma variável algo. Então tens de passar como argumento e depois juntar a uma variável.

Se calhar tenta explicar melhor ? E já agora qual é o Access que estás a utilizar ?

[Kyryus 0]

Eu experimentei da maneira que disses-te e deu este erro:

nem sei o q significa 

ajuda-me aí

ah! Estou a utilizar o Access 2007...

[jpaulino 106]

Pelo que parece estás a chamar a função assim:

=Nomeconjunto()

No entanto tens de passar um argumento como string

[NuGuN 2]

Bem... como estas a chamar a função não sei, mas sei que quando defines a função tens de lhe dar um tipo. Tu tens

public function nomeconjunto(strnome as string)

Falta-te o tipo da função, e para isso é

public function nomeconjunto(strnome as string) as string

Cumps

[Kyryus 0]

resolvido 

bigado