Jump to content

Base da dados para trabalho com invisuais


FerCunha
 Share

Recommended Posts

Boa tarde, alguém pode ajudar?

Estou a construir uma base de empréstimo de livros.

Não tenho grandes conhecimentos de access e decidi adaptar a base "adamastor 2007"

porém para as necessidades (uma base para invisuais que só trabalham com comandos e voz), queria que o formulário "detalhes da nota de encomenda" (para mim funcionará como entradas na base) na opção "aprovar compra" fosse possível actualizar o inventário automaticamente, assim não necessitaria de de clicar no campo "adicionar ao inventario" do sub formulário "Recepção de inventário" (para um invisual é complicado navegar nos formulários, daí ser importante adaptá-los).

como poderei fazer? que sugestão me dão?

ou como poderei criar um botão que o faça, no formulário principal?

Agradeço muito a vossa ajuda. Obrigado

Link to comment
Share on other sites

nao tenho esse adamastor 2007 , mas..., parece me que :

se a origem dos registos do formulario "detalhes da nota de encomenda", fôr a tabela "detalhes da encomenda", entao nao será necessario o botao aprovar conta, pois os dados serao guardados sem intervençao do utilizador.

o q é a opçao "aprovar compra". um botao de comando ? qual o codigo ?

o q queres dizer com : "não necessitaria de de clicar no campo "adicionar ao inventario" do sub formulário ", é um botao de comando ?sera um control ? um botao, qual o codigo associado

Link to comment
Share on other sites

Ola Carlos AL,

Bom dia, o problema é que a base precisa mesmo que eu clique no campo "adicionar ao inventario" do sub formulário " para acualizar o inventário como podes ver na base, Ajuda-me? , Obrigado.

Base : Link da base "adamastor 2007" que estou a actualizar: https://www.dropbox.com/s/u7xrskwt1ovbut6/Adamastor%202007_v1.accdb?dl=0

https://www.dropbox.com/s/u7xrskwt1ovbut6/Adamastor%202007_v1.accdb?dl=0

Link to comment
Share on other sites

Não consigo Converter, tenho a versao 2007 e não deixa, ou não sei fazer.

peço ajuda à comunidade.

Mto Obrigado.

a base de disponibilizo deve ter uma destas situações:

https://support.office.com/pt-br/article/Converter-um-banco-de-dados-do-Access-2007-em-um-formato-de-arquivo-anterior-59369336-6d58-4094-b396-ee5bb637717b

Peço ajuda!

no O [procedimento do acontecimento] está o seguinte código:

Private Sub Posted_To_Inventory_AfterUpdate()

On Error GoTo ErrorHandler

Dim InventoryID As Long

Dim ProductID As Long

Dim Quantity As Long

ProductID = Nz(Me![Código do Produto], 0)

Quantity = Nz(Me![Quantidade], 0)

InventoryID = Nz(Me![iD do Inventário], 0)

'A Colocar Novo Inventário

If Me![Colocado no Inventário] Then

If IsNull(Me![Data de Recebimento]) Then

Me![Data de Recebimento] = Date

End If

If Inventário.AddPurchase(Me![Código da Nota de Encomenda], ProductID, Quantity, InventoryID) Then

If InventoryID > 0 Then

Me![iD do Inventário] = InventoryID

Me![Colocado no Inventário] = True

MsgBoxOKOnly InventoryPostingSuccess

End If

Else

Me![Colocado no Inventário] = False

MsgBoxOKOnly InventoryPostingFailure

End If

eh.TryToSaveRecord

If Inventário.GetQtyOnBackOrder(ProductID) > 0 Then

If MsgBoxYesNo(FillBackOrdersPrompt) Then

Inventário.FillBackOrders ProductID

End If

End If

'A Remover Inventário Colocado

Else

If InventoryID > 0 Then

Me![Colocado no Inventário] = True

End If

End If

Done:

Exit Sub

ErrorHandler:

' A instrução de continuação será accionada durante a depuração

If eh.LogError("Posted_To_Inventory_AfterUpdate") Then Resume

End Sub

Private Sub Date_Received_AfterUpdate()

If Me![Colocado no Inventário] Then

Debug.Assert False

ElseIf MsgBoxYesNo(PostReceivedProductPrompt) Then

Me![Colocado no Inventário] = True

Posted_To_Inventory_AfterUpdate

End If

End Sub

Private Sub Form_Current()

Me.AllowEdits = Not Me![Colocado no Inventário]

End Sub

Private Sub Form_Load()

Dim rsw As New RecordsetWrapper

With rsw.GetRecordsetClone(Me.Recordset)

'Assegurar integridade de colocações em Inventário

While Not .EOF

If Not IsNull(![iD do Inventário]) Then

rsw.Edit

![Colocado no Inventário] = True

rsw.Update

End If

rsw.MoveNext

Wend

End With

End Sub

Edited by FerCunha
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.