Michelle Alves

Oi Marcelo, Faltou o "me" Unload me

Boa Tarde Marcelo, Conforme o Kuroi já te informou, a outra forma de fechar o FORM é usando Unload me. Só para deixar ainda mais claro, Hide apenas inibe o formulário, mas não descarrega, já Unload me vai descarregar o formulário.

Bom dia Leandro, Posso te mandar por email ?

Então Leandro, postei um exemplo. Nele mostra como estou fazendo as conexões do Excel para o Access e a pesquisa que eu faço pelo Excel, que estou sem saber como realizar ela puxando os dados que estão na tabela. Muito Obrigada http://www.4shared.com/account/file/966104...7/BDACCESS.html

Olá já tentou o usar esse script no form? Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Cancel = True End Sub

Posso postar a estrutura da pesquisa pelo VBA do Excel ? Mas ela é bem grandinha, se achar melhor eu posto um exemplo, o que você acha melhor, Leandro ?

Boa Tarde, Sou iniciante em Access. Na verdade eu estou tentando migrar o BD de um programinha que tenho pelo Excel para o Access. A conexão eu consegui fazer, graças a ajuda do Leandro Abbade e do Macêdo, mas as consultas parecem ser bem mais complexas e estou perdida. Alguém pode me dar uma luz nesse ponto? Desde já muito obrigada

Hummm.... por isso que tentei o Find de todas as formas imagináveis e nada, que pena. Então, sobre a questão das COLUNAS, não seria bem do jeito como você imaginou. A própria pesquisa, pensei em fazer ela só retornar as COLUNAS de DATAS e VALORES referentes ao que foi pesquisado, o resto não viria para o LIST. Por exemplo procurei o intervalo entre 1/4/09 até 10/04/09. Se apenas a COLUNA J tem do pedido 350 tem esse intervalo, só ela aparecia. Se no pedido 351 a COLUNA referente ao intervalo pesquisado é M, somente ela apareceria. Não sei se tem como fazer isso, mas pensei numa solução na estética, pois o LIST ficou desproporcional com tantas informações... Muito Obrigada

Pelo o que eu estou vendo não precisa de VBA, não. Basta formatação condicional. Se não souber como fazer posta um modelo que te ajudo a fazer.

Além dessa questão acima, que ainda não consegui resolver. A estética visual dos dados no Listbox é algo que tem me incomodado. Não sei se existe como fazer. Seria assim, as colunas PARCELAS e VENCIMENTO só apareceriam aquelas referentes ao que for pesquisado. Exemplifico: A parcela que é refere-se a minha pesquisa é a 2ª, então seria exibida apenas a coluna da 2ª parcela e o seu respectivo vencimento, e assim com todas os resultados, exibindo apenas o valor e parcela que se refere a pesquisa. Se por acaso tiver jeito... seria uma boa alternativa para aprimorar o visual estético, não acha ? Muito Obrigada

Oi Sange, tente ser mais específico sobre a sua necessidade, pois assim facilita para que possa ser ajudado.

Obrigada Kuroi

Oi Macêdo, O VBA do Excel tem o Tabstrip ?? Eu procurei no meu VBA e não encontrei o item: Micosoft Windows Common Controls 6.0 (SP6). Desde já obrigada.

Então Kuroi, Os dados vem da planilha sim. Eu tentei pelo método Find primeiro antes de postar e não deu. Com sua sugestão vi que estava nomeando as colunas de forma errada, tentei de novo mas novamente sem sucesso. Sub Pesquisar() Dim PrimEndereço, C As Range 'ListBox1.Clear With Sheets("CREC").Range("J:J,L:L,N:N,P:P,R:R,T:T,V:V") Set C = .Find(TextBox32.Text & TextBox33.Text, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False) If Not C Is Nothing Then PrimEndereço = C.Address Do CREC.ListBox1.AddItem Sheets("CREC").Range("F" & C.Row).Value CREC.ListBox1.List(CREC.ListBox1.ListCount - 1, 1) = Sheets("CREC").Range("D" & C.Row).Value CREC.ListBox1.List(CREC.ListBox1.ListCount - 1, 2) = Sheets("CREC").Range("I" & C.Row).Value Set C = .FindNext(After:=C) Loop While Not C Is Nothing And C.Address <> PrimEndereço End If End With End Sub O que acontece é que vou pesquisar um período. Suponhámos, quero saber o que tenho para pagar essa semana, ai eu pesquiso do dia 30/03/09 até 03/04/09. Ou seja, seria uma pesquisa em 2 TEXTBOX. Além da pesquisa por data, eu faria por Valor e FORMA de PG. Sobre a questão de correr os registros eu já consegui resolver. Não sei se ficou mais fácil o entendimento, vou colocar um exemplo para facilitar a visualização. http://www.4shared.com/account/file/95800035/ab9993d8/EXEMPLO_CREC-2.html Obrigada

