• 0
Sign in to follow this  
Rochedo

Salvando Combo

Question

Opa,

Então pessoal, é simples o que eu quero fazer. O usuário coloca os itens da combo no programa e teria que salvar essa combo com todos os itens numa combo na tabela do access. Salvar itens é tranquilo, mas a combo mesmo que está faltando.

Tem como?

AtÉ+

Share this post


Link to post
Share on other sites

7 answers to this question

Recommended Posts

  • 0

Olá!!!

está meio enrrolado pra entender o que você precisa mas vamos ver se eu entendi,

você quer que os usuario cadastrem itens em uma tabela para aparecer em uma combo que eles terão que selecionar um valor posteriormente em um formulário, é isso? :huh:

bom se for isso é facil de resolver!

Share this post


Link to post
Share on other sites
  • 0

é quase isso.. vou explicar..

O programa tem um frm de cadastro. Nesse cadastro o usuário tem uma combo1(que carrega as opções do access) e outra combo2(combo simples sem chamar nada) vazia. O usuário pode selecionar alguns itens da combo1 e jogar na combo2, como se ele fizesse a combo2 baseada em alguns itens da combo1. :wacko:

Mas na hora de salvar o cadastro, eu não sei(e não sei se é possível) salvar a combo2 com os itens no access.

duvidauy8.jpg

Share this post


Link to post
Share on other sites
  • 0

Para savar a combo2 em um campo no Access você pode fazer o seguinte:

Esse código não salva no registro do Access ma já da para ter uma ideia

'Salvar lista delimitando por ";"
Private Sub Command1_Click()
Dim i As Integer
Dim sTexto As String

sTexto = ""
sTexto = Me.Cmb1.List(0)

For i = 1 To Me.Cmb1.ListCount
    sTexto = sTexto & ";" & Me.Cmb1.List(i)
Next i

Me.Txt1 = sTexto
End Sub
depois para recarregar na combo você pode fazer o seguinte
'Recarregando combo
Private Sub Command2_Click()
Dim i As Integer
Me.Cmb2.Clear
i = 1
Do While Parse$(Me.Txt1, i, ";") <> ""
Me.Cmb2.AddItem Parse$(Me.Txt1, i, ";")
i = i + 1
Loop

End Sub
você precisara ter em um módulo o seguinte Código
'Função para retornar o valor de um texto delimitado
Function Parse$(ByVal sString As String, iReq As Integer, sDelim As String)
Dim sSt As String, iCnt As Integer, iPos As Integer

    If Len(sDelim) = 0 Then sDelim = ","
    sSt = sString & sDelim
    For iCnt = 1 To iReq
        iPos = InStr(sSt, sDelim)
        If iPos Then
            If iCnt = iReq Then     ' Requested string
                Parse$ = Left$(sSt, iPos - 1)
                Exit For
            End If
            If iPos = Len(sSt) Then ' No string left
                Parse$ = ""
                Exit For
            End If
            sSt = Mid$(sSt, iPos + Len(sDelim))
        Else
            Parse$ = sSt
            Exit For
        End If
    Next iCnt
End Function

Essa é uma das formas possives a outra eu já t passo bele!

Share this post


Link to post
Share on other sites
  • 0

ouch!

Essa idéia do "FOR" me deu uma luz aqui, vou ver se consigo gravar e já te falo o que deu..

Edited by Rochedo

Share this post


Link to post
Share on other sites
  • 0

então...

Muito bom, do jeito que fiz aqui voce salvana tabela separado por ";" e depois carrega na combo como era antes... isso mesmo??

é que eu não consegui carregar na combo os itens.

No segundo código que voce me falou(carregar combo), aquele txt1 é referente a que caixa de texto?.. seria a combo1?

Abraço..

-----------------------------------------------------

Consegui cara, valeu pela ajuda, assim está bom.

No texto1 ali, na verdade tem que colocar a tabela para ele jogar o svalores que foram gravados saca só:

Me.Combo2.Clear
i = 1
Do While Parse$(TabelaY("Campo"), i, ";") <> ""
Me.Combo2.AddItem Parse$(TabelaY("Campo"), i, ";")
i = i + 1
Loop
[/codebox]

Muito boa essa.. deu certinho, porque assim eu uso esse código para busca aqui e jogar na combo do vb.

Obrigado aí cara,

Abraço

Edited by Rochedo

Share this post


Link to post
Share on other sites
  • 0

Cara fazem 5 meses!!..

mas obrigadao!.. eu juntei isso que você me passou com outra coisa.. q editei ficou muito fera

já ate implementei em janeiro de 2008..

vlw pela ajuda...

Edited by Rochedo

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this