D4N1LL0

Aff estou aqui para pedir uma ajudinha, não funciona a opção .Orientation do meu DataReport não sei porque , por favor se alguém sabe a causa disso me ajude. vlw Danillo

É um progama de Assessoria de cobrança. Este é o menu principal , como você disse , eu sou um desses que se preocupa com o desing e a cor do txt ou do label , aehauheuha. Tem o menu clientes onde você pode inserir clientes , alterar , excluir , pesquisar sobre alguma pendência do cliente pesquisado e tudo mais. Falta pouco para terminar , so que apesar de tudo é um progama so com codigos SQL e criatividade , nada mais. Unico problema que eu tenho com ele é como evitar pirataria.

Acho que muitos aqui , especialmente eu , que estão começando a carreira de progamador , gostariamos de saber o custo de um progama. Já ouvi por aqui e por ali que isso depende muito de como o progama é , seu desing , o tempo que levou e o quanto complexo foi seu código. Não me ajudou muito não. Quem mais poderia nos ajudar se não fosse vocêis ? que já estão nesse rumo a muito tempo e que tem muito mais experiência que agente.

beleza, andei estudando e já consigo fazer bastante coisa com MSFlexGrid menos atualiza-lo. Por exemplo, quando o cara altera , edita ou deleta algo , isso so aparecera no FlexGrid se fechar a form e abrila novamente. já tenti fazer um codigo semelhante e coloca-lo quando alteram ou editam so que não faz nada.

Tenho um formulario que contem um MSFlexGrid . Logo quando ocorre o envento load aparece no grid as informacoes no banco de dados, ate ai tudo bem. O grande problema e editar o codigo para que quando ocorrer o evento click do grid abrir um outro formulario com as informacoes do registro clicado, não sei nem como começar , desculpe mas sou iniciante =D.

Descobri onde esta o erro (FINALMENTE , ignorem os ultimos posts) Os erros estao nas duas variáveis (vAcompCD , vAcompDisquete ) eles são tipo CheckBox , já na tabela deixei os campos pertecentes as variáveis como Sim/não (Sim/não SIM) que no VB estao True/False (variaveis) quero saber como mandar esse dado pra la sendo que o meu e true or false.

Sim e Sim, É o Acess e já conferi 3 vezes . Agora conferi dinovo , acho que vou deletar a tabela e fazer-la dinovo . Eu mudei o código para esse abaixo e mesmo assim esta com erro. If vInclusao Then [b]vSQL [/b] = "INSERT INTO Livros (CodLivro, Titulo, Autor, CodEditora, " & _ "CodCategoria, AcompCD, AcompDisquete, Idioma, Observacoes) " & _ "VALUES (" & vCod & ",'" & _ txtTitulo.Text & "','" & _ txtAutor.Text & "'," & _ vCodEditora & "," & _ vCodCategoria & "," & _ vAcompCD & "," & _ vAcompDisquete & "," & _ vIdioma & ",'" & _ txtObservacoes.Text & "');" Else [b]vSQL [/b] = "UPDATE Livros SET Titulo = '" & txtTitulo.Text & _ "', Autor = '" & txtAutor.Text & _ "', CodEditora = " & vCodEditora & _ ", CodCategoria = " & vCodCategoria & _ ", AcompCD = " & vAcompCD & _ ", AcompDisquete = " & vAcompDisquete & _ ", Idioma = " & vIdioma & _ ", Observacoes = '" & txtObservacoes.Text & _ "' WHERE CodLivro = " & vCod & ";" End If With cnnCOmando .ActiveConnection = cnnBiblio .CommandType = adCmdText [b].CommandText = vSQL[/b] .Execute End With MsgBox "Gravação concluída com sucesso.", vbApplicationModal + vbInformation + vbOKOnly, _ "Gravação OK" limpartela Tipo , eu to achando tambem que essas variaveis vCodEditora e categoria não está recebendo algum valor , pode ser isso ? Private Sub cboEditora_Click() With cboEditora If .ListIndex <> -1 Then vCodEditora = .ItemData(.ListIndex) Else vCodEditora = 0 End If End With End Sub Private Sub chkAcompCD_Click() If chkAcompCD.Value = vbChecked Then vAcompCD = True Else vAcompCD = False End If End Sub Outra coisa. Quando eu entro direto no banco de dados e digito la os dados nos campos e entro no projeto , o comando select funciona direirinho sem nehum erro, to achando que este erro vadio esta no GravarDados, vo refazer a tabela e vê no que é que dá.