Bom dia! Existe um determinado formulário do sistema que trabalho que não permite que seus usuários compiem dados dos campos. Ele está todo desabilitado, já tentei escrever alguns códigos para habilitar a cópia de dados, mas não conseguir. Preciso de um código que permita que os usuários, copiem os dados deste formulário.Como faço isto? será que alguém pode me ajudar? Desde já agradeço á todos, Atenciosamente, Michelle.

Boa noite, Tenho uma planilha de pagamentos, que exibo ela num Userform, e os dados são armazenados numa Listbox. Mas gostaria de efetuar pesquisa por um período de datas e valores, para por exemplo saber o que é necessário pagar na semana corrente. São 3 situaçoes: - Preciso fazer uma pesquisa um período de datas nas colunas: J, L, N, P, R, T, V, X, Z, AB, AD e AF. - Preciso pesquisar um limite de valores nas colunas I, K, M, O, Q, S, U, W, Y, AA, AC, AE - E por último pretendo correr cadastro por cadastro nos TExtbox por meio de buttons. Ao estilo próximo e anterior. A idéia seria: Depois de fazer a pesquisa, com um duplo click no List transferir os dados para os TEXT e alterar ou baixar o PG. Existem 3 tipos de pesquisa, que serão selecionadas pelo Option Button. Conforme o click no Option Button, determinada TEXT ou Combo será exibida e lá será digitada o que pretende ser pesquisado.

Oi gente, vou dar um pitaco.... Se for digitar no Textbox, pode usar BeforeUpDate, mas se for automática a máscara pode ser inserida no Initialize do FORM.

Boa tarde gente, Tentei usar o Floor e o Ceil mas tá dando erro de Sub ou Function. Alguém pode me dizer onde estou errando? 'PARCELA 1 TextBox1.Value = Floor(x, 2) 'PARCELA 2 If x < y Then TextBox2.Value = Ceil(x, 2) End If

Eu faço coisa parecida com isso. Vou explicar e postar as linhas de código para ficar mais fácil de entender: Existe o valor total numa TEXT (TEXTBOX6), eu pego esse valor, e divido ele pela forma de PG que está num combo e o resultado é exibido na TEXTBOX14. Confira: Private Sub ComboBox3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If ComboBox3.Text = Plan5.Range("B5") Then TextBox14.Text = TextBox6.Text / Plan5.Range("k5") ElseIf ComboBox3.Text = Plan5.Range("B6") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K6") ElseIf ComboBox3.Text = Plan5.Range("B7") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K7") ElseIf ComboBox3.Text = Plan5.Range("B8") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K8") ElseIf ComboBox3.Text = Plan5.Range("B9") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K9") ElseIf ComboBox3.Text = Plan5.Range("B10") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K10") ElseIf ComboBox3.Text = Plan5.Range("B11") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K11") ElseIf ComboBox3.Text = Plan5.Range("B12") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K12") ElseIf ComboBox3.Text = Plan5.Range("B13") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K13") ElseIf ComboBox3.Text = Plan5.Range("B14") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K14") ElseIf ComboBox3.Text = Plan5.Range("B15") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K15") ElseIf ComboBox3.Text = Plan5.Range("B16") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K16") ElseIf ComboBox3.Text = Plan5.Range("B17") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K17") ElseIf ComboBox3.Text = Plan5.Range("B18") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K18") ElseIf ComboBox3.Text = Plan5.Range("B19") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K19") ElseIf ComboBox3.Text = Plan5.Range("B20") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K20") ElseIf ComboBox3.Text = Plan5.Range("B21") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K21") ElseIf ComboBox3.Text = Plan5.Range("B22") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K22") ElseIf ComboBox3.Text = Plan5.Range("B23") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K23") ElseIf ComboBox3.Text = Plan5.Range("B24") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K24") ElseIf ComboBox3.Text = Plan5.Range("B25") Then TextBox14.Text = TextBox6.Text / Plan5.Range("K25") Else MsgBox "Data não cadastrada" Exit Sub TextBox14 = VBA.Format(TextBox1.Text, "R$ #,##0.00") End If End Sub Depois disso, no objeto MultiPágina eu vou para aba seguinte: E lá dependendo da quantidade do número de parcelas, o valor é exibido nas TEXTBOX. Private Sub MultiPage1_Change() Dim x As Currency Dim y As Currency x = TextBox14.Text y = TextBox6.Text 'PARCELA 1 TextBox1.Value = WorksheetFunction.RoundUp(x, 2) 'PARCELA 2 If x < y Then TextBox2.Value = WorksheetFunction.RoundDown(x, 2) End If 'PARCELA 3 If y > x * 2 Then TextBox3.Value = WorksheetFunction.RoundUp(x, 2) End If 'PARCELA 4 If y > x * 3 Then TextBox4.Value = WorksheetFunction.RoundDown(x, 2) Else TextBox4.Value = "" End If 'PARCELA 5 If y > x * 4 Then TextBox5.Value = WorksheetFunction.RoundUp(x, 2) Else TextBox5.Value = "" End If 'PARCELA 6 If y > x * 5 Then TextBox15.Value = WorksheetFunction.RoundDown(x, 2) Else TextBox15.Value = "" End If 'PARCELA 7 If y > x * 6 Then TextBox20.Value = WorksheetFunction.RoundUp(x, 2) Else TextBox20.Value = "" End If 'PARCELA 8 If y > x * 7 Then TextBox22.Value = WorksheetFunction.RoundDown(x, 2) Else TextBox22.Value = "" End If 'PARCELA 9 If y > x * 8 Then TextBox24.Value = WorksheetFunction.RoundUp(x, 2) Else TextBox24.Value = "" End If 'PARCELA 10 If y > x * 9 Then TextBox26.Value = WorksheetFunction.RoundDown(x, 2) Else TextBox26.Value = "" End If 'PARCELA 11 If y > x * 10 Then TextBox28.Value = WorksheetFunction.RoundUp(x, 2) Else TextBox28.Value = "" End If 'PARCELA 12 If y > x * 11 Then TextBox30.Value = WorksheetFunction.RoundDown(x, 2) Else TextBox30.Value = "" End If End Sub Mas como eu copio os valores do TEXTBOX14, todos os parcelamentos no TEXT da MULTIPAGE ficam idênticos. Desse jeito, alguns valores batem certinho, mas nem sempre, tem alguns casos que dão problema. Não tenho como saber quais TEXT devem ter o ROUNDUP ou ROUNDDOWN.... isso varia para cada valor, esse o problema.

