kuroi

beleza, so mais uma coisa q eu tava reparando aqui... essa parte do codigo aqui: <select name="situacao_of_om" class="campos1" id="situacao_of_om" onClick="java script:abrir('cadastra_rv_manut.asp?id_cliente=<%=id_cliente%>&situacao_of_om=1',this,no_os=<%=g_o_m_i("no_os")%>,'<%=session("usuario")%>');" > se o q eu passei acima não funcionar, então poste esse codigo do select com a pagina já carregada (aberta no browser com o codigo asp já executado), porque não to entendendo o q ta sendo passado pra o no_os.

se você chamar esse mesmo codigo do window.open() em qualquer outra parte q não a partir do combo, ele funciona?? q parte de desse codigo ele ta executando?? ele chega a mostrar a janela do confirm?? tenta fazer assim pra testar: window.alert(1); window.open(URL,'TESTE', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no'); window.alert(2);[/code] se ele mostrar o primero alert mas não o segundo, significa q o erro é na linha do window.open(). se ele não mostrar nem o primero significa q o erro é antes disso. fora isso, tenta fazer o codigo assim: [code]function abrir(URL,combo,no_os) { if (combo.value == 1) { if (confirm("Deseja Incluir RV da O.M n.º \n\n" + no_os + " ")) { var width = 650; var height = 500; var left = 150; var top = 150; window.open(URL,'TESTE', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no'); } } } tinha umas chaves jogadas no meio do seu if, vai q o chrome encana com isso.

esse codigo do sortfields era pra funcionar. qual o problema q você ta tendo?? não ta ordenando?? e so pra comentar, a sua formula de selecao acho q ta errada. não sei se foi so na hora de postar, mas você ta usando dois sinais de maior. EDITADO: é o sqlquery so funciona pra banco sql server mesmo. quero dizer, não testei com outros bancos de dados, como oracle, pra ter certeza q não funciona mesmo. mas com access sei q não da mesmo.

visualg não tem nd a ver com visual basic. moverei pra uma sala mais apropriada.

tente isso: i = 10 Dim teste() As String ReDim teste(i , 1)[/code]

sabe q eu não sei... não sei se tem alguma propriedade q retorna isso. é capaz de ter uma bem facil de achar, entretanto, você pode pegar direto da string retornada pelo address: Public Function coluna_letra(ByVal c As String) As String coluna_letra = Mid(c, 2) coluna_letra = Left(coluna_letra, InStr(coluna_letra, "$") - 1) End Function[/code] ai é so você acessar coluna_letra(ActiveCell.Address) q você acha a letra. so pra me divertir um pouco, fiz tb uma funcao pra retornar a partir do numero da coluna, ficou meio zuada mas parece q funciona tb: [code]Public Function coluna_letra(ByVal c As Long) As String coluna_letra = "" If c <= 0 Or c > 676 Then Exit Function If c > 26 Then coluna_letra = Chr(((c - 1) \ 26) + 64) c = c Mod 26 End If If c = 0 Then coluna_letra = coluna_letra & "Z" Else coluna_letra = coluna_letra & Chr(c + 64) End If End Function

danyy, acho q é mais ou menos isso: Dim ultima_linha As Long, i As Long ultima_linha = xlw.Application.Cells(xlw.Application.Cells.Rows.Count, 8).End(xlUp).Row For i = 2 To ultima_linha data = xlw.Application.Cells(i, 8).Value 'aqui você faz o q quiser com o valor de cada linha (esta na variavel data) Next[/code] tenta ai.

hum, se não me engando, o access não suporta adOpenDynamic. tenta trocar por adOpenKeyset.

tenta isso: if FSO.GetExtensionName(file.path) = "txt" And (dateDiff("d", file.datecreated, now) >15) then File.delete end if[/code]

isso, testa ai e veja se funciona. so uma coisa, não sei muito sobre a sintaxe de arquivos .ini, mas em todos exemplos q olhei, não tem espacos do lado dos sinais de = (e no exemplo q você postou tem), então fica de olho, não sei se ele entendera o arquivo com os espacos.

isso. mas "arquivo.ini" é um nome q passei de exemplo. você tem q por o nome do seu arquivo no caminho q ele estiver.

omega, essa parte aqui: IP = ReadINI("Configurações", "IP", "arquivo.ini") Site = ReadINI("Configurações", "Site", "arquivo.ini")[/code] não pode estar jogada ai, era pra estar no form load. no lugar disso aqui q você passou no primero post: [code]Site = "http://xxxxxxx" IP = "127.0.0.1" fora isso, você ta declarando o Porta() duas vezes. uma vez na primera linha e outra na ultima dessa parte do codigo q você passou. dexe so uma delas.

posta o codigo todo do form como esta agora. se for muito gde, pelo menos posta onde ta escrito "Configurações", uma sub pra cima e uma pra baixo.

