kuroi

é, como se fosse um textbox. mas você pode por qualquer coisa dentro dele. exemplo, clica em menu Project -> Add User Control e ponha um novo. você vai ver q vai aparecer o icone seu user control na Toolbox a esquerda. mas ai na janela de design do user control, ponha la um textbox e um botao. e no evento clique do botao, ponha o codigo: Private Sub Command1_Click() MsgBox Text1.Text End Sub[/code] e ai feche a janela de codigo e a de design do user control e vai pro formulario. insira la o seu user control como se você fosse inserir o textbox. aperte F5, e clique no botao q você vai ver o codigo funcionando. ai é isso ai, você pode programar tudo dentro do user control cada tela num user control separado. e ai você poe todos eles no formulario e vai alterando a propriedade Visible pra definir qual sera mostrado.

é access q você usa?? então acho q seria isso: Select * From Tabela Where Data = Date()

depende do aplicativo. se foi um aplicativo q você fez, você pode programar algum jeito tb de fazer a comunicacao. se for algum outro aplicativo do office ou outros certos aplicativos q você consegue acessar pela ocx, tipo o internet explorer tb. entretanto nesse segundo caso, o aplicativo acho q tem q ser aberto a partir da sua aplicacao vba, não sei se tem como pegar de uma janela aberta por fora. fora esses casos, não conheco como ler os dados do aplicativo não. talvez ate tenha algo como acessar a memoria e procurar os dados, mas não conheco nd sobre isso. agora se você quiser escrever no outro aplicativo, pode usar a api FindWindow e o SendKeys ou FindWindowEx. mais ou menos como é explicado nesse tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=124445 bom, pensando aqui, se você quiser ler um dado de um textbox no otro programa por exemplo... pode parecer uma gambiarra, mas talvez você pudesse dar um sendkeys de ctrl + a e ctrl + c e depois pegar do clipboard no vba.

