alepe

Pessoal preciso saber o codigo ASCII da tecla TAB. alguém pode me ajudar

Pessoal fiz um sistema em vb mas não estou conseguindo compartilhar o mesmo entre as estações Deixei uma maquina como servidor Criei o MDB nos driver odbc Fui na maquina 2 criei um link do executavel do servidor e criei a conexão com o ODBC, ao tentar acessar vem a menssagem: Erro "Run Time error 2147467259(80004005)' que não foi possível encontrar o arquivo c:\windows\desktop\facrica.mdb. Alguém pode me ajudar..

Valeu pessoal o problema estava no .text nas passagens dos dados... Obrigado....

então não devo utilizar o textbox e sim passar somente o name do textbox sem o ".text"

Pessoal o CN está definido os campos foram conferidos e mesmo assim ele da erro o erro é Run time error 424 objetc required uma coisa que estou com duvida é o campo dcoprocesso e dcoterceiro eles são combobox. o jeito de passar ele está correto. ?

Da erro de tipo de dados Type mismatch... utilizando typename o campo é string Existe alguma incompatibilidade do Find com texto.. ?

Utilizando o ADODC ele funciona na primeira inclusão ao clicar no botão novo alguns campos ele não deixa incluir. e ao acabar de preencher os campos e clicar no gravar ele da error "3021" BOF ou EOF. são verdadeiros ou o registro atual foi excluido a operação registrada pelo aplicativo requer um registro atual. Alguma Luz

Caros, Ao utilizar o find para pesquisar o tipo de tecido ele não localiza e da erro Run time error 3001. Os argumentos são incorretos, estão fora do intervalo aceitavel ou estão em conflito. Se a pesquisa fosse por numero ele funciona.. entrada tipo de tecido = RIBANA Dim codigo As String, criterio As String 'Processo de localização de tecido em estoque codigo = txttecido.Text If codigo = Empty Then Exit Sub criterio = "tipotecido =" & codigo rs.MoveFirst rs.Find criterio, 0, adSearchForward If rs.EOF Then rs.MoveLast MsgBox "Tecido Não Existe!!!" End If rs.Fields("quantidade") = rs.Fields("quantidade") - txtqtdeutilizada.Text

Caros... To querendo definir os menus por senha ou seja dependendo do nivel hierarquico e funcao ele abre o menu somente com as opções certa para o usuário... Alguma ideia como fazer...

Caros, após a inclusão de dados na base o programa retorna que o dado foi inserido corretamente. mas ao utilizar os botoes de para frente , para tras ultimo e voltar ou até pesquisa ele da o segiuinte erro Run time error '-2147217842(80040e4e)': Operação Cancelada Estou utilizando o ADODC Alguém Help,....

