I have a main form with 2 check boxes. The title of the first box is Manufacturing and the title of the second check box is Purchased. I have 2 different forms based on the titles of the check boxes. After the user checks one of the boxes, I want the user to click a command button which opens the correct form based on the box checked.
Using the On Click for the command button, I created this code, with no success:
Dim stDocName As String
If Me.Check14 = 1 Then
stDocName = "frmManufacture"
DoCmd.OpenForm stDocName
Else
If Me.Check16 = 2 Then
stDocName = "frmPurchase"
DoCmd.OpenForm stDocName
Else
stDocName = "frmError"
DoCmd.OpenForm stDocName
End If
I have a form called frmStartTimeEntry where a user inputs data using a barcode scanner. In this form there is a field called Part_No where after a value is inserted, I'd like the form to check if table_lines_per_part includes this part. If not found, then I'd like the form to open another form called frmLinesPerPart where the form would pull the same Part_No inserted in the previous form to fill in the Part_No field (which is hidden) and then the user would type in a qty for the LinesPerOrder. A user would then click a button btnOk to append this new record to table_lines_per_part and be returned to the frmStartTimeEntry to continue filling out the rest of the form.
This is the idea I have but I don't know how to code the part where the form checks after update if the part_no exists in the other table, nor how to capture the part_no to the other form and then append both the part_no and the lines per part to the other table.
I have a form in wich I can add and edit employees. I can open this "employee" form in 2 ways: 1. From another form 2. From the mainmenu
When I close the "employee" form I want to check if the otherform (1.) is open. If it is open I want to requery the other form. If it is closed I don't want to requery the other form. How can I check if the other form is open?
I hope that you guys can help me and thanks in advance, Johnny
having a corruption issue with my database, it happens when a user updates a record and a second user has that record open elsewhere. then when the second user closes they save their changes over the top, corrupting the whole record.
so i need to know with a recordset if there is a way to check if a second user is currently looking at the same record?
Some of the things that bring me screeching halt really surprise me. I swear, this sounds like it should be so easy....
What I need to do is check, when the user clicks on a button, whether a specific table that is going to be modified/deleted later in the click code is already open. If it is open, I will msgbox the user to close the table first and exit the sub.
My application relies on whether Outlook is open and more importantly, with the correct Exchange profile selected. To ensure this I have the following code which, on the work PCs (Windows XP and Office 2003) works correctly.
Code:
If Outlook_is_Running = True Then Set myOlApp = CreateObject("Outlook.Application", "localhost") Set myNameSpace = myOlApp.GetNamespace("MAPI") Set colFolders = myNameSpace.Folders On Error Resume Next
[code]....
The work PCs are being upgraded soon to Windows 7 and Office 2007 so I have taken the application home and started to develop it on my home PC (Windows 8.1 64 and Office 2013 64). I have used PtrSafe where necessary and have compiled with no errors, but this code always returns false even though Outlook 2013 is open.
On further investigation, if I comment out the 'On Error Resume Next line I get the error Active X component cannot create the object (or similar) Error 429. This is the same regardless of whether Outlook is open or not
I have some code that resides in a button on a report that allows me to save a PDF version of this report. My problem is that if i have the destination directory open on windows explorer, i get a runtime 2501 "The output To action was cancelled" error.Is there any way to check if the directory is already open, and cancel the output to, or close the window to avoid this error?
Here is my code:
Code: Private Sub CmdSavePDF_Click() Dim MyFileName As String Dim MyPath As String 'Dim CompanyName As String
I'm trying to lock a checkbox when the forms open and depending if one has role as admin, it should unlock it.When I add the below code in the on open form I get error:
I would like to be able to check if a db is open and if it is to prevent the user from proceeding.
I use the Access 2013 Runtime. I can check if a db is open by trying to open Exclusively, using something like
Code: [URL] ....
But if the db is already open Not exclusively and I try to open it exclusively it does not raise an error and it allows the user to open the db in Read Only mode.
I would like to be able to prevent this, because careless and/or inexperienced users may open several instances of the db.
Of course, if the db is already open exclusively it does not allow you to open it exclusively another time.
I am storing values of pictures and the location of them in a table, this works fine!... using OpenRecordset. The problem is that when the function is called to store the information, it just keeps adding the same values of each file in the folder over and over again in a word "Duplicating" the information.
I have tried various methods using the OpenRecordset, but cannot seem to find the correct manor of applying the code.
Below is the function I have for storing the data...
Code: Public Sub GetFilesNamesFromFolder(strFolderPath As String) On Error GoTo ErrorHandler Dim objFSO As Scripting.FileSystemObject Dim objFolder As Scripting.folder Dim objFile As Scripting.File
I have a report with an unbound checkbox which has a null (greyed out value) when printed. I'm just trying to set it to false when the report opens.I have
Code: Private Sub Report_Open(Cancel As Integer) Me.CheckNotPaid = False End Sub
but it just says 'Runtime Error -214..You can't assign a value to this object'
halloo everybody Here is my code to check an excel sheet wether it is open or not. It is working good in the following situations.
1.if the excel file is not yet opened. then it is opening and bringing a value from some cell of the sheet1. 2.If the file is already opened and not yet closed. it is not opening again it is understanding that the file is already openrd and bringing the cell value. 3.It is working when it is closed by the user and again clicked the button to open. It is opening and bringing the value. 4.NOW the problem starts. IT IS NOT WORKING , If I click the button again to open. It is opening another copy of the same file. I did't understand why is it working perfectly? before I close the file and not working if I close the File.
please kindly check my code and respond to me . here is my code but it is not working when the file is already opened.
Private sub Cmd_Click()
Dim XL As New Excel.Application Dim wbk As New Excel.Workbook Dim ws As New Excel.Worksheet
WorkBookName = "Book2.xls" If Not WorkbookOpen(WorkBookName) Then chk = 1 Set wbk = XL.Workbooks.Open("C:Dokumente und EinstellungenKiran KarnatiDesktopEXCELBook2.xls") Else Set wbk = Workbooks(WorkBookName) End If
Set ws = wbk.Worksheets("Sheet1") If chk = 0 Then With ws Label48.Caption = .Cells(1, 2).Value .Cells(1, 3).Select End With Else With ws Text49.Value = .Cells(1, 2).Value End With End If XL.Visible = True
Set SA = Nothing Set XL = Nothing Set wbk = Nothing End Sub _________________________________________________
Function WorkbookOpen(WorkBookName As String) As Boolean 'Returns TRUE if the workbook is open WorkbookOpen = False On Error GoTo WorkBookNotOpen If Len(Excel.Workbooks(WorkBookName).Name) > 0 Then WorkbookOpen = True Exit Function End If
Dim objExcel As Excel.Application Set objExcel = New Excel.Application Dim strFileName As String strFileName = objExcel.Application.GetOpenFileName("Select CSV file, *.csv", , "CSV file")
If "FILE IS ALREADY OPEN" Then MsgBox "File is currently open. Please close and re-run this program.", vbInformation, "Program Error" GoTo end_: Else Set objworkbook = objExcel.Workbooks.Open(strFileName, , False) objExcel.Columns("A:B").Insert Shift:=xlToRight objExcel.Range("A5").FormulaR1C1 = "Account No" objExcel.Range("B5").FormulaR1C1 = "Invoice No" objExcel.Range("A6:A" & Range("C65536").End(xlUp).Row).FormulaR1C1 = Range("D1").Value objExcel.Range("B6:B" & Range("C65536").End(xlUp).Row).FormulaR1C1 = Range("F1").Value objExcel.Rows("1:4").Delete Shift:=xlUp
objExcel.Application.ActiveWorkbook.Close True MsgBox "CSV file formatted.", vbInformation End If
end_: Set objExcel = Nothing Set objworkbook = Nothing
Hi there,
I use the above code to open any CSV file, format it as required, then close/save it.
What I need to do is to find out if the file I have selected is already open and, if so, not to proceed with the code (see If "FILE NOT OPEN" line above).
I have tried several statements but am having no luck.
when i open a form i want to open another frm at the same time. i have a main form with some buttons in it. when i click on a button and a form opens then i am not able to click on a button to open other forms from the main form.
I currently have a button that opens a report. the report pulls from a query that has parameters set to "fromdate" and "todate". instead of using dates and parameters that pop up as blank text boxes, I would like to click the button, have a form pop up with a combo box to select all of the options available (currently 23 options) and then click a button to make a report that only displays the record (1-23) selected. I do not need any time constraints because as the databases get updated with more records, there would be more than 23 options to choose from.
I am a beginner and this question might seem stupid, but here it goes...
I want to put a few check boxes on a form...Basically I want to have week 1 to week 10 check boxes to register student's attendance. I would them export data to excel and use pivot table to generate a report. What I could not figure out yet is how to link a check box to a field on a table...
please see attachment. I created a small database to help explain my issue.
When I click on the check box in box 1(train), the text box turns blue...great...and even better the other records stay clear when I scroll down, which is what I want to happen. But when I scroll back up, from dog to train, the blue in the train box has gone- not what I want! I would like the blue to stay in every box that I click on. Any ideas?
please see attachment. I created a small database to help explain my issue.
When I click on the check box in box 1(train), the text box turns blue...great...and even better the other records stay clear when I scroll down, which is what I want to happen. But when I scroll back up, from dog to train, the blue in the train box has gone- not what I want! I would like the blue to stay in every box that I click on. Any ideas?
I've been stomping around in the forums for an hour now and I have to ask for some help because I really don't know what it is I am looking for.
I am interested to know if there is a way to write VBA code that reopens my menu form if all other forms have been closed. The database window is hidden in my app and normally when all windows close this will exit Microsoft Access too.
If there's not an easy, established way for this, I'm not really in a spot that requires me to use this, I just wanted to know for future forms.
I guess my real question is how to you build events for the entire database, not just a single form or report?:confused:
I am using my form to add job descriptions and if the user checks the check box for current, it adds the description to the table as the current job description. I need to clear the check box for the next entry but the box retains the choice so when the user selects another description, the form saves it as current even if the box shows no check in the box. I tried the code below, but that only changes the state of the box, but not the reality of the state of the box.
I'm currently making a signup form for a 6day event.
Certain details are taken (Name, Age, Contact no etc).
I also have a registration form; so when someone comes back for the second day of the event I tick the 'saturday' checkbox, or 'monday', or whatever the day is...
When someone comes to sign up for the first time, I'd like the form to automatically check the box for that day (to indicate their attendance). This would save me opening two forms to signup one person, if I make sense.
So, when someone comes to register on a Tuesday, I fill in all their details - and then it automatically checks the 'tuesday' field box.
I'm unsure of the best approach for this. I have 4 check boxes to verify. Only 1 of them can be checked, the others need to be disabled. But the user must check one of them.
I'm trying to create a form to link data. I'll give you an example..I have 25 football teams and 100 players. I want to link 4 to 7 players to each football team. Those players can be repeated in different teams.
I wish to do it with a form where I choose the team first (combobox) and then I select the players in the subform. The point here is that I want to choose the players via a checkbox and I want to see all players in that subform too.
SUBFORM - [Checkbox] [name player 1] - [Checkbox] [name player 2] - [Checkbox] [name player 3] - [Checkbox] [name player 100]
Is it possible to do without programing Access with VB?Do I need to create an intermediate table with the checkbox and then create the subform?
