Graymalkin

Você tem um registro de 405KB? Não tem nada errado neste tamanho, não? Abraços, Graymalkin

Estas diferenças de disposições realmente acontecem de um browser para outro. Dê uma olhada neste tópico e veja se a minha dica resolve o caso: http://scriptbrasil.com.br/forum/index.php?showtopic=59751. Caso não resolva, você pode fazer como eu fiz no meu site: eu criei uma folha de estilos padrão e coloquei as diferenças de cada browser em arquivos separados. Como os estilos são aplicados em cascata, basta então aplicar o estilo de acordo com o browser utilizado (isso é feito com JavaScript). Eu tenho isso no arquivo styleswitcher.js: function setActiveStyleSheet(title) { var i, a, main; for(i=0; (a = document.getElementsByTagName("link")[i]); i++) { if(a.getAttribute("rel").indexOf("style") != -1 && a.getAttribute("title")) { a.disabled = true; if(a.getAttribute("title") == title) a.disabled = false; } } } function activateStyleSheet(title) { var i, a, main; if (title!="") { for(i=0; (a = document.getElementsByTagName("link")[i]); i++) { if(a.getAttribute("rel").indexOf("style") != -1 && a.getAttribute("title")) { if(a.getAttribute("title") == title) a.disabled = false; } } } } function getBrowserStyle() { var navegador = navigator.appName; var versao = navigator.appVersion; if (navegador=="Microsoft Internet Explorer") return "IE"; else if (navegador=="Netscape") return "FF"; else return ""; } function getActiveStyleSheet() { var i, a; for(i=0; (a = document.getElementsByTagName("link")[i]); i++) { if(a.getAttribute("rel").indexOf("style") != -1 && a.getAttribute("title") && !a.disabled) return a.getAttribute("title"); } return null; } function getPreferredStyleSheet() { var i, a; for(i=0; (a = document.getElementsByTagName("link")[i]); i++) { if(a.getAttribute("rel").indexOf("style") != -1 && a.getAttribute("rel").indexOf("alt") == -1 && a.getAttribute("title") ) return a.getAttribute("title"); } return null; } function createCookie(name,value,days) { if (days) { var date = new Date(); date.setTime(date.getTime()+(days*24*60*60*1000)); var expires = "; expires="+date.toGMTString(); } else expires = ""; document.cookie = name+"="+value+expires+"; path=/"; } function readCookie(name) { var nameEQ = name + "="; var ca = document.cookie.split(';'); for(var i=0;i < ca.length;i++) { var c = ca[i]; while (c.charAt(0)==' ') c = c.substring(1,c.length); if (c.indexOf(nameEQ) == 0) return c.substring(nameEQ.length,c.length); } return null; } window.onload = function(e) { var cookie = readCookie("style"); var title = cookie ? cookie : getPreferredStyleSheet(); setActiveStyleSheet(title); activateStyleSheet(getBrowserStyle()); } window.onunload = function(e) { var title = getActiveStyleSheet(); createCookie("style", title, 365); } var cookie = readCookie("style"); var title = cookie ? cookie : getPreferredStyleSheet(); setActiveStyleSheet(title); activateStyleSheet(getBrowserStyle()); E adiciono o seguinte na tag HEAD de cada página: <link rel="stylesheet" type="text/css" href="estilo.css" media="screen" title="default" /> <link rel="alternate stylesheet" type="text/css" href="fixIE.css" title="IE" /> <link rel="alternate stylesheet" type="text/css" href="fixFF.css" title="FF" /> <script language="javascript" type="text/javascript" src="styleswitcher.js"></script> No caso acima, estilo.css é a minha folha de estilos padrão e fixIE.css e fixFF.css contêm as modificações para os respectivos browsers. Um destes dois últimos é ativado de acordo com o browser (o que é feito pelo código presente em styleswitcher.js). Certo? ;) Graymalkin PS: Por que você chama o FF de FV?

Exatamente, e foi por isso que eu usei "DtaGerar.Database.Execute". Abraços, Graymalkin

Beleza, mas... pra quê aquele For Each no começo do código? Se você não faz nada dentro dele, não há necessidade dele estar ali, concorda? Abraços, Graymalkin

Dê uma pesquisada sobre como ler um arquivo texto e você resolverá o problema. Abraços, Graymalkin

Para mudar o ícone de uma outra aplicação você vai precisar ter conhecimentos sobre a API Win32. Sugiro a você dar uma olhada nas funções FindWindow, SendMessage e ExtractIcon, para fazer o que você quer. Abraços, Graymalkin PS: Sua dúvida é mesmo de VBA? Ou seria VB?

Os arquivos realmente "compilados" em Python funcionam para qualquer plataforma desde que haja um interpretador disponível. Esses arquivos compilados de que falo são os que possuem a extensão ".pyc". Se você está usando um módulo como o Py2Exe ou o cxFreeze para gerar executáveis (lembrando que eles *não* "compilam"), é normal que o tamanho do executável (ou do pacote) fique grande, já que o interpretador precisa ir junto. O que estes geradores fazem nada mais é do que carregar o interpretador junto com o seu script, facilitando na hora de distribuir. Todavia, perde-se na portabilidade (que é o caso de gerar executáveis de 32bits). Abraços, Graymalkin