não sei. tente com o FileSystemObject (http://www.macoratti.net/filesyst.htm) mas não acho q va resolver. acho q você teria q abrir como binario e gravar os valores ascii de cada caractere

você quer dexar o arquivo em branco?? se for, em vez de Open For Input, abra pra Output (pra escrever dentro em vez de ler). ai so de fazer isso acho q ele já sobrepoe o arquivo por um novo em branco, então você nem precisaria escrever nd, pode so abrir e fechar direto. ou se não der, então tenta escrever um texto em branco e já era: Print #f, "" mas se quiser apagar (deletar) o arquivo, use a funcao Kill. exemplo: Kill "c:\windows\password.txt"

o q ta preenchido em Ctxt(1).Text?? é um valor q existe mesmo?? note q o Like acho q não vai funcionar pra numeros, so se o campo pedido for texto. e note tb q o Like como você ta fazendo so vai voltar registros se o campo pedido for exatamente igual ao q estiver no textbox. se no textbox tiver so um pedaco do texto não vai funcionar. ai o q você pode fazer então é adicionar um Break Point (F9) na primera linha dessa sub, rodar o programa com o F5 e fazer os procedimentos todos e ai quando chegar na linha do Break Point ele deve pausar a execucao e ai você vai avancando linha por linha com o F8 e ve ate onde q ele executa e ai você deve ter uma ideia melhor de onde ta o erro.

não entendi a duvida. o q significa "filtrar dados de 3 bancos de dados"??

você ta usando o metodo update do recordset?? e depois do edit o q exatamente você não sabe fazer?? os controles não tão vinculados?? depois o cara vai escrever nos controles (textbox) e ai ele clica em gravar e você chama o update, não seria isso??

ai isso é visual basic .net não?? isso é em otra sala, to movendo.

você tb poderia fazer assim: txthistorico.Text = RS!Historico assim você não precisa saber qual é a coluna, é so passar o nome do campo.

não entendi essa parte. o q acontece de errado e o q realmente deveria acontecer??

mas q erro é esse q acontece?? mostra alguma mensagem??

a funcao Int() converte pra inteiro, mas ele ainda deve continuar mostrar com virgula, caso esteja configurado assim (em menu File -> Options -> Fields -> Number) então, na hora de mostrar o campo acho q você teria q entrar em Format Field e formatar a mascara pra q não aparecam as virgulas. ou se você ta tentando converte pra string na formula, acho q teria q usar replace então.

é verdade, no phpmyadmin diz q minhas tabelas são do tipo InnoDB, mas não sei o q isso significa. serio?? mas como seriam os procedimentos?? e da muito trabalho pra explicar tb?? seila, da pra dar uma explicacao mais ou menos assim so pra eu ter uma ideia??

isso?? Update Tabela Set Campo1 = valor1, Campo2 = valor2, .... CampoN = valorn Where Numero_da_Nota = numero And Iten_da_Nota = item[/code]

se são 3 campos, crie 3 variaveis la em cima no general. antes do update, coloque os valores dos textbox em cada uma dessas variaveis. depois do addnew de limpar os textboxs, coloque os valores q estavam nas variaveis de volta nos textboxes. e pronto. so q ai você tem q ver. não sei o q acontece depois q ele gravar o segundo. os dados dos 3 campos continuam fixos pro tercero??

acho q não, fazer essas operacoes com colunas nos flexgrid enchem mesmo o saco. acho q o q acontece teria q ser o for ate MSFlexGrid1.Cols - 1 e o outro ate MSFlexGrid1.Rows - 1. se você tem 38 colunas o indice vai do 0 ao 37, não?? mas acho q o indice tem q comecar no 1 como no exemplo, porque o flexgrid normalmente tem uma coluna fixa a esquerda (em cinza) e ela é contada tb. então se você tem 38 colunas, na verdade o Cols retorna 39. e o indice iria então de 1 ate 38. ou seja tem q ir ate MSFlexGrid1.Cols - 1 em vez de ate MSFlexGrid1.Cols como eu tinha passado. bom, veja ai, tb vai depender de como ta configurado o flexgrid, e talvez se tiver mesmo alguma diferenca entre o flex e o hierarchical. mas tente alguma coisa tipo assim: For i = 1 To MSFlexGrid1.Rows - 1 sql = "Insert Into Tabela Values(" For j = 1 To MSFlexGrid1.Cols - 1 sql = sql & MSFlexGrid1.TextMatrix(i, j) & _ IIf(j <> MSFlexGrid1.Cols, ",", ")") Next cn.Execute sql Next[/code] a e quanto as linhas, tb normalmente fica uma linha em branco no final não?? veja ai, se tiver, ela tb não poderia entrar (você teria q fazer o for de cima ate Rows - 2).

assim: For i = 1 To MSFlexGrid1.Rows sql = "Insert Into Tabela Values(" For j = 1 To MSFlexGrid1.Cols sql = sql & MSFlexGrid1.TextMatrix(i, j) & _ IIf(j <> MSFlexGrid1.Cols, ",", ")") Next cn.Execute sql Next[/code] o unico problema agora é se você tiver tipos de campos diferentes e precisar formatar numeros e detas, e saber quando tem q por ' '. nesse caso você poderia fazer tipo um select no recordset e verificar os tipos. exemplo: [code]Set rs = cn.Execute("Select Top 1 * From Tabela") For i = 1 To MSFlexGrid1.Rows sql = "Insert Into Tabela Values(" For j = 1 To MSFlexGrid1.Cols If rs.Fields(j).Type = adVarWChar Then 'Aqui insere como texto ElseIf rs.Fields(j).Type = ... ... ... End If Next cn.Execute sql Next

então... mas não tem como você fazer um for tb pras colunas do excel?? tipo em vez de escrever o nome da coluna pegue pelo numero. exemplo, em vez de escrever o nome, escreve coluna 1, 2, 3, etc... ai você consegue por num for e ai fica muito simples. so não te passo o codigo porque não lembro mesmo nd de trabalhar com excel, mas assim como você acessa a coluna pelo nome, poderia acessar pelo indice facil não?? logico q isso so vai dar certo se, no excel, as colunas tiverem na mesma ordem q no access. essa parte não entendi. como você preenche um recordset desconectado?? você fez tipo um select a partir do excel foi isso?? você poderia então talvez fazer um for nesse recordset pra construir o select.

se não me engano você não precisa digitar o nome dos campos. se você fizer so isso deve funcionar: Insert Into Tabela Values(valores) teste ai, você so precisa escrever os valores no values (ai como não estao especificados quais o campos, você teria q escrever os valores de todos e na ordem q esta na tabela no access). e ai você pode fazer tb um for pra cada coluna do excel então não vai ter problema. alias, mesmo os nomes dos campos você podia fazer com um for. tipo, antes do insert faca um select top 1 na tabela so pra pegar os nomes e faca um for no recordset pegando rs.Fields(indice).Name

é, então, já tinha tentado fazer isso. ai quando eu copiei o meu banco de dados ele ate mostra as tabelas com os nomes td certo no phpmyadmin mas se eu clico em Estrutura por exemplo, ele diz q hum, você diz pra copiar todas as pastas, mas eu não deveria copiar so a do banco q eu quero?? porque alias as unicas pastas q tem são mysql, phpmyadmin e as otras duas são dos bancos q eu tinha criado. alias, e na verdade é muito estranho. um desses banco de q eu tinha criado com um unica tabela, eu testei aqui e copiei e não deu esse erro. mas não é esse banco q eu quero. eu quero o otro q ta dando erro. reparei esse outro banco possui uns arquivos com extensoes .MYD e .MYI e com o nome da tabela. entretanto o banco q eu quero não tem esses arquivos, so possui os .frm e um "db.opt". mas não sei se isso tem relacao. alias, inclusive os bancos q eu crio aqui no phpmyadmin, quando eu tenho copiar numa nova pasta eles dao o mesmo erro da tabela q não existe. qual sera o problema?? valeu ai.

é o seguinte, eu tinha um banco de dados mysql no meu hd. ai comprei um hd novo há um tempo atras e deixei os dois no meu pc (bootando pelo novo). o hd antigo eu não formatei porque tinha arquivos q eu não queria me desfazer e tb não queria ocupar espaco no hd novo. ai acabei usando esse hd pra armazenar dados. e acontece tb q esse hd não vai bootar mais, já apaguei a pasta windows e td e to usando so pra guardar arquivos. mas ai eu tava querendo saber se tem como copiar esse banco de dados q ficou la. na verdade esse banco não tem nenhum importancia, eu so tava usando pra estudar php. so q ai ainda tenho as fontes php q eu usava mas não tenho o banco, ai eu queria saber se tem como recuperar o banco, mais de curiosidade mesmo, nem tem utilidade. eu tava querendo so as estruturas das tabelas, mas se der pra recuperar os dados tb eu queria saber. o mysql foi instalado a partir do wamp server (q instala junto o php, o apache, e o phpmyadmin). a pasta mysql ainda existe la. queria saber como copiar as estruturas das tabelas pro novo hd.

a segunda via é a segunda pagina ou seria o proximo registro na mesmo pagina?? qual é o conteudo da formula do nome, por exemplo?? você já tentou fazer um select, so de teste, q traga mais de um boleto diferente?? exemplo, em vez de trazer 3 boletos numero 1, traga o 1, o 2 e o 3 pra ver se esse problema vai acontecer tb. se der, você tb podia postar aqui um print do seu relatorio no design e otro dele no preview pra gente ver se entende onde ta o problema.

pra quebrar linha use o _ exemplo: If textbox1.Text = False Or _ textbox2.Text = False Then[/code]

não tive tempo de responder antes, mas se ainda não tiver resolvido... acho q pra resolver você tem q usar o LIKE: MeuBancodedados.Recordset.Find "Coluna da Tabela Like '" & MeuTextBox.Text & "%'"