[Resolvido]Rotina de busca / localização em ComboBox e atualização de campo Booleano

Prezados, boa noite.

Estou literalmente " empacado" em 3 rotinas.

Há em desenvolvimento ( quase finalizado....)  um formulário chamado " FrmParada"

Nele há uma ComboBox ( CboVagaN ), onde tenho que buscar uma vaga livre.

Quando a mesma vaga está com um veículo  **** era **** , para disparar uma mensagem de box ocupado ( mostrando o numero do box e a placa do veículo ), alertando  dessa forma o usuário para escolher outro box;   Isso não está mais acontecendo.

Nessa mesma ComboBox, quando o box está livre, era para " chamar "  uma rotina em um campo Booleno ( ocupado, que era para ficar " clicado" ), que por sua vez, era para mostrar em uma LstBox (LstBoxOcupado) que esse box está ocupado;   Por mistérios esotéricos e assimétricos....parou de funcionar.

Quando se clica no botão "saída" ( nele tem uma chamada de rotina ) era para o campo "livre"( Booleano) ficar "Clicado" e rodar a rotina de liberação de vaga e mostrar o box livre em uma ListBox (LstBoxLivre), também parou de funfar.   Nem Carl Seagan saberia explicar.

Estou solicitando a ajuda, pois já queimei meus neurônios...e os poucos que ficaram....estão na UTI.

Em anexo, segue apenas com as entidades envolvidas.

Agradeço a ajuda e a boa vontade dos colegas.

Abraços.

Boa noite Silvio.
Não consigo testar agora...

Nessas casos assim, eu costumo copiar tudo para um novo banco.
Já fez isso?

Pode ser que tenha desativado algo no seu banco ou esse banco pode estar
corrompendo. Tente copiar tudo para um novo banco.

Crie um banco em branco, e no banco antigo, selecione todos os objetos
e copie e cole no banco novo vazio. Teste para ver.

Marcelo, bom dia. Grato por teu interesse em me ajudar.

O problemas está na construção das rotinas, na lógica. Fiquei meio que perdido e confuso ao mesmo tempo.

A base de dados não está corrompendo.

Ola silvio..

Primeira parte.

Altere esta parte e veja se esta correto

Código:

Busca = Me.VagaOculta.Value
StLinkCriteria = "VagaOculta= " & Me.VagaOculta
x = DLookup("vagaOculta", "QryBoxOcupado", StLinkCriteria)
If DCount("Ocupado ", "QryBoxOcupado", StLinkCriteria) = Verdadeiro Then
   MsgBox "O Box : " & Busca & vbCrLf & _
          "Já está sendo utilizado." & vbCrLf & _
          "Pelo veículo de placa:  " & x & vbCrLf & _
          "Utilize outro box.", vbCritical, Me.Caption
          Cancel = True
          Me.Undo

Agurado

Olá..

para mostrar a placa do veiculo altere o "X" para linha abaixo

x = DLookup("[Placa]", "QryBoxOcupado", "[VagaOculta] = " & Me!VagaOculta & "")

Aguardo

Celso, boa tarde...

Show de bola......

Olá..

Para corrigir a primeira e segunda parte das duvidas, altere para este e veja se esta correto.

Código:

Me.VagaOculta = Me.CboVagaN.Column(1)

Dim Busca As String
Dim StLinkCriteria As String
Dim rsc As DAO.Recordset
Dim x As Variant

Busca = Me.VagaOculta.Value
StLinkCriteria = "VagaOculta= " & Me.VagaOculta
'x = DLookup("[Placa]", "QryBoxOcupado", StLinkCriteria)
x = DLookup("[Placa]", "QryBoxOcupado", "[VagaOculta] = " & Me!VagaOculta & "")

'If DCount("VagaOculta ", "QryBoxOcupado", StLinkCriteria) = -1 Then
'If DCount("Ocupado ", "QryBoxOcupado", StLinkCriteria) = Verdadeiro Then
If DCount("*", "QryBoxOcupado", "[VagaOculta] = " & Me!VagaOculta & " And [Ocupado] = True") > 0 Then


  MsgBox "O Box : " & Busca & vbCrLf & _
          "Já está sendo utilizado." & vbCrLf & _
          "Pelo veículo de placa:  " & x & vbCrLf & _
          "Utilize outro box.", vbCritical, Me.Caption
          'Cancel = True
          Exit Sub
          Me.Undo

Else
  Set rsc = Me.RecordsetClone
  rsc.FindFirst StLinkCriteria
  Me.Ocupado = True
 
  Set rsc = Nothing
End If

Call Ocupado_Click
Me.DataEntrada = Date
Me.HoraEntrada = Time()

