Hola amigos estoy haciendo un programa en visual la idea es que yo ingrese datos, y estos despues los vaya viendo por separados de acuerdo asumes y pueda modificarlos
Me explico mejor en el programa tengo combo box, años,mes,dia,cargo y documento
y 5 text box, Nª de documento,proovedor,descripcion,valor neto,observacions.
La idea es que la persona seleccione
2003,enero,14,maqui,O. de Compra, e ingrese en los text box
14, casa juanita,lapices,15475,no hay y en la base de datos quede guardada la sgte informaciom
en los campos que son iguales a los datos de ingreseo
Año Mes Dia Cargo Documento
2003 Enero 14 maqui O. de Compra
Nª de Documento Proovedor descripcion
14 casa juanita lapices
valor neto valor neto + iva Descripcion
15475 * no hay
Una cosa como hago para que acces haga que el campo valor neto mas iva multiplique automaticamente por 1.18 al valor neto.
la idea es que despues en otro formulario,
con un data grid y la opcion recordset en modo table, yo ponga tres combo box año mes cargo mas un commnad button (que diga ver datos)
si elijo 2003, may y gasva
me muestre en data grid solamente los datos ingresados en mayo del 2003 del cargo gasv, asi con cada cargo y mes.
La idea es revisar lo datos y que pueda modificarlos para eso la opcion table del recordset.
despues por ultimo en otro formulario
poner dos combo box año y mes
quisiera escribir todos los cargos aompañados por un label o un frame no se cual convenga mas, la idea es que el label o frame muestre la suma de los datos ingresados por ese catgo durante el mes.
asi con los 18 cargos que hay en papel todo bonito
pero a la hora de programar estoy recien en el de igresar datos
mire esto es el codigo que puse
ya que como no me corre el ingreso menos los otros que deberian sacar los datos de la tabla
Private Sub Form_Load()
año.AddItem "2003"
año.AddItem "2004"
año.AddItem "2005"
año.AddItem "2006"
año.AddItem "2007"
año.AddItem "2008"
mes.AddItem "Enero"
mes.AddItem "Febrero"
mes.AddItem "Marzo"
mes.AddItem "Abril"
mes.AddItem "Mayo"
mes.AddItem "Junio"
mes.AddItem "Julio"
mes.AddItem "Agosto"
mes.AddItem "Septiembre"
mes.AddItem "Octubre"
mes.AddItem "Noviembre"
mes.AddItem "Diciembre"
dia.AddItem "1"
dia.AddItem "2"
dia.AddItem "3"
dia.AddItem "4"
dia.AddItem "5"
dia.AddItem "6"
dia.AddItem "7"
dia.AddItem "8"
dia.AddItem "9"
dia.AddItem "10"
dia.AddItem "11"
dia.AddItem "12"
dia.AddItem "13"
dia.AddItem "14"
dia.AddItem "15"
dia.AddItem "16"
dia.AddItem "17"
dia.AddItem "18"
dia.AddItem "19"
dia.AddItem "20"
dia.AddItem "21"
dia.AddItem "22"
dia.AddItem "23"
dia.AddItem "24"
dia.AddItem "25"
dia.AddItem "26"
dia.AddItem "27"
dia.AddItem "28"
dia.AddItem "29"
dia.AddItem "30"
dia.AddItem "31"
cargo.AddItem "Maqui"
cargo.AddItem "Maqre"
cargo.AddItem "Combu"
cargo.AddItem "Eqmen"
cargo.AddItem "Maobr"
cargo.AddItem "Mater"
cargo.AddItem "Subco"
cargo.AddItem "Trans"
cargo.AddItem "Perad"
cargo.AddItem "Insfa"
cargo.AddItem "Penvi"
cargo.AddItem "Flequ"
cargo.AddItem "Movil"
cargo.AddItem "Elese"
cargo.AddItem "Comun"
cargo.AddItem "Insma"
cargo.AddItem "Gasva"
cargo.AddItem "Gasin"
Combo1.AddItem "Factura"
Combo1.AddItem "O de Compra"
End Sub
Private Sub ingresardatos_Click()
If Trim(Txtdocumento) = "" Then Exit Sub
If Trim(Txtproveedor) = "" Then Exit Sub
If Trim(Txtdescripcion) = "" Then Exit Sub
If Trim(Txtvalorneto) = "" Then Exit Sub
If Trim(Txtobservaciones) = "" Then Exit Sub
If Trim(Trim(año)) = "" Then Exit Sub
If Trim(Trim(mes)) = "" Then Exit Sub
If Trim(Trim(dia)) = "" Then Exit Sub
If Trim(Trim(cargo)) = "" Then Exit Sub
If Trim(Trim(Combo1)) = "" Then Exit Sub
Dim mensaje As String
Dim reply As String
Dim moRecordset As Recordset
Dim msSql As String
msSql = "Select *"
msSql = msSql + "From tabla"
msSql = msSql + " where Proovedor = " + Trim(Txtproveedor)
Set moRecordset = goDatabase.OpenRecordset(msSql)
If Trim(Txtproveedor) = "" Then
MsgBox "Debe insertar el Nombre del Proveedor!!!", vbCritical, "Atención"
Txtproveedor.Text = ""
Txtproveedor.SetFocus
Exit Sub
End If
msSql = "Select *"
msSql = msSql + "From tabla"
msSql = msSql + " where N_de_Documento = " + Trim(Txtproveedor)
Set moRecordset = goDatabase.OpenRecordset(msSql)
If Trim(Txtproveedor) = "" Then
MsgBox "Debe insertar el Numero del Documento!!!", vbCritical, "Atención"
Txtproveedor.Text = ""
Txtproveedor.SetFocus
Exit Sub
End If
msSql = "Select *"
msSql = msSql + "From tabla"
msSql = msSql + " Descripción = " + Trim(Txtproveedor)
Set moRecordset = goDatabase.OpenRecordset(msSql)
If Trim(Txtproveedor) = "" Then
MsgBox "Debe ingresar la Descripcion!!!", vbCritical, "Atención"
Txtproveedor.Text = ""
Txtproveedor.SetFocus
Exit Sub
End If
msSql = "Select *"
msSql = msSql + "From tabla"
msSql = msSql + " Valor = " + Trim(Txtproveedor)
Set moRecordset = goDatabase.OpenRecordset(msSql)
If Trim(Txtproveedor) = "" Then
MsgBox "Debe ingresar el valor!!!", vbCritical, "Atención"
Txtproveedor.Text = ""
Txtproveedor.SetFocus
Exit Sub
End If
msSql = "Select *"
msSql = msSql + "From tabla"
msSql = msSql + " Observaciones = " + Trim(Txtproveedor)
Set moRecordset = goDatabase.OpenRecordset(msSql)
If Trim(Txtproveedor) = "" Then
MsgBox "Debe ingresar las Observaciones!!!", vbCritical, "Atención"
Txtproveedor.Text = ""
Txtproveedor.SetFocus
Exit Sub
End If
mensaje$ = " Desea Guardar los Datos"
reply = MsgBox(mensaje$, vbYesNo, "Atención")
If reply = vbYes Then
msSql = "insert into tabla values(" + Trim(año) + ",'" + Trim(mes) + "','" + Trim(dia) + "','" + Trim(cargo) + "','" + Trim(Combo1) + "','" + Trim(valorneto) + "','" + Trim(Txtproveedor) + "','" + Trim(descripcion) + "','" + Trim(Txtdocumento) + "','" + Trim(Txtobservaciones) + "' )"
goDatabase.Execute (msSql)
MsgBox "Registro Guardado !!", vbExclamation, "Atención"
Exit Sub
Else
limpiar_Click
TxtxProveedor.SetFocus
End If
Exit Sub
End Sub
End Sub
Private Sub menupri_Click()
Load Datos
Inicio.Show
Datos.Visible = False
End Sub
cualquier ayuda sera bien recibida gracias de antemano
|
