"Informacion de columna clave insuficiente para realizar la operacion update o refresh"
y cuando le pongo debug me salta en esta linea
Cita:
que esta en esta funcion .Resync adAffectCurrent
Cita:
verifike esta parte para que se abriera bn la queryPrivate Function LoadFichaRegistro()
With mrsFichaRegistro
.Resync adAffectCurrent
txtIDExpediente.Text = !IDExpediente
txtFechaApertura.Text = Format(!FechaApertura, "dd/mm/yy")
txtNumeroEscritura.Text = NULLToStr(!NumeroEscritura)
chkBis.Value = Abs(!BIS)
chkPA.Value = Abs(!PA) '20081211 HC
cboAbogadoResponsable.BoundText = !AbogadoResponsable
cboOperacion.BoundText = !Operacion
txtInteresados.Text = NULLToStr(!Interesados)
'txtEmpresa.Text = NULLToStr(!Empresa)
'txtTelFax.Text = NULLToStr(!TelFax)
txtObservFicha.Text = NULLToStr(!ObservFicha)
txtObservGenerales.Text = NULLToStr(!ObservGenerales)
End With 'mrsFichaRegistro
LoadgrdOtorgantes
End Function
With mrsFichaRegistro
.Resync adAffectCurrent
txtIDExpediente.Text = !IDExpediente
txtFechaApertura.Text = Format(!FechaApertura, "dd/mm/yy")
txtNumeroEscritura.Text = NULLToStr(!NumeroEscritura)
chkBis.Value = Abs(!BIS)
chkPA.Value = Abs(!PA) '20081211 HC
cboAbogadoResponsable.BoundText = !AbogadoResponsable
cboOperacion.BoundText = !Operacion
txtInteresados.Text = NULLToStr(!Interesados)
'txtEmpresa.Text = NULLToStr(!Empresa)
'txtTelFax.Text = NULLToStr(!TelFax)
txtObservFicha.Text = NULLToStr(!ObservFicha)
txtObservGenerales.Text = NULLToStr(!ObservGenerales)
End With 'mrsFichaRegistro
LoadgrdOtorgantes
End Function
mrsFichaRegistro
y tengo esto
Cita:
lei sobre este tema y la solucion q ponen es hacer inner join pero yo no tengo dos tablas solo es una mrsFichaRegistro.Open "select IDExpediente, FechaApertura, NumeroEscritura, Bis,PA,AbogadoResponsable, " _
& "Operacion, Interesados, Empresa, TelFax, ObservFicha, ObservGenerales " _
& " from FichaRegistro where IDExpediente = (Select min(IDExpediente) from FichaRegistro)", _
gcn, adOpenDynamic, adLockOptimistic, adCmdText
& "Operacion, Interesados, Empresa, TelFax, ObservFicha, ObservGenerales " _
& " from FichaRegistro where IDExpediente = (Select min(IDExpediente) from FichaRegistro)", _
gcn, adOpenDynamic, adLockOptimistic, adCmdText
espero me puedan hechar una manita mil gracias
PD me comentaban q podria ser q a la hora de migrar se me kedo algun campo pero lo he verificado y estan todos
saludos espero sus opiniones :D