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?
Len_Lane
Jul 07, 2023Copper Contributor
I got a hospital computer in that is windows 7 and Office 2010. I moved them to another Windows 10 machine my friend is letting me use.
When I moved all of the programs over, they all bombed.
They work great on the 2010 computer.
They all bombed out on the Dim dbp as DAO.database
I guess I had to do something new with 365, can you lease tell me what I have to add?
Thanks
Old NASA Kid
When I moved all of the programs over, they all bombed.
They work great on the 2010 computer.
They all bombed out on the Dim dbp as DAO.database
I guess I had to do something new with 365, can you lease tell me what I have to add?
Thanks
Old NASA Kid
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_LaneJul 08, 2023Copper ContributorI 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 - Len_LaneJul 08, 2023Copper ContributorPeiyezhu;
I have not been able to test this yet because of some problem with enabling the form or Database.
Here is the code I built with you assistance days ago:
Dim dbi As DAO.Database
Dim rst As 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
Still having security issues and this application will probably not be on the Internet.
Thanks Again
Old NASA Kid - Len_LaneJul 08, 2023Copper ContributorTo get my VBA to work, I need to use a Command Button to fire it.
I am having some security issues because I cannot enter the query to try to test the VBA.
The State of Nebraska sent us a small test database, but I am too hung up on getting there to try it.
I do have an Assess Table with what I need to continue on, once I can get to a point where I can test the queries.
Thanks Again - Len_LaneJul 08, 2023Copper ContributorPriyezhu
I have not been able to get to that area should I decide to go in that direction.
I would need to go to an event on clicking a button. IT has been at least 15 years since I did it and it was only once.
However I cannot even get to the event because of the way Microsoft has the security set up.
The only way to do the is with a command button.
If I remove the security (enable) on the database it will not let me use DIM
We have done all of these things to try to protect entities however over 4,100 hospitals got hit with ransom ware. So did we really help the situation?
Old NASA Kid
If I do not enable the database it ignores all of the Command Buttons and probably all of the other events.
I understand security as well as anyone and bypassing the firewalls and files is one way, however I am not permitted to mention the second, but I can say that it is night and day different than using some form of database.
Maybe this is turning out to be another form of security intelligence, Just too many changes, but when IT programmers with the VA tried it, a huge number of medical issues came up. - Len_LaneJul 08, 2023Copper ContributorThey were put on a flash drive and sent to us..
The assembler programs are from compilers IBM created for NASA
They have used them for over 40 years.
We are also doing what the federal government wants us to do.
When I take screen shots, I copy the error using the Prt Screen key
I go to paste it some place and it does not show up for you guys to look at.
What is beginning to really bother me is what the retired Microsoft Engineers said about Office 365
I am praying we do not have politics in programming.
I am thinking about taking 365 out and going back to 2019.
Some of these small hospital programs have been working for years and now they do not work.
Microsoft wonders why peoplw do not upgrade.
I am also having trouble how Access handles things from outside Microsoft.
We called their Tech Support, paid $998.00 and got nowhere also.
I have programmed for over 30 years and have never run into anything like this. I did some IBM DB2, had no problems, but it was a long time ago.
I am going to remove Office 365 and go back to 2019 today.
Thanks for your help, if it was not for you I would have walked out on them.
I think I am the only programmer who has medical experience and the regular programmers made some very serious errors last year..
How do I take a screen shot and send it to you guys, also it would be great if someone had PC Anywhere..