Salvando Combo

[Rochedo]

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É+

[Anderson Fernandes]

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!

[Rochedo]

é 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.

[Anderson Fernandes]

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!

[Rochedo]

ouch!

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

Editado Maio 17, 2007 por Rochedo

[Rochedo]

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

Editado Maio 18, 2007 por Rochedo

[Anderson Fernandes]

À suas ordens...

qualquer coisa só falar bele!!!!

Fui!!!!!!!!!!

[Rochedo]

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...

Editado Julho 9, 2008 por Rochedo