[Resolvido]Duvida com caixa de combinação

Dilson

Segue a bd

Boa tarde amigo, coloquei um codigo que uso em sua cbo caso digite algun cliente que não esteja

cadastrado abre o cadastro. To saindo pra escola por esta razão não acertei a fonte do registro

verifica isso ok.

Boa noite Fernando Bueno na minha bd não funciona faz o mesmo que fazia antes do teu código

UP

E aí toyebom, essa dúvida ainda persiste ?

Diga o nome do form e controles envolvidos?, isto pois vi o form e tem muita coisa lá.

Ola dilson

o problema continua

Form: Auto de Inquirição Testemunha
Campo: Texto19

Escrevo um nome se existir na tabela Pessoas, associa se não existe avisa e pergunta se quero criar, e caso sim abre o form Pessoas em registo novo e se existir e fazer duplo click no texto19 do form Auto de Inquirição Testemunha abre o form Pessoas com o registo correspondente para poder fazer alguma alteração.

UP

UP

Form: Auto de Inquirição de Testemunha
Campo: Texto19

Na (Aba Dados) propriedade Limitar a uma lista selecione Sim

No evento após atualizar:

If (Not IsNull(DLookup("Nome", "Pessoas", _
        "Nome ='" & Me!Texto19 & "'"))) Then