danyy, faz o seguinte, clica na linha If posicaod = "" Or posicaoc = "" Then e aperta F9. você vai ver q a linha vai ficar vermelha. ai aperte F5 pra rodar o programa e vai executando o codigo normalmente. quando chegar nessa linha, a execucao do programa vai pausar. se você parar o mouse em cima dos nomes das variaveis (posicaod e posicaoc por exemplo), ele vai te mostrar o valor q ta dentro dela. ou ainda, se você apertar Ctrl + G, vai abrir a janela do immediate. se você digitar la dentro, por exemplo: ? posicaod e apertar ENTER, ele vai te mostrar o conteudo q ta la dentro. então, da uma olhada nisso pra você ver o q ta vindo do txt. inclusive, você pode ler o conteudo da variavel s (? s e ENTER no immediate), pra tentar ver o q tem la. porque eu acho q tem informacao nas duas posicoes, por isso ele ta escrevendo "1". ou então você ta trazendo as informacoes erradas. a e quando o programa ta pausado, você tb pode ir apertando F8, assim você vai avancando linha por linha e pode ver onde ele vai parar (F5 faz o programa rodar normalmente de novo). da uma olhada ai.

ele não aponta nenhuma linha?? esse erro é porque você escreveu algum codigo fora das subs. assim: Private Sub x() - codigo aqui, pode - End Sub - codigo aqui não pode - Public Function y() - codigo aqui, pode - End Function - codigo aqui não pode -[/code] no caso de declaracoes, você pode por la em cima de tudo, antes de abrir a primeira sub ou function, mas depois não pode mais.

danyy, esse codigo com o if em uma linha so ta rodando?? tenta assim: If posicaod = "" Or posicaoc = "" Then mdlanc = "2" Else mdlanc = "1" End If[/code]

beleza, mas vai com calma, ficar postando q nem loco não vai te ajudar a ter resposta mais rapido. então, você simplesmente chama esse comando q eu passei com um shell() (eu escrevi shellexecute() no post de cima, mas o shell() tb serve e é mais simples): Shell "cmd /C net user > ""arquivo.txt""", vbHide eu chequei aqui e vi q esse comando mostra todos os usuarios da rede e não so os q logam no windows. isso pode atrapalhar pra vc, mas é o melhor metodo q encontrei pra listar os usuarios. ai você abre o txt e procura os usuarios la dentro. as 4 primeiras linhas do txt são o cabecalho. depois é q vem os usuarios. vem 3 por linha e você separa por mid(). aqui tb tem uns tutoriais pra trabalhar com arquivos texto, se você nunca fez isso, da uma olhada ai: http://en.wikibooks.org/wiki/Visual_Basic/Files http://www.macoratti.net/txt_arqs.htm

acho q você deve ter apagado a declaracao do array Porta() la em cima: Dim Porta() As String ou você pos em algum otro lugar q ele não ta enxergando no form load. se você pusesse sem parenteses na linha do erro, deve funcionar, mas ele entenderia Porta() como variavel local (so ia valer dentro do form load). se você precisa q ele identifique Porta em outros lugares, você tem q arrumar a declaracao la em cima.

a declare-os como private (ficando Private Declare Function...)

omega, essa parte em negrito foram so comentarios q o macoratti adicionou como explicacao. não faz a minima diferenca o q você escrever ai, inclusive você pode apagar q vai continuar o mesmo. aquilo la são so as descricoes dos parametros. na hora de chamar a funcao, você faria assim: IP = ReadINI("Configurações", "IP", "arquivo.ini") no lugar de "arquivo.ini" você poe o verdadeiro nome no seu arquivo ini no caminho certo. quando você precisar escrever, você chama a funcao WriteINI() do mesmo jeito, mas passa o novo valor q você quer q seja escrito no parametro Texto.

ta vendo os codigos do macoratti?? primeiro você declara as funcoes. aquelas duas linhas onde ele passa Declare Function e mais as duas funcoes Public Function ReadINI() e Public Sub WriteINI() você poe tudo la em cima na janela de codigos do seu formulario. depois pra ler o arquivo você chama a funcao ReadINI() passando como parametros a secao (no seu caso "Configurações"), o nome do campo (no seu caso, "IP") e o endereco do arquivo. o macoratti te da os exemplos certinhos, olha la.

acho q o for devia ser assim não?? For i = 1 To 20

cara, você acabou de abrir o tópico, ta reclamando do q?? o usuarios do forum não são seus empregados. alem de ter postado na sala errada... mas respondendo, não encontrei nenhuma api q faca isso ou coisa assim (isso não significa q não exista), mas parece q o seguinte comando do prompt faz isso (chame pela funcao shellexecute()): net user > "arquivo.txt" ai a lista de usuarios deve ficar salva nesse arquivo.txt (escolha o nome e o diretorio q quiser). então você abre o arquivo pelo visual basic, e procura la os usuarios.

em q linha exatamente acontece o erro??

veja se ajuda: http://www.macoratti.net/vb_ini.htm