kuroi

o q acontece de errado?? não preenche as celulas ou mostra mensagem de erro??

estranho, pra mim esse codigo ai do BotaoSalvar nunca funcionou assim. já aquele codigo do Select q eu passei funciona sem problemas aqui (a não ser q você use em momentos em q você não possa movimentar o cursor pra fazer selecao ou coisa assim), q problema você teve com ele??

o q aconteceu de errado?? ele não veio agrupado?? você não pode agrupar por campos chaves e campos q sejam sempre diferentes pra cada registro. poste a query q você tentou pra ver se a gente identifica o problema.

seria nesse codigo do print, q você iria imprimir o numero?? Print #Arq1, "R01 0000" & cnpj & anoc & retif & numrec então, na mesma sub onde esta esse codigo, você faria: Dim num As String If optNao.Value Then num = "0" ElseIf optSim.Value Then num = Left(Combo1.Text, 1) End If[/code] depois é so concatenar a variavel num naquele print, na posicao q deve ser.

não entendi, o q teria q ser preenchido?? se você quer pegar a primera letra do texto selecionado no ComboBox, você pega Left(Combo1.Text, 1) se eu entendi, você cria a variavel do numero q vai no txt. ai você faz um if. se tiver selecionado não, você poe 0 nessa variavel. se tiver selecionado sim, você pega o numero com o codigo q passei acima e grava na variavel. ai você imprime essa variavel no arquivo, ve se é isso.

na propriedade Value do objeto MultiPage, você le/seta a aba atual pelo indice da aba comecando no 0. então, pra por a primera aba, seria: MultiPage1.Value = 0

ele não acha?? mas qual a mensagem de erro?? se o codigo tiver no proprio formulario, é opt11.Value = False, não precisa nem por o nome do frame.

matheus, acho q ele ta vindo marcado por causa do tabindex. o q acontece é q combo com o menor tabindex vai estar com o foco quando o form for carregado (pra poder mexer pelo teclado). e ai ele sempre seleciona o q tiver com o foco. e se, no load, você puser q value = false, ele vai por o foco no proximo option. se por exemplo, você pusesse um textbox com o menor tabindex, esse problema seria resolvido. mas se o seu formulario não pode ter um textbox vazio atrapalhando la, acho q você pudia por um timer com interval = 1, e mandar o timer por o value = false no primero option (depois disso você desabilita o timer). dessa vez vai funcionar porque o form já foi completamente carregado.

sim, é so colar esse codigo q faltou la em cima no generals.

danyy, veja como fazer: Opção 1 Opção 2

você pode usar o comando Open pra você mesmo escrever o arquivo, e depois você mesmo ler e preencher a planilha. aqui explica como se usa o Open: http://en.wikibooks.org/wiki/Visual_Basic/Files

estranho, explica melhor qual o procedimento q você faz pra tentar por o label no frame, ou então poste um print do problema.

como assim?? é so desenhar o label dentro do frame ue. se o label já ta no formulario e você quer por dentro do frame, então você recorta ele, clica no frame e cola.

você fala o option button?? da uma olhada nesse tópico aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=133565

aqueles la são as declaroes. você poe la em cima no generals do seu formulario, ou poe num module (se for por no module, a funcao IsWebConnected() tem q ir junto no module).

nesse link tem um codigo q faz isso: http://www.go4expert.com/forums/showthread.php?t=2557

é, é sempre bom usar a tag CODE q fica mais facil pra ler. e tb movi seu tópico da sala de vb6 pra vba. quanto a sua duvida, não sei muito bem o q fazer nesses casos... você quer q os arquivos salvos tenham o codigo vba mas q eles não sejam ativados, ou q você não precisa ter o codigo vba?? se você so precisa das planilhas, você pode pesquisar por alguma forma de copiar uma planilha de um arquivo pra outro, deve ter algum jeito. so o problema é q talvez isso seja meio demorado e precise de bastante processamento. ai ficaria ruim ficar fazendo a cada minuto. e pra dexar como somente leitura, você poderia bloquear com senha.

danyy, você vai ter q escrever o segundo arquivo assim, e depois abrir de novo pra pegar as informacoes do primero ou você pode continuar escrevendo a partir desse mesmo open?? porque se você for abrir de novo, você teria q reescrever tudo de novo. se você for continuar a partir desse mesmo open, você pudia fazer assim: Number = FreeFile Open "C:\dipjexpresso.txt" For Output As #Number Print #Number, "DIPJ 2010" Dim t As String t = "R01 0000" t = t & informacao_do_primero_txt Print #Number, t Close #Number Exit Sub[/code] pra adicionar 20 espacos, você printa Space(20).

danny, não deu pra entender muito bem sua duvida. você já sabe usar o comando Open For Output/Input pra ler/escrever arquivos??

os combobox não tão num formulario, e sim nas proprias planilhas, certo?? ai acho q você não consegue acessar assim no objeto worksheet mesmo. você pudia fazer assim pra acessar: ws.Shapes.Item("ComboBox1").Propriedade = valor entretanto, um combobox no formulario não é entendido como combobox pelo vba e sim como shape. e o objeto shape não tem a propriedade enabled. ai você pudia corrigir isso com uma gambiarra tipo assim: ws.Shapes.Item("ComboBox1").Select Selection.Enabled = False[/code]

acho q se você fizer assim: Worksheets("Plan1").Visible = xlSheetVeryHidden ele não consegue reexibir. fora isso, as unicas opcoes q imagino seriam gravar num arquivo txt a parte ou no registro do windows. mas acho q dificilmente alguma dessas opcoes servira pra você já q se ele movesse a planilha pra outra localizacao, as informacoes seriam perdidas. mas o veryhidden deve resolver pra você. não acho q seja, acho q você tera sempre q usar o AddItem novamente no load.

acho q você teria q zerar a variavel do segundo depois do while. alias o certo seria zerar cada variavel antes de comecar o while dela. exemplo, antes de while( horaDezena <= 2 ), faca horaDezena = 0; e antes de while( horaUnidade <= 3 ), faca horaUnidade = 0; e assim por diante. assim nem precisa zerar na declaracao.

acho q você poderia gravar as informacoes na propria planilha. pro usuario não poder acessar os dados, você pudia dexar uma planilha oculta so pra guardar esses dados. ai quando o .xls for aberto, você le as celulas e preenche o array e o combo.

moverei pra access e dexarei o link do tópico aqui já q esta relacionado aos dois assuntos, assim você tem mais chance de obter resposta.

quer dizer q tem um \ perdido no meio do codigo. a linha 18 não tem nenhum }, ela tem um printf(). ai se você olhar na linha, vai ver q você pos um \n num lugar onde não pode existir. então, nessa linha, apague o \n" q esta no final. e ponha o \n depois do ultimo %d dentro das aspas no printf().