QUIEN DOMINA BIEN LAS TABLAS EN ACCESS
Publicado por Rod (1 intervención) el 16/01/2002 06:27:10
Para todos Tengo un pequeño `proyecto para la Uiniversida
ya tengo que entregarlo y estoymuy atariado, por que no se como ....
Tengo una base datos con varias tablas, y quiero que poder eliminar los registros que en ella ya no se utilicen
pero quiero Eliminarlo desde otro modulo saben
Como Hago eso,
Aqui esta el codigo.
If mrs.RecordCount > 0 Then
mrs.MoveFirst
mrs.Seek Array(Val(txtArti.Text))
End If
If Not mrs.EOF Then
mrs!unidad = Val(txtCo.Text)
mrs!fecha = Format(txtFeCo.Text, "short Date")
mrs!costo = Val(txtFinal.Text)
mrs!cata = Val(txtCata.Text)
mrs!fechaen = Format(txtFeEn.Text, "short date")
mrs.Update
Else
mrs.AddNew
mrs!codigo = Val(txtArti.Text)
mrs!unidad = Val(txtCo.Text)
mrs!fecha = Format(txtFeCo.Text, "short Date")
mrs!costo = Val(txtFinal.Text)
mrs!cata = Val(txtCata.Text)
mrs!fechaen = Format(txtFeEn.Text, "short date")
mrs.Update
End If
ya tengo que entregarlo y estoymuy atariado, por que no se como ....
Tengo una base datos con varias tablas, y quiero que poder eliminar los registros que en ella ya no se utilicen
pero quiero Eliminarlo desde otro modulo saben
Como Hago eso,
Aqui esta el codigo.
If mrs.RecordCount > 0 Then
mrs.MoveFirst
mrs.Seek Array(Val(txtArti.Text))
End If
If Not mrs.EOF Then
mrs!unidad = Val(txtCo.Text)
mrs!fecha = Format(txtFeCo.Text, "short Date")
mrs!costo = Val(txtFinal.Text)
mrs!cata = Val(txtCata.Text)
mrs!fechaen = Format(txtFeEn.Text, "short date")
mrs.Update
Else
mrs.AddNew
mrs!codigo = Val(txtArti.Text)
mrs!unidad = Val(txtCo.Text)
mrs!fecha = Format(txtFeCo.Text, "short Date")
mrs!costo = Val(txtFinal.Text)
mrs!cata = Val(txtCata.Text)
mrs!fechaen = Format(txtFeEn.Text, "short date")
mrs.Update
End If
Valora esta pregunta


0