Não entendi, como faço para executar o insert/update direto no banco de dados ?

Ele sublinha a parte .Execute como o erro.

É , realmente não faco nem ideia de como fazer um progama VB expirar sem chance do #%$"! do cliente conseguir dete-lo, vlw brigado. Ou pelo menos os comandos basicos para fazer isso Outra pergunta , eu não sei o evento que corresponde ao click do "X" do formulario, alguém sabe ?? vlw , danillo Fuiz ...

hehe gostei , já entenfi, vlw brigaodao

Estou aqui para questionar como adicionar pictures do formato do coreal e photoshop dentro de uma aplicação e como faz para mudar ou fazer outro tipo de design dos controles do VB

Nesse mesmo projeto, algumas vezes ele tem um code Fra_Dados.Enabled , acho que é um formulario que utiliza para algum fim , mas dexa pra la , você já me ajudo muito e consegui resolve os problemas ak , está funcionando beleza , so tem algums erros de matematica ak mas já já consiguo arrumar. Vlw , Brigadao mesmo Danillo

pois é, esse xlw.save ou saveAs da um erro dizendo que o arquivo esta em uso e não pode ser alterado, ou melhor , que o arquizo e somente como leitura.Queria saber também sobre esse Fra_Dados, o que é isso ?? Outra coisa , como eu faria a propriedade range usando esse exemplo que eu postei acima?. Por acoso seria xlw.application.range("RA").value ?? e caso esteja errado como uso uma variavel nessa Range vlw, brigadao e desculpa por tantas perguntas Danillo

Ow , muito obrigado pela sua ajuda, eu estava pesquisando um poco por ai consegui criar o arquivo Dados.xls e ainda fiz o que voce me ensino ai, so que estou tendo problemas na hora de salvar um valor emitido por uma das caixa de texto, consegui fazer com que mostre um valor já salvo no Dados.xls mas na hora que tento salvar algum dado la salva na linha errada. Por exemplo EU apaguei tudo e comecei a codificar dinovo Dim xl As New Excel.Application Dim xlw As Excel.Workbook Set xlw = xl.Workbooks.Open("C:\Dados.xls") xlw.Sheets("Produtos").Select Isso le o que tem no arq. mas queria saber como salvar la Vlw , brigadao Danillo

Estou tão confuso quanto você uaeuha. Estava montando um projeto que vem em uma apostila, mas vem tudo sem detalhes, e como eu sou iniciante não aprimorei muito ela, estava so tentando fazer igual da apostila como fixaçao e então começou esses erros, acabando a apostila servindo para nada. Tem como voce ir ageitando o projeto e divulgando o que seria correto fazer , sei la , ficaria muito grato. Ou para não achar que quero usar você apenas explicar melhor esse negocio de referencia ao "Range" . Bom , tem um arquivo no C:/Dados.xls se não me engano que me referi no Form_Activate. já me falaram que tenho que usar o Module mas são tantos coisas que me dizem para arrumar esse Range xato que já estou confuso e o que eu achei que estava aprendendo , confundi + ainda. Quero tentar arrumar esse Codigo pois acho que o da apostila e de uma verçao desatualizada

O erro diz alguma coisa a respeito da Propriedade Range. Esta dando erro para colocar o arq pra dl mas ai esta o link: http://www.forumweb.com.br/foruns/index.ph...pe=post&id=2263

:blink: Alguma coisa assim, o código Range não está funfando, como sou iniciante queria a ajuda d vocês que já tem PHD nisso hehe =D. O projeto está anexado, isso e um projeto de uma apostila bem legal de um progama de instrumentos musicais, so que ele não explica detalhadamente. O codigo está ai : Private Sub LControle() RA = Range("RA") NR = Range("NR") OP = Range("OP") End Sub e esse também> Private Sub GControle() Range("RA") = RA Range("OP") = OP O usuario é Danillo e senha 123