Eduardo Pérez Fernández

Utilice si quiere DAO y recorra la primera tabla con algo como: Dim rs as recordset Set rs=currentdb.openrecordset("tabla1") Do until rs.eof Currentdb.execute "INSERT INTO tabla2(campo1, campo2) VALUES(" & rs!campotabla1 & "," & rs!campo2 & ")"...

Debe programar el evento Antes de Actualizar, algo como Private Sub Form_BeforeUpdate(Cancel As Integer) Dim lnStock As Integer lnStock = Nz(DLookup("STOCK", "PRODUCTOS", "CÓDIGOARTÍCULO=" & Me.CÓDIGO_ARTÍCULO)) If Me.UNIDADES > lnStock Then MsgBox...

Utilice al final de linea un espacio & _

Si quiere envíeme la estructura de las tablas y del archivo de Exece para no entrar en explicaciones que no tienen sentido a [email protected]

Si quiere realizar algo avanzado la invito a descargar este ejemplo de mi canal en YouTube. (110) Búsquedas y Filtros avanzados en Access - YouTube

Lo puede hacer mediante una función que busque la fecha en la tabla, si la fecha es igual a la fecha del sistema se abra el formulario. La función se llama desde la macro Autoexec. TABLA FORMULARIO EVENTO DEL FORMULARIO AL ABRIR Private Sub...

Este código le sirve, lo puede llamar desde un botón en el evento "Al hacer clic" Private Sub btnImportar_Click() Dim i As Integer Dim FileName As String ' Requiere referencia a Microsoft Office 11.0 Object Library. Dim fDialog As Office.FileDialog...

Las respuestas que le dan son acertadas, pero personalmente le recomiendo que haga un curso de Access (en la web hay varios), porque le pueden suministrar un ejemplo, pero como ha pasado, las personas copian y no tienen lógica de lo que está pasando,...

No ha cerrado el paréntesis de VALUE y sobran algunas comillas

Pruebe con este código Private Sub Form_Current() Me.[estado encargo].SetFocus If Me.[estado encargo].Text = "pendiente" Then Me.Imagen10.Visible = True Else Me.Imagen10.Visible = False End If End Sub