I have a custom 404 handler that looks to see if the requested page exists in another location and includes it. Is there some way to reset the 404 error if a page is found? If a different error occurs while processing the page, the browser still throws the 404 error and not the actual (new)...
I would like to force the status bar to be on for a window that is created using the window.open function. In IE (when using XP and SP2 anyway) the new windows will have a status bar to prevent malicious intent. But with Firefox, if I turn off the status bar using the view-status bar option on...
I am doing this in an application I am converting from Access to VB.Net.
I have a dataset that contains the location names and unique record key that I want to use in my combo box (key is optional but speeds up reading). The second dataset has the data I want displayed on the form and the...
With Visual Studio.Net you can create deployment packages that will do what you are looking for. Otherwise you can create a Setup.bat file that will create the directory on their computer, copy the files, and register the .dll files automatically.
If your query has a parameter listed as its criteria (like [Please enter employee number]) so it prompts for a value when it runs, you have to supply that value when you use that query in your VBA code:
Dim wrkqdf As QueryDef, rst As Recordset
Set wrkqdf =...
When I select it from the com tab, I get the following message:
A reference to "Microsoft Access 10.0 Object Library" could not be added. Converting the type library to .NET assembly failed. A dependent type library 'OWC10' could not be converted to a .NET assembly. A dependent type...
I am new to VB.Net but I cannot get it to recognize the
Dim oAccess As New Access.Application
statement. I tried adding the Microsoft Access 10 object library to the references but get an error. Am I doing something wrong???
What are you trying to accomplish? You can send data from Access to Excel using the Docmd.OutputTo command:
DoCmd.OutputTo acOutputQuery, "qryMy_Data", acFormatXLS, "MyData.xls", True
If you want more flexibility, I can send you some code that spins through a recordset and...
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
' Use Windows API to retrieve Userid from system
Dim strUserName As String, LogonID As String, Name As Variant
strUserName = String(8, Chr$(0))...
I believe if you add a couple lines after your if statement you can accomplish what you are trying to do:
If MsgBox("Would you like to close this ticket now?", vbYesNo + vbQuestion) = vbYes Then
if not me.answerfld > "" then
msgbox "You must provide an answer...
You should be able to replace your Me!Created_By = CurrentUser() in the Before Insert event with the statement Plug_Create_Date Me and get the same results. The frm as Form parameter is allowing you to pass the form reference to the function similar to using a Me! in the actual form itself.
What I do on my forms is in the Got Focus event for the combo box, put the statement:
me!boxname.dropdown
This causes the dropdown to happen when the cursor enters the field and you can use the arrow keys to select the entry you want...
I have seen this happen in cases where you have large amounts of data and the network is extremely slow. Access will "time out" trying to get to the data and give the Network Error message. We would wait 10-15 minutes and try again with no problems depending on how much network...
laman:
I think you could just add this to your Function and get your results:
dim intext as integer, myfile as string
Then change your result to be:
myfile = Right(myvalue, Len(myvalue) - intLastPlace)
intext = InStr(1,myfile,".",vbTextCompare)...
In the After Update timing point for the first Combo box, put this code:
me!Combo2.rowsource="Select Models from Manufacturers where Make = '" & me!Combo1.Column(0) & "'"
Me!Combo2.requery
This should cause Combo2 to only reflect the records you want...
This is the format for a Dlookup function:
Dim varX As Variant
varX = DLookup("[CompanyName]", "Shippers", "[ShipperID] = "
& Forms!Shippers!ShipperID)
CompanyName reflects the field name in the Shippers table, the 3rd parameter is the equivalent of the Where...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.