Use Check Box To Open Forms
May 25, 2006
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
End Sub
Thanks for helping with this problem.
Jeff
View Replies
ADVERTISEMENT
May 15, 2013
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.
View 2 Replies
View Related
Jun 26, 2014
how can i make a image appear in my form when there is a check in the check box from the table?
View 14 Replies
View Related
Sep 7, 2006
Hello everyone,
I have a question:
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
View 5 Replies
View Related
Mar 10, 2005
How i can check if form is open ??? sorry for noob question
I want check with VB if form is open or close ???
How i can do it???
example in VC++
if(!dialog.IsOpen())
{
...
}
else
{
...
}
View 5 Replies
View Related
Jul 4, 2007
hey guys
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?
thanks
View 4 Replies
View Related
Feb 4, 2005
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.
Any ideas?
All help, as always, is much appreciated!
John
View 4 Replies
View Related
May 21, 2014
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
View 4 Replies
View Related
Aug 28, 2013
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
[code]...
View 1 Replies
View Related
Jun 29, 2015
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:
Code:
Me.lock_case_admin.Locked = True
Me.lock_case_admin.BackColor = 12632256
This is the part that should onlock if it is admin:
Code:
Me.lock_case_admin.Locked = False
Me.lock_case_admin.BackColor = 16777215
Maybe it is me, or the checkbox is giving the error that causes the dialogbox to open to to choose the ID nr.
View 5 Replies
View Related
Jul 16, 2015
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.
View 5 Replies
View Related
Nov 25, 2014
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
[Code] .....
View 12 Replies
View Related
Dec 3, 2013
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'
View 3 Replies
View Related
Sep 17, 2004
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
WorkBookNotOpen:
End Function
Thank you.
Kiran.
View 1 Replies
View Related
May 21, 2013
I have a yes/no field as a book mark in a table with names. How can I query it to open to the last or the first check?
View 13 Replies
View Related
Jun 16, 2005
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.
Thanks in advance,
Paul.
View 9 Replies
View Related
Jan 14, 2015
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.
View 2 Replies
View Related
Jul 28, 2014
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.
View 1 Replies
View Related
May 6, 2005
Hi all,
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...
Any help is very much appreciated....
Cheers!!!
View 1 Replies
View Related
Apr 20, 2006
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?
Thanks,
J
View 3 Replies
View Related
Apr 20, 2006
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?
Thanks,
J
View 1 Replies
View Related
Oct 17, 2006
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:
View 4 Replies
View Related
Mar 13, 2013
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.
Code:
Me.CheckBox.Value = No
View 9 Replies
View Related
Jun 10, 2013
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.
View 4 Replies
View Related
Jun 30, 2014
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.
their control sources are:
admn
sprvsr
data
reado
View 3 Replies
View Related
Jul 31, 2014
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?
View 11 Replies
View Related
