Robert Rodrigues

O da letra esta funcionando o que não faz nada é o de baixo quando sai do primeiro das 3 letras + numero funciona beleza e quando sai do numero é que não dá nada.

Bom dia tenho os seguintes codigos o primeiro esta funcionando porem o segundo nada o que esta errado???? ele pega o numero inicial e soma mais 1. Private Sub Form_BeforeInsert(Cancel As Integer) Dim Letra Dim Numero DoCmd.RunCommand acCmdRefreshPage If DCount("S04NumGuia", "SCE04") = 0 Then Exit Sub Else DoCmd.RunCommand acCmdRefreshPage DoCmd.GoToRecord , , acLast Letra = Left(S04NumGuia, 3) Numero = Right(S04NumGuia, 4) DoCmd.GoToRecord , , acNewRec Me.S04NumGuia = Letra & Format(Numero + 1, "000000") End If End Sub ---------------------------------------------------------------------- Private Sub Control_BeforeInsert(Cancel As Integer) Dim Numero1 Dim Numero2 DoCmd.RunCommand acCmdRefreshPage If DCount("S04NumControl", "SCE04") = 0 Then Exit Sub Else DoCmd.RunCommand acCmdRefreshPage DoCmd.GoToRecord , , acLast Numero1 = Left(S04NumControl, 1) Numero2 = Right(S04NumControl, 9) DoCmd.GoToRecord , , acNewRec Me.S04NumControl = Numero1 & Format(Numero + 1, "000000000") End If End Sub Agradeço qualquer ajuda

Bom dia, Estou precisando de ajuda com um problemo que tenho e espero que algum companheiro possa me ajudar. Tenho uma aplicação Access a qual esta funcionando perfeitamente bem, acontece que com a necesidade de que a mesma seja alimentada via web o primeiro passo realizado por mim foi escolher uma base de dados para adaptarse ao meu projeto escolhendo assim Mysql. Feita a conversao, instalado o Mysql Conector/Odbc e vinculando os dados com Mysql tudo funcionou bem em parte, acontece que o principal formulario em um determidado ponto tarda até 25 seg para obter resposta o que é um grande problema. vou anexar o codigo para que possam analizar e assim poder opinarem a respeito. Private Sub Texto97_LostFocus() Dim Respuesta As String If Not IsNull(Me.Texto97) Then If yaExisteCedula(Me.Texto97) Then Me!Texto103 = DLookup("[sCE08Nombre]", "SCE08", "[sCE08Cedula]= '" & Me!Texto97 & "'") Me!Texto105 = DLookup("[sCE08Apellido]", "SCE08", "[sCE08Cedula]= '" & Me!Texto97 & "'") Else Respuesta = MsgBox("Agregar la Cédula ?", vbExclamation + vbOKCancel, "ATENCION") If Respuesta = 1 Then Dim stDocName As String Dim stLinkCriteria As String stDocName = "Clientes" DoCmd.OpenForm stDocName, , , stLinkCriteria DoCmd.GoToRecord , , acNewRec [Forms]![Clientes]![sCE08Cedula] = Me.Texto97 Else Cancel = -1 End If End If End If End Sub Qualquer ajuda sera bem vinda. Robert