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

tenta colocar.. dim n as integer total = job.GetAllDeviceIds(devIds[n]) se é vetor.. ve se ta da uma luz faça com que se relacione ao vetor q você criou.

Olha o meu!!!!!!!! faz 5 meses mas ta valendo!! O pessoal me deu uma ajuda para aprender vb aqui e ralei para aprender e fazer o programa... implementei em janeiro de 2008... corrigi e acabei com os bugs em fevereiro.. abraços!!!

Sim! consegui fazer no programa isso! não só o loop mas fazer com que ele identifique salve e jogue no world a jpg conforme o numero do codigo de barras. porem não foi mais utilizado no sistema porque o codigo era pago na epoca.. e esse programa era para Instuição federal, então já sabe! Mas o Program ficou muito fera, aprendi muito! Fiz desde o UML até a documentação.. foi fera.! agora estou trabalhando com c++ e vbscript valeu ajdua de todos. .. fuiz qualquer coisa so mandar pm.

nãos ei se te ajuda, mas quando quero um campo que seja mesclado no word, eu coloco ele em negrito..(o própio campo no word = {{CAMPO}} ) e assim ele mescla em engrito..

I cara, não da... imagina com 50 codigos de barras diferentes..(para 50 registros) abraço

Opa, Então pessoal, deixa eu explicar a situação para vocês: Estou com um programa quase pronto em vb, que organiza registros associados com Access e impressos no Word. A única coisa que falta é a impressão do código de barras num dos documentos de mesclagem. Eu já tenho o código que transforma o código de barras (padrão 128) e o sistema de mesclagem está ok! Num desses documentos de mesclagem seria ideal que saísse o código de barra correspondente a um número do campo no Access. Por exemplo: Ao clicar no botao, o vb pega o número, passa pelo código do padrão 128 para emitir a forma do código de barras, o word mescla de acordo com os campos de uma tabela no access, carrega a imagem de acordo com o registro mesclado e no final imprimi. Até+!!

Creio que é aqui: http://scriptbrasil.com.br/forum/index.php?showforum=66 abraço --- não é.. procura aqui.. https://www.scriptbrasil.com.br/codigos

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

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

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

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

A beleza, valeu pelas dicas. É que faz pouco tempo que comecei com vb e estou aprendendo na raça. E quanto as tabelas? sobre o excluir da uma força!

Opa, então pessoal, programa de cadastrar, buscar e excluir! Cadastrar e buscar está beleza, porém no excluir está quase, está dando errado que ele não esta excluindo da tabelda de dados(tbd), porém na tabela de oficios (tbo) está excluindo certo. Já tentei algumas coisas aqui mas não dá certo, ele deleta o primeiro, ou deleta outro nada vê, ou seja, não estou conseguindo! Se alguém der uma ajuda agradeço!.. abraço! Private Sub CMD_Excluir_co_CLick() If LBL_satec.Caption = "" Then MsgBox "Nenhum ofício selecionado para excluir!", , "Ofício Informa" Else tbo.Seek "=", LBL_satec.Caption tbd.Seek "=", LBL_satec.Caption If tbo.NoMatch = True And tbd.NoMatch = True Then MsgBox "Erro, ofício inexistente", vbCritical, "Ofício Informa" Else LBL_satec.Caption = tbo("nsatec") LBL_satec.Caption = tbd("nsatec") TXT_data.Text = tbo("datarecebido") TXT_noficio.Text = tbo("noficio") TXT_nprocesso = tbo("nprocesso") TXT_npa.Text = tbo("npa") TXT_Origem.Text = tbo("origempa") CBO_escolha_juiz.Text = tbo("nomejuiz") CBO_escolha_vara.Text = tbo("nomevara") cbo_responsa.Text = tbo("responsavel") TXT_obs.Text = tbo("obs") TXT_usuario.Text = tbo("usuario") If OPT_mod1.Value = True Then TXT_usuario.Text = tbo("modresposta") TXT_dados.Text = tbd("dadosdigitados1") Else If OPT_mod2.Value = True Then cbo_modelo.Text = tbd("modelo2") TXT_dados.Text = tbd("dadosdigitados2") Else if OPT_mod3.Value = True Then cbo_modelo.Text = tbd("modelo3") TXT_dados.Text = tbd("dadosdigitados3") Else If OPT_mod4.Value = True Then cbo_modelo.Text = tbd("modelo4") TXT_dados.Text = tbd("dadosdigitados4") End If End If End If End If Dim Confirm As Boolean Confirm = MsgBox("Deseja realmente excluir o ofício?", vbYesNo + vbQuestion, "Ofício Informa") If Confirm = True Then tbo.Delete tbd.Delete Limpa_Campos End If End If End If End Sub

Então cara se você quer mostrar o valor que já foi cadastrado com o "cliente" faz o seguinte: no cadastro mesmo, manda adicionar já na tabela atendimento relacionado à aquele cliente. tipo.. no cadastro la deve ter... tabelacliente.addnew tabelaatendimento.addnew 'Para adicionar o tempdipsatend tabelacliente("nomecliente") = txt_nome.text tabelaatendimento("nomecliente") = txt_nome.text 'Para identificar na otura tabela.. tabelacliente("tempdisp") = txt_tempdisp.text tabelaatendimento("temdispatend") = txt_tempdisp.text Ai depois era só chamar numabusca essa txt.. quando o cliente for escolhido na combo if cbo_cliente.text = tabelaatendimento("nomecliente") then Txt_tempdispatend.text = tabelaatendimento("tempdispatend")[ End if Não sei muito mas parece ser isso e se for isso que entendi.. kk até+!