'Dim x As String
'x = DFirst("tblparada", "VagaOculta ='" & Me!VagaOculta & """")
'If DLookup("tblparada", "VagaOculta='" & Me!VagaOculta & "'") = -1 Then
'MsgBox "BOX JÁ ESTÁ OCUPADO, UTILIZE OUTRO !" & vbCrLf & _
'      "PLACA : " & x & vbCrLf & _
'      "O evento será cancelado.", vbCritical, Me.Caption
'Cancel = True
'Me.Undo
'
'Exit Sub
'Else
'End If

A terceira parte eu não entendi corretamente

Aguardo

Boa tarde..
Grande Celso, estamos fazendo progresso finalmente.

A terceira parte é o inverso da segunda parte......

Quando se está ocupado o box....fica clicado o "ocupado" e aparece na lstboxocupado...quando "livre" é o inverso do " ocupado" e aparece na lstboxlivre.

Olá Silvio..

Altere todos conforme abaixo

Código:

Private Sub CboVagaN_AfterUpdate()
'********************************************************************************************
' preciso que quando a vaga estiver ocupada, seja feita uma busca na consulta ou na tabela
' e me retorne o número do box e a placa do carro.  E isso tem que aparecer na lstbox
' estou empacado aqui.
' caso esteja livre, tem que chamar a rotina "Call Ocupado_Click"

Me.VagaOculta = Me.CboVagaN.Column(1)

Dim Busca As String
Dim StLinkCriteria As String
Dim rsc As DAO.Recordset
Dim x As Variant

Busca = Me.VagaOculta.Value
StLinkCriteria = "VagaOculta= " & Me.VagaOculta
x = DLookup("[Placa]", "QryBoxOcupado", StLinkCriteria)

If DCount("VagaOculta ", "QryBoxOcupado", StLinkCriteria) > 0 Then

    MsgBox "O Box : " & Busca & vbCrLf & _
          "Já está sendo utilizado." & vbCrLf & _
          "Pelo veículo de placa:  " & x & vbCrLf & _
          "Utilize outro box.", vbCritical, Me.Caption
          Exit Sub
          Me.Undo

Else
    Set rsc = Me.RecordsetClone
    rsc.FindFirst StLinkCriteria
     
    Call Ocupado_Click
    Me.DataEntrada = Date
    Me.HoraEntrada = Time()
 
  Set rsc = Nothing
End If

'Call Ocupado_Click
'Me.DataEntrada = Date
'Me.HoraEntrada = Time()

End Sub

Código:

Private Sub Livre_Click()

    ' liberando  a vaga
    Dim DB As Database, rs As Recordset
    Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("TblBox", dbOpenDynaset)
    rs.FindFirst "BoxNumero = '" & Me.VagaOculta & "'"
    rs.Edit
    rs("livre") = -1
    rs("Ocupado") = 0
    rs.Update
    rs.Close
    Set rs = Nothing
    Set DB = Nothing
    ' fim da atualização e liberação
 
    Me.Livre = True
    DoCmd.Save

    If Me.Livre = True Then
        Me.LstBoxLivre.Requery
        Me.LstBoxOcupado.Requery
        Me.Ocupado = False
        Me.Requery
    Else
        Me.Livre = False
        Me.Ocupado = False
        Me.DataSaida = ""
        Me.HoraSaida = ""
    End If
   
    Me.LstBoxLivre.Requery
    Me.LstBoxOcupado.Requery
    Me.Requery
    DoCmd.Save

End Sub


Código:

Private Sub Ocupado_Click()

    'Travando  a vaga
    Dim DB As Database, rs As Recordset
    Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("TblBox", dbOpenDynaset)
    rs.FindFirst "BoxNumero = '" & Me.VagaOculta & "'"
    rs.Edit
    rs("Ocupado") = -1
    rs("Livre") = 0
    rs.Update
    rs.Close
    Set rs = Nothing
    Set DB = Nothing
    ' fim da atualização e liberação
   
    Me.Ocupado = True
    DoCmd.Save
   
    If Me.Ocupado = True Then
        Me.LstBoxLivre.Requery
        Me.LstBoxOcupado.Requery
        Me.Livre = False
    Else
        Me.Ocupado = False
        Me.Livre = False
    End If
 
    Me.LstBoxLivre.Requery
    Me.LstBoxOcupado.Requery
    DoCmd.Save
    Me.Placa.SetFocus

End Sub


Aguardo

Abraços

Dando o tópico por encerrado.

Grato Celso por tua força e tempo dispensado a minha duvida.

Abraços.

Olá Silvio...

Estaremos sempre ajudando e recebendo ajuda!!

Abraços e sucesso...