Jump to content

pajuma

Members
  • Content Count

    444
  • Joined

  • Last visited

  • Days Won

    5

Everything posted by pajuma

  1. Muchas Gracias Silvia ,, por el apoyo y tiempo con ello quedo mas que explicado ,, se soluciono mi problema. Saludos Cordiales,
  2. Estoy tratando como poder colocar el estado en la hoja 1 de acuerdo al rango de la hoja 2 es decir si la celda A2 (hoja 1), esta en el rango de las columans B: C (hoja2) Colocar el estado 01 (hoja2),,,si la celda A2 (hoja 1) esta en el rango de las columnas E:F(hoja2) colocar el estado 02 de la hoja 02. espero me pueden ayudar con esto se lo agradeceria mucho. Saludos, COLOCAR ESTADO.xlsx
  3. Buenas Tardes me gustaria saber como haria para poder separar el departamento el distrito y la provincia con formulas . agradezco su ayuda de antemano. lo he intentado con texto en columnas pero no sale como deberia ser. Saludos, SEPARAR DIRECCION 01.xlsx
  4. hola enigma efectivamente se llego a resolver las disculpas del caso doy por cerrado este tema ..lo hice con sql .
  5. gracias logroastur ,riddle me fue de ay Sub Ingresar() Set con = New ADODB.Connection Set rst = New ADODB.Recordset Dim cmd As New ADODB.Command Call Conectar_Sql ' parametros de conexion a la base de datos con sql Dim TxtUser, txtpass As String TxtUser = UCase(Trim(Frm_Login.Cmbusuarios.Value)) txtpass = Trim(Frm_Login.TxtClave.Value) rst.ActiveConnection = con rst.Source = "Select * From dbo.Tbl_Usuarios where Nombres='" & TxtUser & "' AND Dni='" & txtpass & "'" & " AND Estado='1'" rst.Open If rst.RecordCount <> 0 Then Do While Not rst.EOF If Frm_Login.Cmbusuarios.Value = rst!Nombres And Frm_Login.TxtClave.Value = rst!Dni Then Call Acceso exit sub '--solo falto esto para que corra. Else Frm_Login.TxtClave.Value = "" End If rst.MoveNext Loop Frm_Login.TxtClave.Value = "" End If rst.Close Set rst = Nothing con.Close '-------------------------------------------------- End Sub uda el codigo se soluciono mi problema comparto
  6. Buenas tardes estoy tratando de loguearme desde un formulario frm_login teniendo una tabla de usuarios en mi base de datos pero me arroja el siguiente error cuando coloco el usuario y la clave de manera correcta: se ha producido el error '91' en tiempo de ejecucion: variable de objeto o bloque with no establecido. Favor agradezco su apoyo.para resolver el problema Sub Ingresar() Set con = New ADODB.Connection Set rst = New ADODB.Recordset Dim cmd As New ADODB.Command Call Conectar_Sql ' parametros de conexion a la base de datos con sql Dim TxtUser, txtpass As String TxtUser = UCase(Trim(Frm_Login.Cmbusuarios.Value)) txtpass = Trim(Frm_Login.TxtClave.Value) rst.ActiveConnection = con rst.Source = "Select * From dbo.Tbl_Usuarios where Nombres='" & TxtUser & "' AND Dni='" & txtpass & "'" & " AND Estado='1'" rst.Open If rst.RecordCount <> 0 Then Do While Not rst.EOF If Frm_Login.Cmbusuarios.Value = rst!Nombres And Frm_Login.TxtClave.Value = rst!Dni Then Call Acceso Else Frm_Login.TxtClave.Value = "" End If rst.MoveNext Loop Frm_Login.TxtClave.Value = "" End If rst.Close Set rst = Nothing con.Close '-------------------------------------------------- End Sub Sub Acceso() Unload Frm_Login Frm_Contenedor.Show End Sub
  7. Muchas Gracias @logroastur se ha solucionado mi problema gracias por tu tiempo. Dios te bendiga . @Enigma gracias tambien por el tiempo ofrecido en mi consulta. Saludos Cordiales,
  8. @logroastur asi lo estoy poniendo pero deberia incrementar el codigo en fact-0001 cuando inicio el formulario eso se hace pero cuando le doy guardar necesito que se incremente en fact-0002 y asi sucesivamente que me tome el ultimo registro de la base de datos y le incremente 1 al momento de guardar . muy agradecido por tu tiempo y por tu incondicional apoyo Sub Autogenerador() Dim con As ADODB.Connection Dim rst As ADODB.Recordset Set con = New ADODB.Connection con.ConnectionString = "mi cadena de conexion" con.Open If con.State = adStateOpen Then Frm_Contenedor.Lblconectando.Caption = "Servidor Conectado..." Else MsgBox "La Base de Datos no esta disponible o el Servidor esta Desconectado...", vbCritical Frm_Contenedor.Lblconectando.Caption = "Servidor Desconectado..." End If Set rst = New ADODB.Recordset rst.ActiveConnection = con rst.Source = "SELECT Max(Codigo_nota) AS Maximo FROM Notas_Abono" rst.Open Set rst = New ADODB.Recordset rst.ActiveConnection = con rst.Source = "SELECT Max(Codigo_nota) AS Maximo FROM Notas_Abono" rst.Open If rs.RecordCount > 0 Then If IsNumeric(Replace(rst.Fields(0), "Fact-", "", 1, -1, 1)) Then Frm_Contenedor.TextBox21.Text = rst(0) Else Frm_Contenedor.TextBox21.Text = "Fact-0000" End If Else Frm_Contenedor.TextBox21.Text = "Fact-0001" End If con.Close If Not rst Is Nothing Then Set rst = Nothing If Not con Is Nothing Then Set con = Nothing End Sub
  9. Hola @logroastur por la explicacion y gran ayuda he puesto el codigo pero no se autoincrementa en 1 lo he comenzado con fact-0001 pero cuando doy en guardar no me aparece el fact-0002 gracias, saludos,
  10. Gracias a @logroastur y @enigma por su ayuda pero me quede en esto o talvez estoy poniendo mal los parametros, me arroja un error no coinciden los tipos uso como base de datos sql server 2008 muy agradecido por la ayuda brindada Set rst = New ADODB.Recordset rst.ActiveConnection = con rst.Source = "SELECT Max(Codigo_nota) AS Maximo FROM Notas_Abono" rst.Open If rst.Fields(0) > 0 Then For i = 1 To "Fact-" & Format(rst.Fields("Maximo"), "0000") + 1 Frm_Contenedor.TextBox21.Text = "Fact-" & Format(rst.Fields("Maximo"), "0000") Next Else Frm_Contenedor.TextBox21.Text = "Fact-" & Format(i, "0001") End If con.Close If Not rst Is Nothing Then Set rst = Nothing If Not con Is Nothing Then Set con = Nothing
  11. Buenas tardes tengo una base de datos y deseo que se visualize el ultimo codigo al momento de guardar la info, sabiendo que el tipo de dato en la base de datos es nvarchar como hago para que sea asi: Fact-0001,Fact -0002,Fact -0003,etc etc Set rst = New ADODB.Recordset rst.ActiveConnection = con rst.Source = "Select Max(Codigo_nota) As Maximo From Tabla" rst.Open If rst.Fields(0) > 0 Then For i = 1 To rst.Fields("Maximo") + 1 Next endif con.Close If Not rst Is Nothing Then Set rst = Nothing If Not con Is Nothing Then Set con = Nothing
  12. efectivamente enigma coloco 4 campos como referencia de ejemplo, pero en si son 120 campos que deben de mostrase la cual teniendo gran cantidad de base y un algoritmo de busqueda secuencial hace q mi consulta sea muy lenta .. Gracias
  13. Gracias enigma pero en este caso si tengo que consultar todos los registros de la tabla, por ello le pongo * gracias saludos cordiales,
  14. Hola a todos estoy trabajando con una database en access y excel vba pero en mi database son 200 mil registros abra una manera de hacer mas eficiente una consulta de busqueda yo uso este tipo de consulta la base de datos esta en red y cuando se conectan varios usuarios a consultar es muy lenta diria demasiado lenta en hacer una busqueda en el evento click del listbox tengo los dni y cuando doy click en un dni muestra los datos Sub Consulta_Cliente() Set rs = New ADODB.Recordset dato = Frm_Cliente.ListBox2.List(Frm_Cliente.ListBox2.ListIndex, 0) Frm_Cliente.Txtdnicli.Value = "": Frm_Cliente.Txtcliente.Value = "": Frm_Cliente.Txtcodvend.Value = "" Frm_Cliente.Txtvend.Value = "" rs.Open "Select * from Tbl_activador where NUM_DOCUMENTO='" & dato & "'", cnn, adOpenKeyset, adLockOptimistic, adCmdText If rs.RecordCount > 0 Then Frm_Cliente.Txtcliente.Value = rs!nombre_cliente Frm_Cliente.Txtcodvend.Value = rs!COD_PROMOTOR Frm_Cliente.Txtvend.Value = rs!PROMOTOR Frm_Cliente.Txtdnicli.Value = rs!NUM_DOCUMENTO endif
  15. sube el archivo de muestra ya sea con datos ficticios son las reglas del foro. Slds,
  16. estuve avanzando y esta quedando ya mejor pero tengo un problema deseo que aparezca el año y las barras pero solo toma el primer registro alguien que me de una manito.. dejo codigo Private Sub Command1_Click() Dim myChtObj As ChartObject ' Add a series to collection Chart.Visible = True ' Filtramos los Registros de la BD en base a el año seleccionado Set Rs = cnn.Execute("SELECT * FROM ventas") ' Calculamos el Porcentaje de las Ventas ' Esperadas y Logradas nEsperado = Rs.Fields("Esperado") nLogrado = Rs.Fields("Logrado") nanio = Rs.Fields("Año") ' Colocamos el titulo al Chart Set c = Chart.Constants Set mychart = Chart.Charts.Add With mychart 'Add a legend to the bottom of the pie chart .HasLegend = True .Legend.Position = chLegendPositionBottom 'Add a title to the chart .HasTitle = True .Title.Caption = "Datos Cuantitativo del Año " '& Rs.Fields("AÑO") .Title.Font.Bold = True .Title.Font.Size = 8 .WidthRatio = 50 End With '-------------------------------------------------------------------------- mychart.Type = c.chChartTypeColumnClustered Rs.MoveFirst Do While Rs.EOF = False mychart.SeriesCollection.Add With mychart.SeriesCollection(0) .SetData c.chDimSeriesNames, c.chDataLiteral, nanio .SetData c.chDimCategories, c.chDataLiteral, nEsperado .SetData c.chDimValues, c.chDataLiteral, nLogrado End With Rs.MoveNext Loop Rs.Close Set Rs = Nothing End Sub[/CODE] esta es la imagen :
  17. hola siguiendo con el tema estoy trabajando con un control chartspace para crear graficos en formularios consultando a un base de datos de access. lo que deseo hacer es crear un grafico con los valores de la tabla dejo ejemplo de mi avance si alguien me puede echar una manito le estare agradecido Slds, ejemplo1.rar
  18. Hola a todos, Quiero hacer una Consulta tengo una base de datos en access y los datos se muestran en formulario excel. estoy trabajando con ADO Deseo crear un grafico de indicadores en un formulario vba llamando a una consulta desde access es posible hacer esto. alguien que me de una manito. Saludos,
  19. buenas tardes mi consulta es la siguiente alguien tendra algun ejemplo de consultar un registro en un formulario excel ,y devolver los datos de una database en access, al formulario de excel. saludos,
  20. [uSER=1101]@Fleming[/uSER] darlo por cerrado te lo agradezco se soluciono mi inquietud. gracias de antemano [uSER=147524]@gfellay[/uSER].
  21. hola Hector gracias por darte el tiempo en leer mi consulta te explico: estoy trabajando una database en access que contien 90 campos donde se guarda la info de un formulario, pero mi pregunta viene al consultar un registro "x" y este se repita dos veces a mas en la base de datos , claro el nombre de busqueda puede ser igual pero el resto de campos son diferentes, lo que necesito es darle click a un registro mostrado en el listbox y este llame a los datos en el formulario., pero con el codigo que he expuesto asi tenga 3 registros del criterio buscado, no cambian los registros solo toma el primero de la lista .. espero haberme explicado mejor Gracias,
  22. Estimados favor su ayuda con esta instruccion estoy mostrando datos a un listbox1 de una base de datos access, pero mi regunta es cuando aparecen dos registros de un campo consultado no jala los datos al formulario solo jala el primero que encuentra. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Set rs = New ADODB.Recordset dato = Frm_buscador.ListBox1.List(Frm_buscador.ListBox1.ListIndex, 0) Sql = "Select * From Table_Data_Cross Where DLL_ID_GRAB='" & dato & "'" With rs .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open Sql, cnn, , , adCmdText End With If rs.RecordCount > 0 Then Frm_Cross.TextBox6.Value = rs.Fields("DLL_ID_GRAB") Frm_Cross.TextBox6.Enabled = False Frm_Cross.TextBox1 = rs.Fields("DLL_CTI") Frm_Cross.TextBox2 = rs.Fields("DLL_NUM") Frm_Cross.TextBox3 = rs.Fields("DLL_DURG") Frm_Cross.TextBox4 = rs.Fields("DLL_FECLL") Frm_Cross.TextBox5 = rs.Fields("DLL_HORLL") Frm_Cross.ComboBox1 = rs.Fields("DLL_PROOV") Frm_Cross.ComboBox2 = rs.Fields("DLL_PROG") Frm_Cross.ComboBox3 = rs.Fields("DLL_SPROG") Frm_Cross.ComboBox4 = rs.Fields("DLL_TMON") End If rs.Close Set rs = Nothing End Sub[/CODE] solo me muestra datos del primer item seleccionado al formulario y no del siguiente item cuando lo selecciono. tengo que mostrar en el formulario 90 campos
  23. gracias gfellay voy a probarlo y te comento..
  24. Estimados buen dia su apoyo estoy tratandod e guardar 100 campos en una base de datos de access mi problema es que no puedo guardar todos los valores en una linea de codigo como haria para concatenarlos. ejemplo Sql = "INSERT INTO Tabledemo (registro 1,registro2,...registro 100) " & _ "values ('" & UCase(TextBox1) & "','" & UCase(TextBox2) & "',... ........'" & UCase(TextBox37) & "')"[/CODE] y ya no me permite AGREGAR MAS CAMPOS ,como hago para seguir la concatenacion o alguna manera de hacerlo.. Gracias,,
  25. Ti auguro la gioia e la serenita del Natale, che allontana i momenti difficili e tristi che fanno parte della nostra vita. Il Natale e un giorno che regala calore e sorrisi e tenerezze e ci sorprende e a volte da quasi fastidio, perche apre i nostri cuori all'improvviso!... Questanno il mio Natale sara ancora piu bello, perche ho conosciuto una persona veramente molto speciale! a te e famiglia. Tuo amico Pajuma .
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png