Run time error "-2147217900(80040e14)' Numero de valores de consulta e campos de destino não coincidem. Pergunta: Se as consulta vem de datgrid e datalist relacionei elas no value e os campos do bd não estou utilizando o de autonumeração é obrigatório colocar todos ? SQL = "insert into relcomanda(codigocomanda,nomedaloja,datadacomanda,vrcomanda,desconto,vrtotaldesc,defeito,impresso) VALUES ('& lstmostra.SelectedItem & ', '" & nomeloja & "', DateValue('" & datacom & "'), " & total & ", " & txtdesc.Text & ", " & txttotdesc.Text & ", '0 ' , ' 1' " cn.Execute SQL

Ao usar o run com insert into da erro de RUN TIME ERROR 2517 O microsoft acess não pode localizar o procedimento insert into Após definir os dados peço para ele dar esse insert e da erro alguém pode ajudar Run "insert into relcomanda(codigocomanda,nomedaloja,datadacomanda,vrcomanda,desconto,vrtotaldesc,defeito,impresso) VALUES ('& codigo & ', '" & nomeloja & "', DateValue('" & datacom & "'), " & total & ", " & txtdesc.Text & ", " & txttotdesc.Text & ", ' ', ' S' "

De uma olhada no www.macoratti.net/printer.htm Inté

Sim está aberto segue o código... 'Objetos para trabalhar com o BD e a tabela, respectivamente Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Dim rs2 As New ADODB.Recordset Dim rs3 As New ADODB.Recordset Dim nomeloja As String Dim datacom As Date Dim total As Double Dim total1 As Double Dim soma As Double Dim soma1 As Double Private Lista As ListItem Private Lista1 As ListItem Private contapagina As Integer Private Sub cmdalteracao_Click() frmaltcomanda.Show vbModal End Sub Private Sub cmdsair_Click() Dim vmensagem As String vmensagem = "Encerrado Processado - Saindo" MsgBox vmensagem, vbInformation, "Encerrado Processo" cn.Close Set cn = Nothing Unload frmcomandas End Sub Private Sub Form_Load() 'Abre o banco de dados 'cn.Close cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=fabrica.mdb" 'Abre a tabela rs.CursorLocation = adUseClient rs1.CursorLocation = adUseClient rs2.CursorLocation = adUseClient rs3.CursorLocation = adUseClient End Sub

Ok.. Fiz o Insert mas não deu para testar pois o mesmo diz que o Objeto não está aberto ou inválido. Após a impressão ele deve incluir em uma nova tabela os dados que servirão para um relatório sintético. Faço a abertura do rs3 no Form Load declarção no General A variavél S é informando no Bd que a comanda foi impressa. E defeito nesse caso é vazia. ' fim de impressão End If Printer.EndDoc rs3.Open "insert into relcomanda(codigocomanda,nomedaloja,datadacomanda,vrcomanda,desconto,vrtotaldesc,defeito,impresso) VALUES ('& codigo & ', '" & nomeloja & "', DateValue('" & datacom & "'), " & total & ", " & txtdesc.Text & ", " & txttotdesc.Text & ", '', " '&S&'"), cn, adOpenDynamic, adLockOptimistic HELP...

Ao mandar incluir as informações no BD dá erro Run time error '-21472117900(80040e14)': Error de sintaxe na sequencia de caractere na expressão de consulta "",S)' . rs3.Open "insert into relcomanda(codigocomanda,nomedaloja,datadacomanda,vrcomanda,desconto,vrtotaldesc,defeito,impresso) values(codigo,nomeloja,datacom,total,txtdesc.text,txttotdesc.txt,"",S)", cn, adOpenDynamic, adLockOptimistic

é para colocar o select dentro do caption do general do datagrid ? Pois o select dentro do ADO não funcionou...

Ao fazer a comparação abaixo da erro 13 type mista.,... Usei o typename para verificar se estava declarando certo mas ambas são string e não funciona HELP nome = Lista.SubItems(1) If nome <> "Shopping Penha" Or "Shopping Interlagos" Or "Shopping Internacional" Or "Shopping Piracicaba" Or "Poli Shopping" Then

To criando uma consulta com datalist e após escolher um dado na lista deve abrir um datagrid que ira permitir alterar e incluir e excluir dados da comanda. com o datalist eu consegui fazer ambos escolho na primeira opção e ele mosta no segundo datalist. como fazer o datagrid abrir o select que esta do ADO pela seleção do datalist. Campos do primeiro Datalist Loja data inicial data final Data list Botão de seleção após clicar no botao de seleção o datagrid é ativado mas tras em branco. AJUDEM.....

De uma olhada no codigo abaixo tive a mesma duvida e me ajudaram... rs.Open "SELECT * FROM cabecacomand WHERE nomedaloja LIKE '%" & txtloja.Text & "%' and datadacomanda between DateValue('" & txtdata.Text & "') and DateValue('" & txtdata1.Text & "');", cn, adOpenDynamic, adLockOptimistic

é isso valeu.....

Caros, Preciso fazer uma pesquisa no Bd com nome da loja, data inicial e data final até beleza achei que tenho que usar o between ao testar colocando a data dentro do select ok ele funciona mas na hora que ele tem que ler os dados de entrada ele entra em Loop . rs.Open "SELECT * FROM cabecacomand WHERE nomedaloja LIKE '%" & txtloja.Text & "%' and datadacomanda between # like'%" & txtdata & "%' # and # like'%" & txtdata1 & "%'# ", cn, adOpenDynamic, adLockOptimistic