With Texto19
     Me.Texto21 = .Column(2)
     Me.CaixaCombinação238 = .Column(3)
     Me.CaixaCombinação252 = .Column(4)
     Me.Texto25 = .Column(5)
     Me.Rótulo38 = .Column(6)
     Me.Texto37 = .Column(7)
     Me.[Caixa de combinação160] = .Column(
     Me.Texto31 = .Column(9)
     Me.Rótulo34 = .Column(10)
     Me.Texto33 = .Column(11)
     Me.Texto100 = .Column(12)
     Me.Rótulo20 = .Column(13)
     Me.Texto48 = .Column(14)
     Me.Texto50 = .Column(15)
     Me.Rótulo99 = .Column(16)
     Me.Texto98 = .Column(17)
     Me.Rótulo77 = .Column(18)
     Me.Texto76 = .Column(19)
     Me.CaixaCombinação242 = .Column(20)
     Me.CaixaCombinação243 = .Column(21)
     Me.Rótulo85 = .Column(22)
     Me.[Caixa de combinação84] = .Column(23)
     Me.Rótulo87 = .Column(24)
     Me.[Caixa de combinação86] = .Column(25)
     Me.Rótulo97 = .Column(26)
     Me.[Caixa de combinação96] = .Column(27)
     Me.Rótulo40 = .Column(28)
     Me.Texto39 = .Column(29)
     Me.Rótulo42 = .Column(30)
     Me.Texto41 = .Column(31)
     Me.Rótulo44 = .Column(32)
     Me.[Caixa de combinação43] = .Column(33)
     Me.Rótulo53 = .Column(34)
     Me.Texto52 = .Column(35)
     Me.Rótulo55 = .Column(36)
     Me.Texto54 = .Column(37)
     Me.Rótulo57 = .Column(38)
     Me.Texto56 = .Column(39)
     Me.CaixaCombinação194 = .Column(40)
     Me.Texto193 = .Column(41)
     Me.CaixaCombinação196 = .Column(42)
     Me.Texto195 = .Column(43)
     Me.CaixaCombinação247 = .Column(44)
     Me.Rótulo59 = .Column(45)
     Me.[Caixa de combinação58] = .Column(46)
     Me.Rótulo61 = .Column(47)
     Me.[Caixa de combinação60] = .Column(48)
     Me.CaixaCombinação248 = .Column(49)
     Me.Texto62 = .Column(50)
     Me.Rótulo65 = .Column(51)
     Me.Texto64 = .Column(52)
     Me.CaixaCombinação250 = .Column(53)
     Me.Texto239 = .Column(54)
     Me.Rótulo95 = .Column(55)
     Me.Texto94 = .Column(56)
     Me.Rótulo108 = .Column(57)
     Me.Texto107 = .Column(58)
     Me.CaixaCombinação249 = .Column(59)
     Me.Rótulo71 = .Column(60)
     Me.Texto70 = .Column(61)
     Me.Rótulo73 = .Column(62)
     Me.Texto72 = .Column(63)
     Me.CaixaCombinação253 = .Column(64)
     Me.Texto251 = .Column(65)
     Me.CaixaCombinação226 = .Column(66)
End With
Else
Exit Sub
End If

No evento Se não estiver na lista:

Dim sql As String
If MsgBox("O nome desta Pessoa não está cadastrado no sistema" _
    & Chr(13) & Chr(13) & "Deseja cadastrar este nome: " & UCase(NewData) & " agora?" _
    & Chr(13) & Chr(13) & "Obs: Você será redirecionado para o formulário de cadastro." _
                              , vbYesNo, "Cadastro de Pessoas") = vbYes Then
              DoCmd.OpenForm "Pessoas", acNormal, , , acFormAdd
              Forms!Pessoas!Texto19 = UCase(NewData)
              Response = acDataErrContinue
       Else
              Me.Texto19 = ""
End If

No evento Ao clicar duas vezes:

Dim stDocName As String
Dim stLinkCriteria As String
If (Not IsNull(DLookup("Nome", "Pessoas", _
          "Nome ='" & Me!Texto19 & "'"))) Then
          stDocName = "Pessoas"
          stLinkCriteria = "[Nome]='" & Me![Texto19] & "'"
          DoCmd.OpenForm stDocName, , , stLinkCriteria
    Else
          MsgBox "Não há cadastro para exibir.", vbInformation, "::..Atenção"
          Exit Sub
End If 

Editado:
Atente para colocar na ide vba: Me.[Caixa de combinação160] = .Column(oito em numeral). é que o fórum possui um smille chamado 8, daí fica aparecendo aquele bacana de óculos.

Dilson obrigado pela ajuda, coloquei assim:

Depois de actualizar

Código:

Private Sub Texto19_AfterUpdate()
    Dim MSG As String
        'Ask user if they want to exit database.
        MSG = MSG & "Deseja vincular/actualizar dados nos campos diretos?"
        If MsgBox(MSG, vbYesNo + 32, "INCLUSÃO DE DADOS") = vbYes Then
If (Not IsNull(DLookup("Nome", "Pessoas", _
        "Nome ='" & Me!Texto19 & "'"))) Then
With Texto19
    Me.Texto21 = .Column(2)
    Me.CaixaCombinação238 = .Column(3)
    Me.CaixaCombinação252 = .Column(4)
    Me.Texto25 = .Column(5)
    Me.Rótulo38 = .Column(6)
    Me.Texto37 = .Column(7)
    Me.[Caixa de combinação160] = .Column(8)
    Me.Texto31 = .Column(9)
    Me.Rótulo34 = .Column(10)
    Me.Texto33 = .Column(11)
    Me.Texto100 = .Column(12)
    Me.Rótulo20 = .Column(13)
    Me.Texto48 = .Column(14)
    Me.Texto50 = .Column(15)
    Me.Rótulo99 = .Column(16)
    Me.Texto98 = .Column(17)
    Me.Rótulo77 = .Column(18)
    Me.Texto76 = .Column(19)
    Me.CaixaCombinação242 = .Column(20)
    Me.CaixaCombinação243 = .Column(21)
    Me.Rótulo85 = .Column(22)
    Me.[Caixa de combinação84] = .Column(23)
    Me.Rótulo87 = .Column(24)
    Me.[Caixa de combinação86] = .Column(25)
    Me.Rótulo97 = .Column(26)
    Me.[Caixa de combinação96] = .Column(27)
    Me.Rótulo40 = .Column(28)
    Me.Texto39 = .Column(29)
    Me.Rótulo42 = .Column(30)
    Me.Texto41 = .Column(31)
    Me.Rótulo44 = .Column(32)
    Me.[Caixa de combinação43] = .Column(33)
    Me.Rótulo53 = .Column(34)
    Me.Texto52 = .Column(35)
    Me.Rótulo55 = .Column(36)
    Me.Texto54 = .Column(37)
    Me.Rótulo57 = .Column(38)
    Me.Texto56 = .Column(39)
    Me.CaixaCombinação194 = .Column(40)
    Me.Texto193 = .Column(41)
    Me.CaixaCombinação196 = .Column(42)
    Me.Texto195 = .Column(43)
    Me.CaixaCombinação247 = .Column(44)
    Me.Rótulo59 = .Column(45)
    Me.[Caixa de combinação58] = .Column(46)
    Me.Rótulo61 = .Column(47)
    Me.[Caixa de combinação60] = .Column(48)
    Me.CaixaCombinação248 = .Column(49)
    Me.Texto62 = .Column(50)
    Me.Rótulo65 = .Column(51)
    Me.Texto64 = .Column(52)
    Me.CaixaCombinação250 = .Column(53)
    Me.Texto239 = .Column(54)
    Me.Rótulo95 = .Column(55)
    Me.Texto94 = .Column(56)
    Me.Rótulo108 = .Column(57)
    Me.Texto107 = .Column(58)
    Me.CaixaCombinação249 = .Column(59)
    Me.Rótulo71 = .Column(60)
    Me.Texto70 = .Column(61)
    Me.Rótulo73 = .Column(62)
    Me.Texto72 = .Column(63)
    Me.CaixaCombinação253 = .Column(64)
    Me.Texto251 = .Column(65)
    Me.CaixaCombinação226 = .Column(66)
End With
Else
Exit Sub
End If
End If
End Sub


Se não estiver na lista

Código:

Private Sub Texto19_NotInList(NewData As String, Response As Integer)
Dim sql As String
If MsgBox("O nome desta Pessoa não está cadastrado no sistema" _
    & Chr(13) & Chr(13) & "Deseja cadastrar este nome: " & UCase(NewData) & " agora?" _
    & Chr(13) & Chr(13) & "Obs: Você será redirecionado para o formulário de cadastro." _
                              , vbYesNo, "Cadastro de Pessoas") = vbYes Then
              DoCmd.OpenForm "Pessoas", acNormal, , , acFormAdd
              Forms!Pessoas!Texto19 = (NewData)
              Response = acDataErrContinue
      Else
              Response = acDataErrContinue
              Me.Texto19 = ""
              Me.Rótulo20.SetFocus
End If
End Sub

Ao fazer duplo clique

Código:

Private Sub Texto19_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
If (Not IsNull(DLookup("Nome", "Pessoas", _
          "Nome ='" & Me!Texto19 & "'"))) Then
          stDocName = "Pessoas"
          stLinkCriteria = "[Nome]='" & Me![Texto19] & "'"
          DoCmd.OpenForm stDocName, , , stLinkCriteria
    Else
          MsgBox "Não há cadastro para exibir.", vbInformation, "::..Atenção"
          Exit Sub
End If
End Sub


Obrigado por informar que resolveu.

Não posso deixar de emitir uma ressalva para duas situações observadas:

- O uso da palavra "Nome" como identificação de campo;
- Nome do formulário com espaços;

Se não der para consertar nesse projeto atual, atente para não usar palavras reservadas do access nos futuros trabalhos e não deixe espaços nos nomes dos objetos.

Até a próxima.

é verdade mas quando comecei a bd na altura tinha poucos conhecimentos de vba agora não posso mudar devido á bd já ter cerca de 1,300 Gb e dezenas de associações ao campo nome e ao formulário pelo que demorava uma eternidade a refazer todas as ligações.

já agora ve se podes:

é parecida com a anterior mas para imagem

http://maximoaccess.forumeiros.com/t17806-duvida-imagem