Programación General > Visual Basic 6.0 e inferiores

 Re: experiencia frustrante....

<< < (4/4)

MartinX:
......

MartinX:
.......

MartinX:
....

angelescj:
¡¡¡¡Nunca te rindas ante Visual Basic!!!
El error está en que si un campo es Autonumerico el valor se le asigna de forma automática a hacer AddNew... Update, no se asignas tú, si quitas esas línas funciona:

Private Sub cmdmodif_Click()
    Select Case cmdmodif.Caption
        Case Is = "&Modificar"
            ModifData
            nuevo = False
            'LÍNEA ANULADA
            'strRegistro = AdcClientes.Recordset.Fields("IDcliente").Value
        Case Is = "Guardar"
                ModoNav
                'LÍNEA ANULADA
                'strRegistro = AdcClientes.Recordset.Fields("IDcliente").Value
                AdcClientes.Recordset.Update
                'RefrescarTxt
                If nuevo = True Then
                    AdcClientes.Recordset.Requery
                End If
                AdcClientes.Recordset.Find "[IDCliente] = '" & Str(strRegistro) & "' "
                NoModif
     End Select
   
End Sub

Siempre hay una solución.
:suerte:

MartinX:
Angeles: realmente te has pasado en las atenciones que has tenido conmigo, el asunto es que lo que yo queria hacer es que presionando el boton "nuevo", ademas de que se agregue un registro al recordset que en el textbox del form aparezca el nuevo id asignado al registro reciendo ingresado y que quede listo para ingresar los demas datos solo eso, pero quitando esas lineas no lo hace che, en realidad en esa variable estaba asignando el valor del nuevo id porque luego se reordena el recordset y necesito ir al registro donde estaba para eso usaba esa variable, de todas formas una solucion le encontre, al problema, pero lo que me tenia mal es que antes de usar los adodc usaba directamente recordsets que cuando al hacer "nuevo" me mostraba automaticamente en el txtbox el valor de id del nuevo registro, pero cuando agregue el adodc ya no lo hizo mas,....

sos una grande che!! no se si te dedicas a responder las consultas de novatos como yo o si por algun motivo te cai bien sea cual fuere el motivo de tu ayuda incondicional te lo agradezco de alma:D

 de verdad te agradezco muchisimo te mereces un himno!! jajaj :guitar:

Navegación

[0] Índice de Mensajes

[*] Página Anterior