Fabin

hehehe... eu percebia e arrumei agora ta tudo certim raphael estava faltando nop codigo_inst as "" e os && valews mesmo hein bother tu é fera mesmo mas auqi uma outra duvida eu tenho outra comobobox que lista o nome da chefia dos estagiarios e tenho uma label que no caso tem a funçao de mostrar o masp da chefia ai estou querendo fazer o seguinte assim que o usuario escolher o nome do chefe na combobox automaticamente apareça o masp do mesmo na label eu já tenho a tabela e form de cadstro da chefia entaum so preciso um pouco de código hehehe valews brother abraço t+ [

você está trabalhando com qual banco de dados??? eu sei como te mostrar como fazer estes botoes porem eu uso o adodb.command e notei que voce prefere mais o recoprdset para fazer as opçoes mas se quiser posso e passar como você pode fazer pois recetemente fiz uma tela aprecida com a sua abraço t+

tem como voce postar seu form ai seu não for muito grande??? valews abraço t+

raphael a varaievel esta recebendo o valor correto cadastrado no banco o erro esta no insert de gravar no bd, ou seja quando vai executar o insert de gravaçao o codigo_inst não pega o valor entendeu mas avariavel funciona corretamente o que sera que pode ser?? valews abraço t+

e aew gabriel blza?? é o seguinte geralmente para editar, excluir registros de um form eu crio botoes e faço o codigo dentro deles, no seu caso como voce pretende fazer?? ahhh... e também uso o adodb.command para faezr que eu acho melhor para se entender abraço t+

coloquei o break e analisei rafel ele não esta pegando o valor do codigo_inst sera que tem que colocar "" com && ou não??? o erro provavelmente está ai valeu brother abraço t+

fiz a modificaçao raphael pela linha que eu te falei depois da alteração passou normalmente mas agora quando passa o .execute dessa linha vai para o with err .CommandText = "INSERT INTO Curso " & _ "(NomeCurso, CodInst) VALUES ('" & txtNomeCurso.Text & "', codigo_inst);" .Execute o que pode ser agora??? valews abraço t+

Private Sub cmdSalvar_Click() Dim cnnComando As New ADODB.Command Dim cod_inst As Integer On Error GoTo errSalvar If txtNomeCurso.Text = Empty Then MsgBox "Favor Preencher campo Nome do Curso.", vbInformation + vbOKOnly, "Campo em Branco" Else With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT CodInst FROM Instituiçao where = '" & cboInst.Text & "'" [color="#FF0000"]<---AQUi depois dessa linha da erro[/color] Set rsSeleçao = .Execute End With End If If Not rsSeleçao.EOF Then MsgBox "Instituiçao não encontarda." Else codigo_inst = rsSeleçao("CodInst") End If Screen.MousePointer = vbHourglass With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "INSERT INTO Curso " & _ "(NomeCurso, CodInst) VALUES ('" & txtNomeCurso.Text & "', codigo_inst);" .Execute End With MsgBox "Gravação Concluida com Sucesso.", vbInformation + vbOKOnly, "Gravação OK" LimparTela Exit Sub Saida: Screen.MousePointer = vbDefault Set cnnComando = Nothing Exit Sub errSalvar: With Err If .Number <> 0 Then MsgBox "Erro ao Gravar Registro.", vbCritical + vbOKOnly, "ERRO" .Number = 0 GoTo Saida End If End With End Sub ta meu codigo alterado porem esta indo pro with err apos passar pela linha marcada o que pode ser valews abraço t+

a ComboBox seria o nome da minha combo instituiçao, e o que significa esse .item se for mesmo o nome da minah combo não tem a opçao.item valews abraço t+

para você conseguir pegar o código da instituição, para que você possa passar no insert abaixo isso, já com o valor conInst, preenchido através do Select acima 1- Sim entendi, mas mesmo assim eu vai ter a possibilidade de ter o curso cadastrado mais de uma vez na mesma instituição. Só vai alterar o código do Curso 2 - sim, tem como aparecer, basta você criar o campo e passar esse valor no parametro do insert, como foi feito no codigo que passei anteriormente... só lembrando que desta forma você não está visualizando o valor da tabela instituição através da tabela Curso, você está inserindo valores que se encontram na tabela Instituição na tabela Curso. raphael tem como você colocar as alteraçoes no form que eu passei acim pois não estou entendo como vou associar não?? se tiver jeito eu agradeço valews abraço t+

não entendi este select antes do insert??? Qual seria sua funçao??? e esse insert já substituiria pelo insert que coloquei no meu código acima???? vai ter cursos com o mesmo nome sim na tabela, porem raphel vao ser diferenciados pela instituiçao de ensino entendeu quando salvo o registro sera salvo o nome do curso o codigo do curso e o codigo da instituiçao (ta ai minha outra duvida raphael meu relaciomaneto esta o código da instituiçao ao invés de aparecer o coidogo da instituiçao na tabela curso tem como aparecer o nome da instiuiçao???) entaum haverá cursos repetidos porem diferenciados pela instituiçao entendeu??? valews pela atençao brother abraço t+

raphael to usando o access 2003 vou colocar aqui a estrutura das tabelas tabela: Instituiçao CodInst Numeração Automatica Nome Texto tabela:Curso CodCurso NumeraçaoAutomatica NomeCurso Texto CodInst Numero ta como numero mesmo o código ok? o campo código é auto incremento qual seria o proximo passo agora?? valews pela atençao brotehr abraço t+

alguém saberia me explicar?? valews abraço t+

raphel sou novatao ainda deixa eu ver se netendi suas perguntas no caso da criaçao do código como seria automatica ou eu q associo??? no caso eu faço os comonado das querrys SQL seria isso? como eu faria esse select que voce citou?? to perdidao hehehe valews brotehr abraço t+ :blink:

ok rafell olha so pra preencher eu consegui já com um exemplo aqui mesmo de tutoriais e dicas estou no form que cadstra o curso nele contem uma combo com as instituiçoes cadastradas e nesta combo mostra o nome delas o que ira afzer esta tela o usuario escolhera a instituiçao na combo e cadstrara o curso para ela escrevendo o nome do cursso em uma texbox minha duvida agora é a sgeuinte como faria para gravar a combo no BD lembrando que carreguei pelo nome e não pelo CodInst e os relacionamento esta pelo CodInst e não pelo noem entendeu vou postar o codigo da tela de cadstrar curso voce da uma olhada e me diga o melhor pra fazer valews pela atençao brother abraço t+ Private Sub Preencher_combo() Dim cnnComando As New ADODB.Command With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT Nome FROM Instituiçao" Set rsSeleçao = .Execute End With With rsSeleçao Do While Not rsSeleçao.EOF If Not IsNull(rsSeleçao!Nome) Then cboInst.AddItem rsSeleçao!Nome End If rsSeleçao.MoveNext Loop End With End Sub Private Sub cmdCancelar_Click() Unload Me End Sub Private Sub cmdSalvar_Click() Dim cnnComando As New ADODB.Command On Error GoTo errSalvar If txtNomeCurso.Text = Empty Then MsgBox "Favor Preencher campo Nome do Curso.", vbInformation + vbOKOnly, "Campo em Branco" End If Screen.MousePointer = vbHourglass With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "INSERT INTO Curso " & _ "(NomeCurso) VALUES ('" & txtNomeCurso.Text & "');" .Execute End With MsgBox "Gravação Concluida com Sucesso.", vbInformation + vbOKOnly, "Gravação OK" LimparTela Exit Sub Saida: Screen.MousePointer = vbDefault Set cnnComando = Nothing Exit Sub errSalvar: With Err If .Number <> 0 Then MsgBox "Erro ao Gravar Registro.", vbCritical + vbOKOnly, "ERRO" .Number = 0 GoTo Saida End If End With End Sub Private Sub LimparTela() txtNomeCurso.Text = Empty End Sub Private Sub Form_Load() Preencher_combo End Sub Private Sub txtNomeCurso_LostFocus() txtNomeCurso.Text = StrConv(txtNomeCurso.Text, vbProperCase) End Sub

e aew raphael blzinha?? aqui isso eu colocaria no evento click da combo??? e refernte ao form de cadastro de estagiario on o usuario escolheria a instituiçao e os cursos carregados seriam somente os cursos da instituiçao selecionada?? se voce quiser posso postar as imagens pra você visualizar e se tiver jeito posto o projeto valews brother abraço t+ :wacko:

e aew galera bom dia pra vocês! to com a seguinte duvida refrente a carregar dados do banco em uma combobox tenho um form de cadstro de instituiçao, uma de curso e ouro de estagiarios sendo que a de estagiario engloba instituiçao e curso.. então vamos la explicar o que estou tentando fazer.. o usuario irá cadstrar a instituiçao ( essa conseguir fazer sem problema) o usuário escolhe a opçao de cadstrar curso, então é aberto o form neste form contem uma combox que vai listar as faculdades cadastradas o usuário vai escolher a instituiçao em que estuda e logo em seguida vai digitar o curso que faz ( este seria meu primeiro problema em relaçao a combobox para carregar as instituiçoes de ensino, e no meu relacionamento esta para ocódigo da afculdade tem como na hora que for visualizar não visualiza pelo codigo e sim pelo nome essa seria outra duvida??) e no form de cadstro de estagiario o usuario quando for cadstra o usuario há duas combobox a de instiuiçao e a de curso, o usuario vai escolher a instituiçao e na combo do curso vai listar somente os cursos referente a instituiçao que o usuario escolheu na combo instituiçao entenderam??? são essas as minhas duvidas se alguém souber como me ajudar ficarei muito agradecido abraço a todos valews t+ :wacko:

você já tentou usar o adodb.command?? o código fica um pouco maior mas achu q seria mais facil para você entenderNos meus códigos utilizo ele para gravar os dados no banco de dados.. flws t+ :rolleyes:

kuroi estava lendo sobre modulo, posso declara entaum tudo no modulo, pois pelo o que entendi abrindo um form module se eu declara variaveis nele ele vai usar para todos os formularios não é isso?? ou é melhor pelo generals mesmo??? vlews t+ :D e aew kuroi beleza?? estive fora por uns tempos e não tive como postar mais duvidas... mas é o seguinte to começando a entender o funcionamento do recordset, reformulei meu código e meu form_load está assim agora: Private Sub Form_Load() cmdSalvar.Enabled = False txtCodCliente.Enabled = False On Error GoTo errConexao conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & " Data Source =G:\Meus Documentos\Fábio\Projetos\Sistema Simples\Sistema.mdb; " conexao.Open errConexao: With Err If .Number <> o Then MsgBox "Houve um erro durante a conexão com o Banco de Dados." & _ vbCrLf & "O sistema será encerrado.", vbCritical + vbOKOnly + vbApplicationModal, "Erro" .Number = 0 Set conexao = Nothing End End If End With rsSeleçao.Open "SELECT * FROM Cadastro ORDER bY CodCliente", conexao, adOpenForwardOnly, adLockReadOnly txtCodCliente.Text = rsSeleçao.Fields("CodCliente") txtNome.Text = rsSeleçao.Fields("Nome") txtCPF.Text = rsSeleçao.Fields("CPF") txtNasc.Text = rsSeleçao.Fields("DataNasc") txtEndereço.Text = rsSeleçao.Fields("Endereço") txtCidade.Text = rsSeleçao.Fields("Cidade") txtUF.Text = rsSeleçao.Fields("UF") txtTelefone.Text = rsSeleçao.Fields("Telefone") txtEmail.Text = rsSeleçao.Fields("Email") End Sub sendo que criei um modulo e coloquei como public o connection e o recordset e agora como faço o botão proximo já tentei de todas as formas inclusive a que você me passou mas não consegui será que é por causa que eu to usando fieldset no form?? e é outro tipo de código para o botao proximo?? valews pelo ajuda galera abraço t+ :rolleyes:

kuroi estava lendo sobre modulo, posso declara entaum tudo no modulo, pois pelo o que entendi abrindo um form module se eu declara variaveis nele ele vai usar para todos os formularios não é isso?? ou é melhor pelo generals mesmo??? vlews t+ :D

é que eu tinha baixado da internet so que precisei desinstalar... quando desinstalei e tentei reinstalar tava dando este erro....... entaum apaguuei os registros e peguei o cd com amigo meu ai pelo cd não estava dando este erro mais :D

raphael as variaveis que fazem a conexao estao como publicas entaum não precisa eu declarar elas d novo não é??? ou precisa??? e continua dando o mesmo erro, essa conexao que você falo é com o banco de dados??? desde já agradeço vales t+

raphael é o seguinte arrumei a linha que você tinha me falado e executei o aplicativo mas esta acontecendo o seguinte erro "a conexao não pode ser usada para ser usada para realizar essa operaçao.Ela esta fechada ou invalida neste contexto. ta ai o codigo: Private Sub txtCpf_LostFocus() Set rsSeleçao = New ADODB.Recordset rsSeleçao.Open "SELECT * FROM Clientes WHERE CPF = txtCpf.text" If rsSeleçao.RecordCount <> 0 Then MsgBox "CPF Existente", vbInformation + vbOKOnly + vbApplicationModal, "Aviso" End If If txtCpf.Text <> Empty Then MsgBox "Clique no botão Validar CPF para continuar com o cadastro.", vbInformation, "Aviso" End If cmdValida.Enabled = True txtIdentidade.Enabled = False txtEndereço.Enabled = False txtNumero.Enabled = False txtBairro.Enabled = False txtCidade.Enabled = False txtEstado.Enabled = False txtResidencial.Enabled = False txtCelular.Enabled = False End Sub e aqui rapahel tem como você me ajudar no botao proximo q postei ai emcima to quebrando a cabeça e não to conseguindo... valews t+

Brother tem uma apostila no Apostilando muito boa falando de criar .exe,setups e outros da uma olhada la flws t+ :)

vo verificar aqui novamente, mas deixa eu te explicar, os campos que são alternativos estao em brancos não há nada digitado poderia ser issuo?? eu tenho que converter alguma coisa??? Mas como eu expliquei já preenchi todos os campos e nada??? a tah pod deixar foi mals brother abraço valews t+ :D Eu nem vou comentar onde é que estava o erro deste problema por que é banal rsrsrsrs........ era justamente em um campo como onome diferente hehehe mas já at resolvido... mas aproveitando o embalo leandro fiz um tópico em relaçao ao botao proximo to quebrando a cabeça ams não to conseguindo o kuroi já ate me ajudou um pouco e to esperando algumas resposatas ainda... não tem como você dar uma olhada la não??? valews Leandro e também o raphael t+ :D