SQL

juevalcar
31 de Agosto del 2005
Hola necesito que alguien me ayude con un problemita que tengo para generar un programa en el cual necesito descargar unas guias de correo sobre una base de datos, el problema radica en que manejo varios clientes y cada uno tiene una base de datos independiente, por lo tanto he estado desarrollando un formulario que me permite ubicar la base de datos y asu vez abrir la tabla sobre la cual necesito hacer las descargas de acuerdo con unos motivos de entrega y o devolucion, el formulario me funciona bien hasta cuando abro la tabla pero cuando voy a ejecutar el sql para actualizar de acurdo con el numero de guia este me presenta un error en la sentencia where por favor si alguien me puede ayudar hay coloco el codigo gracias de antemano
Option Explicit
Dim Td As TableDef
Dim WorkDb As Database
Dim DataBaseIsOpen As Boolean
Dim CurrentTable As Recordset
Dim sql As String
Dim TableIsOpen As Boolean

Private Sub cmdChoose_Click()
CommonDialog1.FileName = txtDataBaseName.Text
CommonDialog1.Action = 1
If CommonDialog1.FileName <> "" Then txtDataBaseName.Text = CommonDialog1.FileName
End Sub

Private Sub lstOfTables_Click()
Dim Fld As Field
Dim Idx As Index
If TableIsOpen Then CurrentTable.Close
Set CurrentTable = WorkDb.OpenRecordset(lstOfTables)
TableIsOpen = True

lstOfFields.Clear
Set Td = WorkDb.TableDefs(lstOfTables)
For Each Fld In Td.Fields
lstOfFields.AddItem Fld.Name
Next Fld
'lblType.Caption = ""
'lblSize.Caption = ""
'lstOfIndexes.Clear
For Each Idx In Td.Indexes
'lstOfIndexes.AddItem Idx.Name
Next Idx
'lstSample.Clear
Text1.SetFocus
End Sub

Private Sub Text2_Change()
Dim Fld As Field
Dim Idx As Index
If TableIsOpen Then CurrentTable.Close
Set CurrentTable = WorkDb.OpenRecordset(lstOfTables)
TableIsOpen = True



sql = " update " & lstOfTables & "" & " set Motivo ='" & Me.Label3D1.Caption & "',Digitador='" & Me.Text1.Text & "',Fecha='" & Me.Text4.Text & "'" & " Where NumGuia = " & Me.Text2.Text & ""
WorkDb.Execute sql
WorkDb.Close
'sql = "Select * from " & lstOfTables & ""
'"set Motivo =" & Me.Label3D1.Caption & ",Digitador=" & Me.Text1.Text & ",Fecha=" & Me.DTPicker1.Value & "" _

'sql = " update " & lstOfTables & "" & " set Motivo =" & Me.Label3D1.Caption & ",Digitador=" & Me.Text1.Text & ",Fecha=" & Me.DTPicker1.Value & " & "where Numguia= " & Me.Text2.Text & "'"
'sql = " update " & lstOfTables & "" & " set Motivo =" & Me.Label3D1.Caption & ",Digitador=" & Me.Text1.Text & ",Fecha=" & Me.DTPicker1.Value & "" & " Where Numguia = " & Me.Text2.Text & "'"

End Sub


mvallejos
31 de Agosto del 2005
Numguia = " & Me.Text2.Text & "'"

Si numGuia es numérico, estás cerrando al final con una comilla simple, con los numeros no va.
Si es de texto, tienes la comilla al final, pero no al principio

Numguia = '" & Me.Text2.Text & "'"