Saludos! he pedido varias veces ayuda y nada
Aquí voy otra vez, por que no le hallo solución al asunto y estoy

Esto es lo que la sintaxis hace, Si los check estan seleccionados (value=1) entonces se verificara en la tabla si ya hay datos con el número de código, si no es asi inserta, aqui pongo la sintaxis para ir paso por paso

Código:

Dim ccone As ADODB.Connection
 Set ccone = New ADODB.Connection
 With ccone
 .Provider = "microsoft.jet.oledb.4.0"
 .Open (App.Path & "\recibo_97.mdb")
 End With

 Dim buscar1 As ADODB.Recordset
 Set buscar1 = New ADODB.Recordset
 
 Dim guardar1 As ADODB.Recordset
 Set guardar1 = New ADODB.Recordset
 
 Dim codigo1 As String
 
 Dim temp, tem,te As Integer

temp = 3
For i = 0 To 20


'''''''''''Pasar a Popietario Liquidaciones
If Check1(i).Value = 1 Then

codigo1 = InputBox("Ingrese Fecha (día/mes/año) correspondiente para pasar conceptos a Liquidaciones", "Solicitud de información")

If codigo1 = "" Then

MsgBox "Ingrese Fecha para pasar información a Liquidación", vbCritical + vbOKOnly, "Información"

Else


 Set buscar1 = New ADODB.Recordset

 buscar1.Open "SELECT * FROM liquidacion WHERE expediente= '" & Text10.Text & "' AND fecha= '" & (Trim$(UCase$(LCase$(codigo1)))) & "' AND ncheque ='" & Text8.Text & "'", ccone
 
 If buscar1.EOF = True Then
 
 Set guardar1 = New ADODB.Recordset

 guardar1.Open " INSERT INTO liquidacion" _
 & " (expediente,fecha,ncheque) VALUES " _
 & " ('" & Text10.Text & "','" & (Trim$(UCase$(LCase$(codigo1)))) & "','" & Text8.Text & "');", ccone
 
 Set guardar1 = New ADODB.Recordset
 guardar1.Open " UPDATE liquidacion " _
 & "SET expediente='" & Text10.Text & "',fecha='" & (Trim$(UCase$(LCase$(codigo1)))) & "',codigo" & temp & "='" & Combo1(i).Text & "',concepto" & temp & "='" & Text9(i).Text & "',monto" & temp & "='" & Text5(i).Text & "' WHERE expediente = '" & Text10.Text & "' AND fecha= '" & (Trim$(UCase$(LCase$(codigo1)))) & "' AND ncheque='" & Text8.Text & "' ;", ccone

Hasta aqui el código funciona bien, ahora voy con el problema, si ya hay datos introducidos en la tabla (buscar1.EOF = False) entonces el tiene que buscar un campo, en este caso concepto2,concepto3,conceptoX y Tiene que recorrer cada uno de ellos hasta concepto9, cuando se encuentre con el primero conceptoX= "" guardara ciertos text, aqui el codigo que tengo para hacer esto, que no funciona!!!

Código:

 Else
 
 tem = 2
 For F = 0 To 7
 
 Label18(F).Caption = IIf(IsNull(buscar1.Fields("concepto" & tem)), "", buscar1.Fields("concepto" & tem))
 tem = tem + 1
 
 Next F
 
 
 te = 2
 For H = 0 To 7
 
 
 If Label18(H).Caption = "" Then
 Set guardar1 = New ADODB.Recordset

 guardar1.Open " UPDATE liquidacion " _
 & "SET expediente='" & Text10.Text & "',fecha='" & (Trim$(UCase$(LCase$(codigo1)))) & "',codigo" & te & "='" & Combo1(H).Text & "',concepto" & te & "='" & Text9(H).Text & "',monto" & te & "='" & Text5(H).Text & "' WHERE expediente = '" & Text10.Text & "' AND fecha= '" & (Trim$(UCase$(LCase$(codigo1)))) & "' AND ncheque='" & Text8.Text & "';", ccone

 
 te = te + 1
 End If
 
 If Label18(H).Caption <> "" Then
 tex=2
 
 End If
 
 Next H
 

End If
End If
End If

temp = temp + 1

Next i

Ayudenme Plases es Urgente por fa Gracias

No te parece que seria más fácil hacer un update en vez de un insert?
la cosa seria algo como....
while not recordset.eof
for x=1 to recodset.fields.count -1
if recordset.field(x)="" then
update tabla set campo = valor
end if
next x
recordset.movenext
wend

Pruebalo a ver si te funciona

es que de hecho estoy haciendo un update si te figas en

If Label18(H).Caption = "" Then
Set guardar1 = New ADODB.Recordset

guardar1.Open " UPDATE liquidacion " _
& "SET expediente='" & Text10.Text & "',fecha='" & (Trim$(UCase$(LCase$(codigo1)))) & "',codigo" & te & "='" & Combo1(H).Text & "',concepto" & te & "='" & Text9(H).Text & "',monto" & te & "='" & Text5(H).Text & "' WHERE expediente = '" & Text10.Text & "' AND fecha= '" & (Trim$(UCase$(LCase$(codigo1)))) & "' AND ncheque='" & Text8.Text & "';", ccone
Ahora tengo una duda si yo solo quiero seleccionar un solo campo de ese registro, algo asi como recodset.fields("concepto" & temps).count -1 claro que me da error aqui las modificaciones que hice

Código:

 temps = 2
 
 While Not buscar1.EOF
 For x = 1 To buscar1.Fields("concepto" & temps).Count - 1
 If buscar1.Field(x) = "" Then
 guardar1.Open " UPDATE recibo " _
 & "SET expediente='" & Text10.Text & "',mes_factura='" & (Trim$(UCase$(LCase$(codigo2)))) & "',apartamento='" & Text11.Text & "', codigo" & temps & "='" & Combo1(x).Text & "',concepto" & temps & "='" & Text9(x).Text & "',monto" & temps & "='" & Text5(x).Text & "' WHERE expediente = '" & Text10.Text & "' AND apartamento='" & Text11.Text & "' AND mes_factura='" & (Trim$(UCase$(LCase$(codigo2)))) & "';", ccone
 End If
 Next x
 temps = temps + 1
 buscar1.MoveNext
 Wend

ahi te falla principalmente porque no tenes un end if....
gemany, un consejo, si queres que la gente te conteste, ordena tu codigo, explicate bien, y pregunta cosas simples, dudas puntuales, no pongas todo el codigo... no se si sere el unico, pero no entiendo nada de lo que programas....

tambien hay muchos errores que tenes que corregir, como " ; "al final de las consultas SQL en vb no van.

Como en 5 oportunidades te marque que Ucase(Lcase()) es redundante....


en esta linea
If codigo1 = "" Then.... no hay un exit sub, por lo tanto se sigue ejecutando el procedimiento

cuando abris un recordset, le pasas la conexion, pero no pasas cursortype ni locktype....

primero haces un insert y despues un update ¿? porque...ademas de la que

y muchos errores de sintaxis,

si queres te ayudo pero explicate bien porque no entiendo:

1) que es lo que buscar hacer... para que sirve
2) nombre de los controles, y como estan dispuestos, si podes una captura de la pantalla
3) nombre de las tablas, y campos, y explica para que esta cada campo los que no sean obios...

Perdona si te cae mal pero postiaste como 6 veces lo mismo, te dan ayuda y no te sirve... pero creo que es porque no sabes implementarla.... si pones todo esto que te pido, podemos hacer un codigo para realizar lo que buscas...

saludos

En Dónde no esta el end If?



Estoy aprendiendo, por eso encontraras fallas en mi código y cosas
redundantes como dices



Quitado el ; Corregido lo de
Ucase(Lcase()), colocado el exit sub



Nunca he usado cursortype ni locktype

1) Tengo un
formulario para generar cheque, con sus respectivos campos para nombre del
titular, monto, monto en letra y fecha. Luego aparecen una serie de text indicando a que expediente,
apartamento cargárselo, el código del banco, el nombre del banco, el número de
cheque y más abajo salen una serie de check, combos y text (Todos Matriz de 20)
en donde se reflejara que se pago con ese cheque, como pueden ser varios gastos
habilite 20 controles te voy a dejar una captura







Si el check esta activado el debería de pasar el código,
concepto y monto a una tabla llamada recibo, la cual esta vinculada con el
formulario de recibo de alquiler de apartamentos, en dicho recibo se generan
gastos agua, luz, tlf y para agilizar el
trabajo quise que cuando estén pasando un cheque ellos tengan la opción de
pasar esos conceptos al recibo, sin la necesidad de tipear dos veces lo mismo

Te dejo una captura











Si te fijas hay 8 controles para que el usuario acredite o
debite, he allí mi problema, ya que cuando yo estoy pasando mi cheque y digo
que quiero pasar esos gatos a tal mes del recibo del alquiler ya pueden haber gastos en los campos (código,
conceptos, montos) es por eso que deseo buscar cual de ellos esta vació y de
allí en adelante hacer el update con los gastos del cheque, no quiero que me
sobrescriba los que ya hay.






2) Son diez text, una matriz de 20 check1, una
matriz de 20 check2, una matriz de 20 Combo1, Una matriz de 20 text9, una
matriz de 20 text5, 3 buttons (colocar cantidad en letra, imprimir y salir) y
un menú archivo con la opción de Nuevo, buscar, guardar y eliminar y una serie de labels



La sintaxis que tengo esta en el menú guardar. Como veras esta
otra opción de pasar los gastos a propietario, pero quisiera que trabajáramos
con inquilino (recibo de alquiler de apartamento) si resolvemos esto seria
hacer lo mismo en propietario cambiando rutas y esas cosas










3) Ahora estoy trabajando con la tabla de recibo y sus
campos











y la de cheque

















Si postie varias veces lo mismo y solo tu y un usuario
llamado Zitro, el cual me ofreció su msn para ayudarme, respondieron



Muchas Gracias! Vuelve a preguntar cualquier cosa

Subiendo tema! necesito ayuda!

Hola,Germany,me extraña tenes 150 post y pones titulos asi en los post...para la proxima pone uno bueno como dice en las reglas del foro.

saludos.

Yo trato de poner Titulos acorde a mi duda, si te fijas, en dos o 3 casos pongo títulos asi por mi desesperación jajaja!

Germany sinceramente no te entiendo nada, no entiendo la logica de tu sistema, haces mucho enrriedo.

Sugerencias:

1) LEE un buen manual de base de datos, como organizar los datos de manera eficiente.
Esto no te lo digo de malo, lo digo porque no podes tener una tabla con 20 campos, uno para cada concepto. Tenes que crear 2 tablas, una con los datos del talonario, y otra con el detalle.

2) Trata de darle estructura a tu programa, simplificar codigo, buscar la manera mas eficiente para hacer lo que necesitas.
Acordate que el buen programador es aquel que llega a la solucion de sus problemas de la manera mas eficiente posible. Y no digo menos codigo sino mas eficiente.

3) Escribi el codigo de una manera legible.
EJ:

Código:

 Ifa = b then
 if a =c then
 msgbox "A es igual a B y a C"
 else
 msgbox "A no es igual a c"
 end if 
 else
 msgbox "A no es igual a B"
 end if

ves como se nota asi donde termina un if simplemente usando tabulaciones.... mira esto como vos lo haces

Código:

If Check1(i).Value = 1 Then
If codigo1 = "" Then
Else
 If buscar1.EOF = True Then

Yo no te estoy retando, ni desalentando, pero yo no entiendo tu estilo de programacion e imagino que el resto tampoco... por eso imagino que no te ayudan porque no te entienden...

saludos

Bueno, entonces ya no queda nada que hacer, la cosa era simplemente pasar la información de ciertos text a una tabla cuando un campo cumplia la condición de vacio! pero ya mejor olvidemoslo, seguire intentando con lo poco que se.Gracias!

Hola Germany, te paso mi correo ing_josecarlos@hotmail.com, seguro puedo ayudarte , bye.

Gente, ¡Por favor, las respuestas háganlas de manera pública y no por email! sino otro usuario que tenga la misma duda no podrá encontrar la respuesta.

Saludos