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é+!

Tenta isso LABELQUALQUER.Caption = "Sua Cidade, " & Format(Now, "dd") & " de " & Format(Now, "mmmm") & " de " & Format(Now, "yyyy") & "." aqui funciona :)

Opa, Cara creio que VB6 não tenha como relacionar com os arquivos do broffice. Aqui estavamos migrando para broffice também, mas o banco de dados do broffice não tinha como ser relacionado no vb6, ai ficamos com o access mesmo. Pelo menos para o banco de dados eu sei que não dá. E pelo o que eu pesquisei com brofficeBase só utilizando java ou outras linguagens. Abraço

O fera valeu pela ajuda aí! Conseguimos uma saída para esse problema aqui.! AbraçO!

Opa, Estou fazendo um programa vb com acess. Tenho varios formularios entre eles um de login e um de principal. Quando o usuario faz o login, ou ele vai ser registrado como novo ou irá logar como usuario já existente. Após logar, esse usuário deveria aparecer numa label no frm_principal. Só que no momento do login(apenas uma sigla do nome de uma pessoa, ex.: rr, n), está ocorrendo um erro: Isso acontece quando eu adiciono um novo registro "x", assim tenho que parar o teste(até ai ele já adicionou o registro na tabela). Se eu testar novamente o programa e colocar esse mesmo registro login "x", o erro não vai ocorre e irá aparecer o usuario que esta logado na lbl do frm_principal normalmente. o Código da situação acima: Private Sub CMD_login_Click() FRM_Login.Hide FRM_Principal.Show tbl.Seek "=", TXT_Login.Text If tbl.NoMatch Then tbl.AddNew tbl("usuario") = TXT_Login.Text tbl.Update End If FRM_Principal.TXT_LoginP.Text = UCase(tbl("usuario")) End Sub [/codebox] Já tentei colocar dentro do if o FRM_Principal.TXT_LoginP.Text = UCase(tbl("usuario")), mas aí se for logar com um registro já existente ele da o mesmo erro :huh: .. alguém tem alguma idéia de como me ajudar!?(EOF ou BOF resolve?!)

Ola pessoal, Estou formulando um novo programa aqui na empresa, e estamos tentando nos acostumar com Openoffice em vez de Office. Sendo assim gostaria apenas de saber se tem a possibilidae de eu vincular, o programa no vb com o banco de dados do Openoffice(Broffice) com a extensão ".obd". O programa que estamos utilizando roda vb com access, porém alguns erros incomodam. Abraço,