Forum Discussion
Len_Lane
Jul 03, 2023Copper Contributor
Creating an Access Table from an Excel Worksheet with only one 55 character Column
I have been trying for days to take the names of Blood Samples, between 7,700 and 7,900 records and put them into an access table. The Worksheet has only one column, which is the name of the lab tes...
- Jul 08, 2023
When I moved all of the programs over, they all bombed.
Vba program? how did you move it?
copy the only one .accdb file to flash disk and paste to your Win11 from the flash disk .
Or send email attachment.
You have a VBA program already?
peiyezhu
Jul 08, 2023Bronze Contributor
When I moved all of the programs over, they all bombed.
Vba program? how did you move it?
copy the only one .accdb file to flash disk and paste to your Win11 from the flash disk .
Or send email attachment.
You have a VBA program already?
Len_Lane
Jul 08, 2023Copper Contributor
I cannot find an .accdb File, Do you what folder (directory) it is in.
I have a VBA program, but I have not been able to test it.
Here it is:
Dim dbi As DAO.Database
Dim rst As DAO.Recordset
Dim ImgWidth As Integer
Dim ImgVert As Integer
Set dbi = CurrentDb
Set rst = dbi.OpenRecordset("Select * From Pictures")
Set rst = dbi.OpenRecordset("Select Top 1 Picture as ImgWidth, ImgVert([Picture]) as ImgVert")
rst.MoveFirst
I have a VBA program, but I have not been able to test it.
Here it is:
Dim dbi As DAO.Database
Dim rst As DAO.Recordset
Dim ImgWidth As Integer
Dim ImgVert As Integer
Set dbi = CurrentDb
Set rst = dbi.OpenRecordset("Select * From Pictures")
Set rst = dbi.OpenRecordset("Select Top 1 Picture as ImgWidth, ImgVert([Picture]) as ImgVert")
rst.MoveFirst