Alexandre Neves
-
Total de itens
168 -
Registro em
-
Última visita
Posts postados por Alexandre Neves
-
-
Veja se será assim
Format(Me.txtData,"mm-dd-yyyy")
-
Boa tarde,
Veja agora
Dim inicio, final As Variant
Dim strSql As String
If Not IsNull(Me.txtVend) And Not IsNull(Me.txtData) And Not IsNull(Me.txtIni) And Not IsNull(Me.txtQtd) Then
DoCmd.SetWarnings False
inicio = Me.txtIni
final = Me.txtIni + Me.txtQtd
While inicio <= final
Let strSql = "insert into tstMALJ (recData,recVendedor,recNumero) values(#" & Format(Me.txtData,"dd-mm-yyyy") & "#,'" & Me.txtVend & "','" & inicio & "')"
DoCmd.RunSQL strSql
inicio = inicio + 1
Wend
DoCmd.SetWarnings True
MsgBox "Geração automática Concluída!", vbOKOnly + vbInformation, " Mr. MALJ"
Else
MsgBox "Para geração automática de recibos é necessário informar todos os Requisitos!", vbOKOnly + vbInformation, " Mr. MALJ"
End If
-
Já tenha o campo criado na tabela e utilize o código seguinte para um botão em formulário ou para módulo
Dim Rst As DAO.Recordset, I As Integer, strNome As String
Set Rst = CurrentDb.OpenRecordset("SELECT Nome, Nota, NomeNota FROM SuaTabela ORDER BY Nome, Nota;")
strNome = ""
Do While Not Rst.EOF
If strNome = Rst(0) Then I = I + 1 Else I = 1
Rst.Edit
Rst(2) = I
Rst.Update
Rst.MoveNext
Loop
Set Rst = Nothing
-
Também ainda não vi nenhuma tabela que precisasse de tantos campos.
Continua sem dizer os campos que diz precisar e não lhe podemos dar uma luz.
-
De facto, é como diz. Parece-me que, ao copiar, o número fica copiado no formato científico. Se assim for, o problema não está no Excel mas no copiar.
Não sei de onde copia, mas não consegue fazer a cópia automaticamente por macro?
-
Formate o campo como texto
-
Não indica todos os campos envolvidos, pois até deve ter uma tabela com os produtos (IDProduto, NomeProduto)
'SomaEncomendas: Consulta de produtos encomendados
SELECT IDProduto, Sum(QtEncomenda) as SomaEncomenda FROM Encomendas GROUP BY IDProduto;
'SomaFornecidas: Consulta de produtos fornecidos
SELECT IDProduto, Sum(QtFornecida) as SomaFornecida FROM Fornecimentos GROUP BY IDProduto;
'consulta resultado
SELECT SomaEncomenda-SomaFornecida as QtPorFornecer, NomeProduto FROM (SomaEncomendas LEFT JOIN SomaFornecidas ON SomaEncomendas.IDProduto=SomaFornecidas ON SomaFornecidas.IDProduto) LEFT JOIN Produtos ON SomaEncomendas.IDProduto=Produtos.IDProduto WHERE SomaEncomenda-SomaFornecida>0;
-
Boa tarde, RevenanT
Não vejo necessidade de repetir os dados em tabelas diferentes (a base de dados não deve ter dados repetidos)
Quando precisar de dados contidos em mais que uma tabela, ou tem um relacionamento estabelecido ou faça-o directamente no código de origem da consulta
-
Boa noite,
Se for como descreveu, é estranho.
Veja se o Access considera as datas no formato mm-dd-yyyy em vez de dd-mm-yyyy
-
Nas propriedades da caixa de combinação coloque
limitado à lista=sim
-
É tão parco em elementos que é difícil ajudar
-
Boa noite, JYMMY
Deve ser isto:
Dim rs As DAO.Recordset
Set rs = Currentdb.OpenRecordset("produto")
Dim Linha, C_exp1 As String
With rs
Do While Not rs.EOF
Linha = ""
Linha = Linha & rs("CodigoP") & Right(String(rs("Campo1"), " ") & rs(Qtde),rs("Campo1"))
Print #1, Linha
rs.MoveNext
Loop
Set rs=nothing
-
romanino,
Se pretende utilizar a consulta como origem de formulário ou relatório, crie código dentro do formulário ou relatório para aceitar parâmetros até se verificar determinada condição (entrada nula, n valores, etc)
-
Se for em Access2007 parece-me que dá.
-
Private Sub Comando14_Click() 'veja onde quer validar o preenchimento!
If mail = "" or isnull(mail) Then
MsgBox "Por favor insira o Email!!!"
mail.SetFocus
actualiza = False
End If
End Sub
-
fahledu,
De facto, só utilizo em VBA, não utilizo directo nos controlos.
Procurei na ajuda e vi que existe a função SuprDir que é a correspondente em português.
Utilize na fonte do controlo:
=SuprDir(SeuCampo)
-
Private Sub Comando16_Click()
If IsNull([LOGON]) Then
MsgBox "Você não digitou o usuário!", vbExclamation, "AVISO!"
LOGON.SetFocus
ElseIf senha <> Me.Texto4 Then
MsgBox "Confirmação de senha não coincide com a senha!", vbCritical, "AVISO!"
LOGON.SetFocus
Else
MsgBox "USUÁRIO CADASTRADO COM SUCESSO!", vbExclamation, "AVISO!"
currentdb.execute "SELECT INTO DataBase(HoraCadastro) VALUES Format(Date,'hh:mm:ss);"
DoCmd.Close
End If
End Sub
-
Em vez de utilizar acObjStateOpen utilize acObjStateHiden
-
Como não quer por VBA, onde pretende obter o campo sem espaços finais, coloque:
=RTrim(SeuCampo)
-
Bom dia,
Utilize a função RTrim
-
Boa noite, NFAC
O agradecimento que deve é ajudar a quem precisa e não sabe.
Quanto ao pormenor dos dados não ficarem visíveis, eu reparei e estranhei mas não tive tempo para averiguar a razão, mas é estranho. De facto não costuma trabalhar com subformulários.
-
NFAC,
Veja agora e não utilize nomes reservados (ano) para nomear tabelas e outros objectos ou controlos.
Alterei o nome das caixas de combinação para diferenciar dos nomes dos campos associados.
http://www.esnips.com/doc/893ffc8b-fbeb-43...069b5/Teste-0.1
-
NFAC,
O melhor é carregar a parte do bd necessária, com dados alterados, para se ver em concrecto.
Pode utilizar um dos sítios gratuitos disponíveis.
-
Boa noite, NFAC
Pediu código para 3 caixas de combinação dependentes. Assim sendo, a origem dos dados vinha das tabelas. Pelo que indica agora, é para carregar dados. Se é para carregar dados, os dados ainda não estão carregados e se ainda não estão carregados então não existem na tabela para carregar os controlos.
Reveja o que pretende pois ou estou enganado ou está no caminho errado.
Dificuldade com ORDER BY
em Access
Postado
Boa tarde, Iceguy
'Crie uma tabela auxiliar, denominada tblAuxiliar, com os mesmos campos
'Execute o código seguinte
'obtém o resultado na tabela tblAuxiliar
Sub OrdenarIceguy()
'criado por Alexandre Neves
'em 2011-02-20
'para Iceguy
'do fórum ScripBrasil
Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset
CurrentDb.Execute "DELETE * FROM tblAuxiliar;"
Set Rst1 = CurrentDb.OpenRecordset("SELECT Campo1,campo2 FROM SuaTabela ORDER BY Campo2;")
Do While Not Rst1.EOF
If DCount("*", "tblAuxiliar", "Campo1='" & Rst1(0) & "'") = 0 Then
Set Rst2 = CurrentDb.OpenRecordset("SELECT Campo1,campo2 FROM SuaTabela WHERE Campo1='" & Rst1(0) & "' ORDER BY Campo2;")
Do While Not Rst2.EOF
CurrentDb.Execute "INSERT INTO tblAuxilar(Campo1,Campo2) VALUES ('" & Rst2(0) & "'," & Rst2(1) & ");"
Rst2.MoveNext
Loop
End If
Rst1.MoveNext
Loop
Set Rst1 = Nothing: Rst2 = Nothing
End Sub
Cumprimentos,