Erro de Sintaxe (operador Faltando) na expressão. rs.Open "insert into fimcomanda SELECT * From comanda Where nomedaloja LIKE '%" & txtloja.Text & "%' or datadacomanda Between LIKE '%" & Text1.Text & "%' and LIKE '%" & Text2.Text & "%' ", cn, adOpenDynamic, adLockOptimistic 'Objetos para trabalhar com o BD e a tabela, respectivamente Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Dim rs2 As New ADODB.Recordset Dim rs3 As New ADODB.Recordset Dim nomeloja As String Dim datacom As Date Dim total As Double Dim total1 As Double Dim soma As Double Dim soma1 As Double Private Lista As ListItem Private Lista1 As ListItem Private contapagina As Integer Private Sub cmdsair_Click() Unload Me End Sub Private Sub Form_Load() Dim txtvltotal, txtvalorunitario, txtvalortotal, txtquantidade As Double Dim txtnomedaloja, txtdescricacaodoproduto, txtcodigodoproduto As String Dim txtncomanda As Integer Dim txtdatacomanda As Data Dim vdata As Date 'Abre o banco de dados cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=fabrica.mdb" 'Abre a tabela Comanda, Funcionário, Confererencia de Comanda rs.CursorLocation = adUseClient rs.Open "SELECT * FROM comanda", cn, adOpenDynamic, adLockOptimistic 'Cabeca da Comanda rs1.CursorLocation = adUseClient rs1.Open "SELECT * FROM cabecacomand", cn, adOpenDynamic, adLockOptimistic 'Conferido e Contado rs2.CursorLocation = adUseClient rs2.Open "SELECT * FROM contconf", cn, adOpenDynamic, adLockOptimistic rs3.CursorLocation = adUseClient End Sub Private Sub cmdfechar_Click() rs.Close rs.Open "insert into fimcomanda SELECT * From comanda Where nomedaloja LIKE '%" & txtloja.Text & "%' or datadacomanda Between LIKE '%" & Text1.Text & "%' and LIKE '%" & Text2.Text & "%' ", cn, adOpenDynamic, adLockOptimistic MsgBox "Arquivo de Encerramento de Comanda Criado ... ! " End Sub

Gostaria que ao prescionar F11 chama-se um form especifico.. sem ter que colocar isso no Menu de opções. Alguém tem alguma ideia de como fazer? Grato Alessandro

Ao clicar no inserir ele dá erro de Compile Error Invalid Qualifier.. alguém pode me ajudar Private Sub cmdincluir_Click() Dim txtvltotal, txtvalorunitario, txtvalortotal, txtcodigodoproduto, txtquantidade As Double Dim txtnomedaloja, txtdescricaodoproduto As String Dim txtdatadacomanda As Data Dim txtncomanda As Integer Dim resposta As Byte Dim resposta1 As Byte 'inclusao em cabeça de comanda rs1.AddNew rs1.Fields("codigocomanda").Value = txtncomanda.Text rs1.Fields("nomedaloja").Value = dcoloja.Text rs1.Fields("datadacomanda").Value = txtdata.Text rs1.Fields("nomedaloja").Value = dcoloja.Text rs1.Update 'Salva o registro 'inclusao na comanda rs.AddNew 'Cria novo registro rs.Fields("codigocomanda").Value = txtncomanda.Text rs.Fields("nomedaloja").Value = dcoloja.Text rs.Fields("datadacomanda").Value = txtdata.Text rs.Fields("quantidade").Value = txtqtde.Text rs.Fields("codigodoproduto").Value = txtcodprod.Text rs.Fields("descricaodoproduto").Value = txtdescricao.Text rs.Fields("valorunitario").Value = txtvlunitario.Text rs.Fields("valortotal").Value = txtqtde.Text * txtvlunitario.Text rs.Update 'Salva o registro resposta = MsgBox("Registro Incluso Continuar", vbYesNo + vbQuestion + vbDefaultButton2, "Mensagem") If resposta = vbNo Then resposta1 = MsgBox("Deseja Sair", vbYesNo + vbQuestion + vbDefaultButton2, "Mensagem") If resposta1 = vbYes Then Dim vmensagem As String vmensagem = "Banco de Dados Foi Desconectado" MsgBox vmensagem, vbInformation, "Banco Fechado" cn.Close Set cn = Nothing Unload frminclucomandas frmcomandas.Show vbModal End If End If End Sub