Load my DB from ram
--------------------------------------------------------------------------------
hi
i have read that it is possible to upload my db in ram memory and open it from there. When i finished my work to save it at a external drive.
How can i do this ? or where to read ? or sample db ? or better a code ?
thxs
*i know that if i close my db before a save it at the drive , i will lose all the new records.
i have a friend and he bought a program(made by vb).
The program is stored in a usb flash drive and every morning he plug the flash run a small utility which upload the main program at ram. Then he unplug the flash and start working with the program.Everything is being saved at Ram. When he want to leave , plug the flash and run the utility which save the program at the flash.
If he close the program and he hasn't run the utility , he is losing the new entries.
The reason he is doing...
Simple to hide things that he is saving at the program.
So
1)Plug the usb
2)run the utility to upload the app
3)unplug the usb
4)work at the app
5)plug the usb and save data
if someone try to see the app , he is closing it or unplug the pc from electricity.
he will lose only the new data.
Simple
Good for people how want to hide stuff (will taxes)
I need my menu form to load automatically (pop up) when you load up the database... i.e exactly like it does with the switchboard in the templates for access.
Im looking to have a particular form open on load of the database and in a uniform size. As well as this I would like have all fields on one of my forms disabled when I click to enter this form. Any help would be appreciated!
I have a combo box on my form, when the form loads the combo box is blank, but the records attached to the first item in the combo box are loaded in the subform on the form so it appears that I have records attached to nothing (which isn't the case). Basically, I want the first item in the combo box to be visible on load so that the records in the subform don't look orphaned.
hi i have a form with 12 checkbox and 1 combobox i use the following code
Option Compare Database Private Sub Form_Current() If Me.Image1 = -1 Then Me.Parent.Image1.Visible = True Me.Image1_text.FontBold = True Else Me.Parent.Image1.Visible = False Me.Image1_text.FontBold = False End If
If Me.Image2 = -1 Then Me.Parent.Image2.Visible = True Me.Image2_text.FontBold = True Else Me.Parent.Image2.Visible = False Me.Image2_text.FontBold = False End If If Me.Image3 = -1 Then Me.Parent.Image3.Visible = True Me.Image3_text.FontBold = True Else Me.Parent.Image3.Visible = False Me.Image3_text.FontBold = False End If If Me.Image4 = -1 Then Me.Parent.Image4.Visible = True Me.Image4_text.FontBold = True Else Me.Parent.Image4.Visible = False Me.Image4_text.FontBold = False End If If Me.Image5 = -1 Then Me.Parent.Image5.Visible = True Me.Image5_text.FontBold = True Else Me.Parent.Image5.Visible = False Me.Image5_text.FontBold = False End If
If Me.Image6 = -1 Then Me.Parent.Image6.Visible = True Me.Image6_text.FontBold = True Else Me.Parent.Image6.Visible = False Me.Image6_text.FontBold = False End If
If Me.Image7 = -1 Then Me.Parent.Image7.Visible = True Me.Image7_text.FontBold = True Else Me.Parent.Image7.Visible = False Me.Image7_text.FontBold = False End If
If Me.Image8 = -1 Then Me.Parent.Image8.Visible = True Me.Image8_text.FontBold = True Else Me.Parent.Image8.Visible = False Me.Image8_text.FontBold = False End If
If Me.Image9 = -1 Then Me.Parent.Image9.Visible = True Me.Image9_text.FontBold = True Else Me.Parent.Image9.Visible = False Me.Image9_text.FontBold = False End If
If Me.Image10 = -1 Then Me.Parent.Image10.Visible = True Me.Image10_text.FontBold = True Else Me.Parent.Image10.Visible = False Me.Image10_text.FontBold = False End If
If Me.Image11 = -1 Then Me.Parent.Image11.Visible = True Me.Image11_text.FontBold = True Else Me.Parent.Image11.Visible = False Me.Image11_text.FontBold = False End If
If Me.ComboBox1 = "No" Then Me.Parent.ComboBox1.Visible = False Me.ComboBox1_text.FontBold = False Else Me.Parent.ComboBox1.Visible = True Me.ComboBox1_text.FontBold = True End If
If Me.Image12 = -1 Then Me.Parent.Image12.Visible = True Me.Image12_text.FontBold = True Else Me.Parent.Image12.Visible = False Me.Image12_text.FontBold = False End If End Sub Private Sub Image1_AfterUpdate() If Me.Image1 = -1 Then Me.Parent.Image1.Visible = True Me.Image1_text.FontBold = True Else Me.Parent.Image1.Visible = False Me.Image1_text.FontBold = False End If End Sub Private Sub Image2_AfterUpdate() If Me.Image2 = -1 Then Me.Parent.Image2.Visible = True Me.Image2_text.FontBold = True Else Me.Parent.Image2.Visible = False Me.Image2_text.FontBold = False End If End Sub Private Sub Image3_AfterUpdate() If Me.Image3 = -1 Then Me.Parent.Image3.Visible = True Me.Image3_text.FontBold = True Else Me.Parent.Image3.Visible = False Me.Image3_text.FontBold = False End If End Sub Private Sub Image4_AfterUpdate() If Me.Image4 = -1 Then Me.Parent.Image4.Visible = True Me.Image4_text.FontBold = True Else Me.Parent.Image4.Visible = False Me.Image4_text.FontBold = False End If End Sub Private Sub Image5_AfterUpdate() If Me.Image5 = -1 Then Me.Parent.Image5.Visible = True Me.Image5_text.FontBold = True Else Me.Parent.Image5.Visible = False Me.Image5_text.FontBold = False End If End Sub Private Sub Image12_AfterUpdate() If Me.Image12 = -1 Then Me.Parent.Image12.Visible = True Me.Image12_text.FontBold = True Else Me.Parent.Image12.Visible = False Me.Image12_text.FontBold = False End If End Sub Private Sub Image6_AfterUpdate() If Me.Image6 = -1 Then Me.Parent.Image6.Visible = True Me.Image6_text.FontBold = True Else Me.Parent.Image6.Visible = False Me.Image6_text.FontBold = False End If End Sub Private Sub Image7_AfterUpdate() If Me.Image7 = -1 Then Me.Parent.Image7.Visible = True Me.Image7_text.FontBold = True Else Me.Parent.Image7.Visible = False Me.Image7_text.FontBold = False End If End Sub Private Sub ComboBox1_AfterUpdate() If Me.ComboBox1 = "No" Then Me.Parent.ComboBox1.Visible = False Me.ComboBox1_text.FontBold = False Else Me.Parent.ComboBox1.Visible = True Me.ComboBox1_text.FontBold = True End If End Sub Private Sub Image8_AfterUpdate() If Me.Image8 = -1 Then Me.Parent.Image8.Visible = True Me.Image8_text.FontBold = True Else Me.Parent.Image8.Visible = False Me.Image8_text.FontBold = False End If End Sub Private Sub Image9_AfterUpdate() If Me.Image9 = -1 Then Me.Parent.Image9.Visible = True Me.Image9_text.FontBold = True Else Me.Parent.Image9.Visible = False Me.Image9_text.FontBold = False End If End Sub Private Sub Image10_AfterUpdate() If Me.Image10 = -1 Then Me.Parent.Image10.Visible = True Me.Image10_text.FontBold = True Else Me.Parent.Image10.Visible = False Me.Image10_text.FontBold = False End If End Sub Private Sub Image11_AfterUpdate() If Me.Image11 = -1 Then Me.Parent.Image11.Visible = True Me.Image11_text.FontBold = True Else Me.Parent.Image11.Visible = False Me.Image11_text.FontBold = False End If End Sub
how to optimize my code to run faster???
the images are 1 KB size , 16x16 pixels and .bmp All of them are insert inside db.
i think images are too small to slow down my code. Can i write the code in a different way?
Hello, I have a client who downloads data from a website. I must then put this data into an access database. The problem I am having is that the file is a strange format - it comes to me as filename.servlet[3]
I am assuming that this is some kind of java file, but am not really sure. I can open it with notepad and it looks like a comma delimited file, but i can't figure out how to get it into an access table.
Does anyone have any idea how to handle this file?
I was wondering if it is possible to load multiple forms into one subform? For example: I have form [SO2Menu] and form [Critical]. Can I have one subform in a main form that by the click of a button ill load either menu depending on the users selection?
I have 1 form lets call it Form1 which has a text box called say textBox1(along with many other form components), the will find record they want and then click a button, which i want to open a new different form (Form2) and set a text box on that form (textBox2) to the value of the textBox in Form1.
Dim tmp As String tmp = VolunteerID.Value
DoCmd.OpenForm "Comment", acNormal, , , acFormAdd, acWindowNormal DoCmd.GoToRecord , , acNewRec 'To obtain that varibale was read. MsgBox (tmp) 'Not sure if this is needed 'VolunteerID2.SetFocus VolunteerID2.Text = tmp
I have some trouble getting a form to open maximized. This form is opening from a switchboard that is centered and not sizable. After clicking on a command button in the switchboard the form I am having trouble with opens in its own window, but I cannot get it to maximize automatically. I have been to every setting I know on the form properties but for some reason nothing seems to be able to get that form to open maximized.:confused:
:confused: I have a particular Windows XP Home edition machine that is giving me a headache...
On the DB - users can access a form that displays pictures in a Picture control (via file path) with no problem at all. The problematic machine displays 'Access does not recognise the file format and so can't load the picture....' or something of that ilk....
Yet the file format is JPG and if I use the qualified path (on this same machine), eg. \SERVERFolderPicsPICTURE.JPG from the XP Start/Run menu - XP Image viewer opens and displays the JPG with no problem at all!
Why is this happening only on this XP machine and not on the others..??? Any ideas would be greatly appreciated - thanks in advance.
Hello all, I have a continuous form that is slow on loading a portion of the code. The form is designed to pull students who need to be either warned or terminated based off of their GPA. Below is the code that is delayed in being displayed on the form:
Public Function warnOrTerminate(creditAttempt As Integer, GPA As Double) ' these numbers are from the "satisfactory progress" portion of the catalog
'warning if the following is true 'GPA<1.5 and ([cAttempt]<=15) 'GPA<1.9 and ([cAttempt]>=16 and [cAttempt]<=30) 'GPA<2.2 and ([cAttempt]>=31 and [cAttempt]<=45) 'GPA<=2.4 and ([cAttempt]>=46)
'terminate if the following is true 'GPA<1 and ([cAttempt]<=15) 'GPA<1.5 and ([cAttempt]>=16 and [cAttempt]<=30) 'GPA<1.75 and ([cAttempt]>=31 and [cAttempt]<=45) 'GPA<=2 and ([cAttempt]>=46)
Select Case creditAttempt Case Is <= 15 If GPA < 1 Then warnOrTerminate = "Terminate (1.0)" ElseIf GPA < 1.5 Then warnOrTerminate = "Warning (1.5)" End If
Case 16 To 30 If GPA < 1.5 Then warnOrTerminate = "Terminate (1.5)" ElseIf GPA < 1.9 Then warnOrTerminate = "Warning (1.9)" End If
Case 31 To 45 If GPA < 1.75 Then warnOrTerminate = "Terminate (1.75)" ElseIf GPA < 2.2 Then warnOrTerminate = "Warning (2.2)" End If
Case Is >= 46 If GPA < 2 Then warnOrTerminate = "Terminate (2.0)" ElseIf GPA < 2.4 Then warnOrTerminate = "Warning (2.4)" End If
End Select
Everything works fine - but the field that shows the end user to either warn or terminate the student shows up very delayed. Any thoughts or ideas on speeding this up??
Ok, I'm new the access database security. I want to disable the shift key as soon as the database is opened to prevent users from getting to my data. I do have userlevel security in place with modal forms. This is my final step...I hope.
Is there any code or sample database that I may download? Thank you for your advice.
How do I load a form from another form? I would prefer to use VB (in fact, its probably the only way you can do it!). I have tried varius commands that would have worked in VB - but dont work in Access, like...
The above code does not work AT ALL. It gets an error at the Unload Me line, an error at the Load Form_tblClients line, and the action 'Show' does not even exist under Form_tblClients, so that wont work either!
I am aware of Switchborads, but i want to know how to load a form, and make it pop up in a new window from within another form.
I have a OLE Object field in my Access table. It has a blob (long binary data) already in it. It is a very small .bmp image. How do I get this image from the table loaded in a form to it displays the image? I tried setting this value to a image box, bound object field on form load but nothing is working. Any help would be great. Thanks
I have been dabbling in excel to get data from an online database however I would like it to come straight into access instead of coming through excel.
In excel it is quite easy using a web query however I have not been able to find anything that can do the same in access. Is it even possible or will I need to use excel as the stepping stone?
I have 1900+ records, of where each record is represents a PDF Document in my folders.Each document in my folders is named in the same format "2014-001a" for example. This is the combination of two fields in my Access Database - Document Number and Current Revision.
I am looking for some Macro/VBA where I can put the same command on every records form, that will then recognise the Document Number and Current Revision of that record, and then "On Click" able to directly load up that Pdf.
I have 3 forms. The only form a user will ever see is F_Main
F_MAIN (Just loads the 2 forms below within itself) F_Data_Short (Grid View.. Rows and Columns.. All Records.. Shows some fields) F_Data_Long (Single Record View.. Showing all fields)
F_MAIN -> On the left is F_DATA_SHORT -> On the Right is F_DATA_LONG
How can I set it.. When a record on the left included form is clicked.. it loads that same record on the right included form. No pop ups...
I know I can use the On Click option for the form on the Left... and set code or a macro to the load the data on the right. I tried everything and can't seem to get the data to load on the right when a record is clicked on the left...
I have a form, that when I create a new record it puts a a =Now() time stamp in the Date Field, but I would like for that time to be updated if anything on the record is changed, later on. How do I update that time?
Hi!, I am trying to make something to make my job easier. To be honest I am a beginer in this field. I am having a field, when I enter one value ( let that be 10) it should pop up one form and if another value ( let that value be 20) it should pop up another form. or else I can explain in this way If data field value = 10 then it should run macro 1 & if data field value = 20 then it should run macro 2
I have created a small form that hold a cube of 9 boxes on it. The idea is that it will act as a small icon that indicates the system is loading. (Purely cosmetic)
I have triggered the boxes to change colour on a loop when the form loads but the problem is that the loop function is being carried out before the form actually loads. How do I get the form to display first and then carry out the loops to change the colour of the shapes?
How do you open an invisible form when the database opens. In the database's startup options I have the database open a form, however, for some reason I can't set it to an invisible state.
My users run macros in their programs (not forms) the sole purpose of the form is to track which users are logged in the database or not. Therefore, when the form opens/closes, a user-table updated.
I don't want the users to be able to see this form, but I have no way to keep it hidden. More importantly because no other forms are being used or opened on load... I can't open the form hidden. Does anyone know anyway around this?
Could someone tell me what Event I need to put this code in to calculate my fields when the form first opens?
I have this code on both the After Update and On Change events which is working fine, but, when I first open the form, those calculated fields are blank and I have to perform a change or update before the calculations will appear each time.
If Not IsNull(Me.fcstloc) Then Me.prodvolume = DSum("[volume]", "qryMonthlyEngineVolumes", "[product] = '" & Forms!Projects!product & "'" & " And [MonthID] Between " & Forms!Projects.MonthID.Column(0) & " And 12") ElseIf Not IsNull(Me.prodvolume) Then Me.prodvolume = DLookup("[2004volume]", "tblProjectDetails", "[projectid] = " & Forms!Projects!projectid & "") End If
