Create a module:
Option Compare Database
Option Explicit
'
Type Rect
x1 As Long
y1 As Long
x2 As Long
y2 As Long
End Type
Declare Function IsZoomed Lib "user32" (ByVal hWnd As Long) As Long
Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal...
Insert a Image control in your Report(ex: Name Image7)
In a Detail On Format insert:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim x As String
x = "Z:\FotoPers\M" & Trim([NameField]) & ".bmp"
Me!Image7.Picture = x
End Sub
I cannot understand very well what you ask, so tell me more.
Here it is a code that helps you to see every .dbf from a directory.
Dim MyName As String
MyName = Dir("C:\Fact2\*.DBF", vbNormal)
Do While MyName <> ""
............
MsgBox MyName...
Look at my point of view:
Public Function SetPO() As String
Dim db As Database
Dim rs As Recordset
Dim NewNr As Long
Set db = CurrentDb
Set rs = db.OpenRecordset("Table1", dbOpenTable)
rs.Index = "NumberID"
If rs.RecordCount <= 0 Then...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.