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
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] .....
I have a table in Access that I have a form saving new records to. Before this save occurs, I would like Access to check if the account number already exists and if the account does exist if it is outstanding. If both of those conditions are met I would like a message box to display and cancel the save as it is a duplicate. I can't seem to get it to work though.
I was thinking to use a filtered recordset based on one of the conditions and then perform a find on that recordset to see if it is null.
Code:
dim acct as long
dim rstfiltered as DAO.Recordset
Set rstfiltered = CurrentDb.OpenRecordset("SELECT * FROM tblclstrack WHERE [Request Status] <> 'Completed'")
acct = Me.cd_number.Value
[code]...
Heres what I need to do.
--> open a recordset
--> read through the records
--> check to see if two fields matches e.g (qty=qty_completed)
--> if all records in recordset meets the above condition then run update statement
I want to put this code inside Form_Close. The code that I'm using checks the two fields for the condition and runs the update statement if condition is met. Problem is this a continuous form and I want all records need to meet the condition before it execute update statement.
Using Access 2010 btw.
I have a module that I am using to verify that file paths in my table point to valid jpg files. The table has grown quite a bit since I first created the module and it has gotten to the point where it's taking too long for the module to execute. I'm in the process of trying to change the record set for the module from the table to a stored query procedure but it's turning out to be a little tricky for me. When I execute the following module, I'm not getting any error code, it just doesn't seem to do anything at all. The bits in red are the parts I've changed. Before that the module executed as I expected it would.
Code:
Sub TestIt2()
Dim strFileName As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("QryUpdateRevisionHistory")
[code]....
Hello All,
How do I open a recordset in Access.
Thanks
Someone please tell me what is wrong with this code? (I have already defined db_file earlier in the sub.)
' Open a connection.
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db_file & ";" & _
"Persist Security Info=False"
strSQL = "SELECT * FROM Families"
conn.Open
' Open Families Table with a cursor that allows updates
Set rs = New ADODB.Recordset
rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic, adCmdTable
This is the error I get. "Microsoft JET Database Engine --> Syntax Error in FROM Clause"
Thanks!
hi, im a beginner in access and want to do something like that:
<edit>this is in the DetailButton_Click() event</edit>
stDocName = "PersonDetails_Form"
DoCmd.RunCommand acCmdSaveRecord
'open form with recordset of person
DoCmd.OpenForm stDocName, , , "[P_ID] = " & Forms![PersonBase_Form]![P_ID]
'now the part i dont know how to do
If Not "[P_ID] = " & Forms![PersonBase_Form]![P_ID] Then
DoCmd.OpenForm stDocName, , acNewRec .....
End If
-> if there is no recordset of the Person, create new recordset with P_ID(hidden) and PersonNumber(visible and editable) from PersonBase
I have three tables see below
tblplantitem
tblplantgroup
tblplantservice
so I have frm called frmplant which holds the plantgroupname I.E plant type (airblow,leads) then I have subform call plantitemtblsubform which holds the plant item serial number, value ,service date which works great now my problem I have command buttom on subformplantitemsubform then opens form call frmpopupPlantService this opens to show plantitem service history but when I add a record then save close then click the same plant item to open form frmpopupPlantService show no service history even when I just entered ...
I have a continuous form that lists a group of records in a main form based on a query. On each line of this continuous form, there is a button that can be clicked to open the main form based on that record.
Code:
DoCmd.OpenForm "frmRAW", , , "[frmRAW].[FID]= " & Me.FID.Value
This works fine, although it filters the recordset to just that one record. What else do I need to apply the same recordset that is in the continuous form, so the user can also scroll through the records on the main form if they so wish to?
I want them to be able to click on the button in the continuous form, open the form to that record, but also give them the ability to scroll to the other records that were listed in the continuous form. The continuous form I mentioned is its own form seperate from the main form.
How to open a Record Set For the combo-box? My Original Code as follows
Dim conn As New ADODB.Connection
Dim objMyRecordset As New ADODB.Recordset
Dim strSQL As String
Set conn = New ADODB.Connection
[Code] ....
After i use this code nothing come out on my combo-box...
Hello all, I hope your hollidays were great!!
Ok I have a Continuous form that in one of it's fields contains Hyperlinks. The form is named [Song Info] and the field is [Play].
I want this field to be hidden and have a command button open up the hyperlink in that recordset. I think that all the info need
but if not let me know.
Thanks
Rich M
The code below fails.
Code:
Dim ResultQy As String, qdf As QueryDef
Dim ResultFm As String
ResultQy = "ByFederationQy"
Dim strSQL As String 'sql statement to execute
[Code] ....
When I run the code it fails at the last line giving error message:
Code:
Runtime error 3061 - toofew parameters expected 1
I'm trying to open or unlock a recordset do do a simple calclation and then relock the record set. How this can be done with vba?
View 7 Replies View RelatedI 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
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
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
{
...
}
I'm trying to open a recordset in vba and I'm getting the 3061 runtime error,Expected 1.
I'm trying to open a recordset with a query that uses a reference to a form control.
Code:
searchtable1 = "qInVisio_RSV"
Set rs = db.OpenRecordset(searchtable1, dbOpenDynaset, dbSeeChanges)
This is the sql of the query:
The highlighted parted is the form referance ( I know it's obvious, just for easier spotting )
Code:
SELECT dbo_FOLIO.FOLIOID, dbo_FOLIO.KIND, dbo_FOLIO.RSVID, dbo_FOLIO.CHKIDATE, dbo_RLIST.ROOMID, dbo_ROOM.ROOMNO, dbo_AGN.LINAPRG
FROM (dbo_ROOM INNER JOIN (dbo_FOLIO INNER JOIN dbo_RLIST ON dbo_FOLIO.RSVID = dbo_RLIST.RSVID) ON dbo_ROOM.ROOMID = dbo_RLIST.ROOMID) LEFT JOIN dbo_AGN ON dbo_FOLIO.AGNID = dbo_AGN.AGNID
WHERE (((dbo_FOLIO.KIND)=101) AND ((dbo_FOLIO.CHKIDATE)>=[Forms]![frmCleaningPlan]![DTPicker]));
also as you can see it's a datepicker control, so the value is a date...
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
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
[code]...
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.
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 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 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
WorkBookNotOpen:
End Function
Thank you.
Kiran.