Vou precisar mesmo Macedo, se você não se importar comigo sempre te perguntando as coisas..... Então todos os scripts que fiz pelo excel vou ter que refazer no Access inserindo a conexão... ? Dá até pena, pois meu projeto tá prontinho.... mas a segurança de um banco de dados fala mais alto....

Então Kuroi, é isso mesmo a terceira opção que é utilizada. Porém eu copio os valores de todos as parcelas de um TEXTBOX, dessa forma, o valor de todas fica igual, ai ou ultrapassa um centavo ou falta devido ao arredondamento.

Vou te exemplificar para facilitar o entendimento: os valores das parcelas são exibidos no TEXT conforme um script posto para te exemplificar; Exemplo; R$ 4,37 dividido em 4 parcelas deu 1,09 cada parcela, totalizando 4,36 Porém o código abaixo seria se y fosse maior que o X (parcelas) então o valor da parcela seria exibido, mas como deu menor por causa do arredondamento, ele exibiu a parcela, porém ele deveria ficar vazio, pois foram apenas 4 parcelas. Dim x As Currency Dim y As Currency x = TextBox14.Text y = TextBox6.Text 'PARCELA 5 If y > x * 4 Then TextBox5.Text = x Else TextBox5.Text = "" End If

Então, não é só retirar o ROUND, no caso de haver um dízimo como você bem citou o resultado vai dar inexato do mesmo jeito. Ai vai dar diferença no valor final.

Primeiramente Obrigada Jonathan, Então, usando Round vai acontecer o seguinte: Eu coloquei um valor fictício: R$ 4,37 esse valor dividido por 2 não dá um valor inteiro. Então o sistema colocou cada TEXTBOX (parcela) por 2,19, arredondando para cima. Porém dessa forma ele passa o valor em 1 centavo. Esse é o problema. Até porque não saberei qual TEXTBOX (parcela) deverá ser arredondado para cima ou para baixo, gostaria que o sistema fizesse esse cálculo para o valor ser exato. Obrigada

Oi gente boa tarde, estou precisando de uma consultoria novamente. Como dividir parcelamentos sem dar diferença no valor final ? Pois usando o ROUND eu arredondo o valor, mas dependendo do valor e da quantidade de parcelas vai dar diferença. E no meu caso, os valores nas TEXTBOX dependem da exatidão desses valores para sem exibidos.