Estou desenvolvendo um pequeno sistema. como sou iniciante no vb tive alguns problemas:

1. Como formato um text box para campos datas, de forma que eu nao precise digitar as barras?

2. Tem como incluir novos valores nos combobox e lista-los na proxima vez que cadastrar algo?

3. Como fazer o relacionamento em tabelas access dentro do vb. Fiz no ambente do acces mas nao repassa ao vb.

Por favor, me ajudem.

Obrigada

Carla

Você também pode relacionar as tabelas diretamente no seu código sql:

 

SELECT author.Surname, author.Forename, search.Directory, search.Page FROM search, author WHERE author.AuthorID = search.AuthorID;

pelo que eu entendi parece q vc quer listar no combo os novos valores que os usuarios cadastraram no banco?!?!?!?

Se for isso então vc deve preencher os combos em tempo de execução...

eu tenho uma procedure que faz isto, se te ajudar... vc pode usar  a  idéia ...

 

Public Sub carregaCombo(sql As String, controle As Object, codigocampo As String)
Dim cont As Integer
    'limpa o controle
    controle.Clear
    'Abre o Recordset
    rs.CursorLocation = adUseClient
    rs.Open sql, CNN[esta e a conexão com o bd], adOpenKeyset, adLockOptimistic, adCmdText
    rs.MoveMin
    'adiciona o item Todos
    controle.AddItem "Todos"
    cont = 0
    controle.ItemData(controle.NewIndex) = cont
    With rs
        Do Until .EOF 'percorre o recordset ate o fim
           If Not IsNull(rs(codigocampo).Value) Then
                'inclui os itens correspondentes
                controle.AddItem rs(codigocampo)
                cont = 1 + cont
                controle.ItemData(controle.NewIndex) = cont
            End If
            .MoveNext
        Loop
    End With
    'fecha o recordset
    rs.Close
End Sub

para chamar:

    'carregaCombo(string SQL,nome do controle, campo da tabela)
    Call carregaCombo("SELECT [campo] from [tabela] GROUP BY [campo]", tipoFundo, "[campo]")

Ninh@ não use object como parâmetro, isso deixa a execução muito lenta. Use listbox mesmo.

Public Sub carregaCombo(sql As String, controle As ListBox, codigocampo As String)