Acredito eu que o correto seria algo como: mês = "12" DtaGerar.Database.Execute "UPDATE DetPrpMatMes SET MesAno = '" & mês & "' WHERE IsNull(MesAno)" Abraços, Graymalkin

Não entendi... Se não existirem fatores que influenciem qual(is) a(s) equipe(s) mais veloz(es), ou seja, se for algo aleatório, você pode usar a função Rnd() para gerar valores randômicos e decidir as posições das equipes. Abraços, Graymalkin

Se o problema é preencher, grave uma macro no Word realizando o procedimento e depois veja o código gerado. Já se o problema é o acesso aos dados, dê uma procurada sobre ADO aqui no fórum mesmo. Abraços, Graymalkin

O tamanho é você que define. Mas, se quiser deixar a coisa mais otimizada, some a quantidade de bytes que a estrutura ocupa. Abraços, Graymalkin

Em qual linha ocorre o erro? E note que você declarou objExlSht duas vezes (uma vez na seção General Declarations e outra no procedimento). Abraços, Graymalkin

Acho que com o código você vai entender melhor (observe onde declarei o "f" e onde usei ele): Dim f As Form For Each janela As Form In Me.MdiChildren If janela.Name = "Nota" Then f = Me.ActiveMdiChild Else f = Me.ActiveMdiChild End If Next janela Dim g As Graphics = e.Graphics Dim mensagem As String Dim mensagem2 As String mensagem = f.operacao.Text mensagem2 = f.cfop.Text .... Sendo que não entendi muito bem qual é a desse If já que tanto nele quanto no Else o valor atribuído a "f" é o mesmo. Só o tipo que é diferente, porém em VB.NET isso não tem problema (devido ao recurso de late-binding). Abraços, Graymalkin

Esse tipo de informação é dependente do SO, portanto, a menos que alguém tenha feito um módulo com um método para SOs diferentes, não creio que Python vá ter algo assim na biblioteca padrão da linguagem. Abraços, Graymalkin

Você está usando ASP.NET? O erro não seria referente ao uso de uma MessageBox em uma página? Se for, dê uma procurada aqui no fórum porque este assunto já rolou por aqui. Quanto a percorrer um array de objetos, você pode usar a instrução For Each para isso. Abraços, Graymalkin

como ??? se souber pesso ajuda. valeww. Na hora de proteger a planilha aparece um monte de checkboxes para você marcar. É a isso que eu me referi. Abraços, Graymalkin

Experimente falar com o Paulo César do Kitbr: http://www.kitbr.com/ Abraços, Graymalkin

Bom, aqui não deu. Mas, você tentou alterar o tamaho do registro? Abraços, Graymalkin

Seria melhor você mostrar o código usado. Mas, se você destrói o objeto Excel ao final do procedimento, você tem absoluta certeza de que você o cria ao iniciar o procedimento? Ou você o cria em outro local e está se esquecendo disso? Abraços, Graymalkin

Você está errando em declarar "f" dentro de um If. Em VB.NET, as instruções (If, For, While, Select Case e Try) também tem escopos próprios assim como as funções, rotinas, classes e módulos. Declare "f" fora da instrução (e com um tipo que possa acomodar qualquer um dos objetos) e você não terá problemas. Abraços, Graymalkin

Para gravar uma estrutura desse jeito, se não me engano, você precisa abrir o arquivo como Random (randômico) e definir o tamanho do registro (através da palavra-chave Len). E usar a instrução Put para escrever também. Exemplo: n = FreeFile() Open "c:\teste.txt" For Random As #n Len = 50 Put #n, , teste Close #n Faça o teste aí. Lembrando que a leitura também é diferente neste caso (usando a instrução Get). Abraços, Graymalkin

A maioria dos servidores de hospedagem com banco de dados MySQL não permitem conexões externas (ou seja, só o seu site faz utilização do banco). Mas, acho que se você conversar deve dar para liberar o acesso. Abraços, Graymalkin

É provável que sim (eu não uso esse recurso de proteger, mas deve ser isso). Se bem que eu dei uma olhada aqui e vi que você pode definir o quê o usuário pode fazer ao proteger a planilha. Abraços, Graymalkin

Você tem que concatenar: lbl_Status.Caption = "Voce Calculou " & Nome_variavel Certo? ;) Graymalkin

A linha... Set posição = Range(área).Find(procurar) ... faz a busca na planilha selecionada, e não na que você quer (Plan2). Para tanto você deveria fazer... Set posição = Worksheets("Plan2").Range(área).Find(procurar) ... tal qual o exemplo anterior. Para o código ficar melhor ainda, você pode escrevê-lo assim: Dim posição As Range área = "B:B" Set planilha = Worksheets("Plan2") procurar = planilha.Range("H3").Value Set posição = planilha.Range(área).Find(procurar) posição.Next.Clear Se você quer efetuar operações em uma planilha específica você precisa ou utilizar o objeto correspondente (como no exemplo acima) ou ativá-la antes (com o método Activate). Certo? ;) Graymalkin