Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

GUARDAR DATOS DE TEXTBOX Y A LA VEZ DATOS DE LISTBOX A LA BASE DE DATOS ACCESS DESDE UN FORMULARIO DE EXCEL

publicado

SOY NUEVO EN ESTE GRUPO, POR FAVOR ALGUIEN ME PODRIA AYUDAR CON LOS CODIGOS;

NO PUEDO GUARDAR EN UN FORMULARIO DATOS DE UN TEXTBOX Y LA VEZ DATOS DEL LISTBOX A LA BASE DE DATOS ACCESS DESDE UN FORMULARIO MACRO EXCEL

ESTE CODIGO ESTOY UTILIZANDO: ME GRABA ESTOS DATOS, LO QUE NO SE QUE CODIGOS INGRESAR PARA GUARDAR LOS DATOS DE UN LISTBOX TAMBIEN. ALGUIEN ME PUEDA AYUDAR POR FAVOR 

Sub GrabarReg1()

Dim conn As ADODB.Connection
Dim MiConexion
Dim Rs As ADODB.Recordset
Dim MiBase As String

If frmFORMULARIO.ComboBox5 = "" Then
MsgBox "Campo Vacio, Ingrese una ORDEN", vbExclamation, "Mensaje"
'frmFORMULARIO.ComboBox5.BackColor = &HFF& 'SOMBREA COLOR ROJO
frmFORMULARIO.ComboBox5.SetFocus

Else
If frmFORMULARIO.TextBoxDIA = "" Then
MsgBox "Campo Vacio, Ingrese una FECHA", vbExclamation, "Mensaje"
'frmFORMULARIO.TextBoxDIA.BackColor = &HFF& 'SOMBREA COLOR ROJO
frmFORMULARIO.TextBoxDIA.SetFocus

Else

MiBase = "BASEFINAL.accdb"

Set conn = New ADODB.Connection
MiConexion = Application.ThisWorkbook.Path & Application.PathSeparator & MiBase

With conn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .Open MiConexion
End With

Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseServer
Rs.Open Source:="REGISTRO1", _
    ActiveConnection:=conn, _
    CursorType:=adOpenDynamic, _
    LockType:=adLockOptimistic, _
    Options:=adCmdTable

'Cargar los datos a Tabla de Access
With Rs
    .AddNew
    .Fields("NUMORDEN") = frmFORMULARIO.TextNumero.Value
    .Fields("TIPOORDEN") = frmFORMULARIO.ComboBox5.Value
    .Fields("CODIGOEESS") = frmFORMULARIO.TextBoxCodigoEESS.Value
    .Fields("EESS") = frmFORMULARIO.TextBoxEESS.Value
    .Fields("RUC") = frmFORMULARIO.TextBoxRUC.Value
    .Fields("RAZONSOCIAL") = frmFORMULARIO.TextBoxRAZONSOCIAL.Value
    .Fields("DIRECCION") = frmFORMULARIO.TextBoxDIRECCION.Value
    .Fields("FECHAORDEN") = frmFORMULARIO.TextBoxDIA.Value & "/" & frmFORMULARIO.TextBoxMES.Value & "/" & frmFORMULARIO.TextBoxAÑO.Value
    .Fields("FUENTE") = frmFORMULARIO.TextboxFINANCIAMIENTO.Value
    .Fields("SUBFUENTE") = frmFORMULARIO.TextboxSUBFINANCIAMIENTO.Value

'::::::::::::::::::::::::::EN ESTA PARTE QUISIERA INGRESAR CODIGO PARA EL LISTBOX.....AYUDEME POR FAVOR:::::::::::::::::::::::::::::::::::

 

End With

Rs.Update

'Cerrar la conexión
Rs.Close
conn.Close
Set Rs = Nothing
Set conn = Nothing

MsgBox "Registro exitosa", vbInformation, "ECOLOGIS"
'Unload frm4NuevoPROVEEDOR

End If
End If
End Sub
 

Editado el por sccoa

Featured Replies

No hay posts para mostrar

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.