Search results

I got it solved, but i am still wonder what causes this issue. So i turned around the "refering direction" meaning that i have changed the control source on the main form: =fsubform!control It works now perfectly. But what causes a vba code to run depending on the number of records visible...

thank for the inputs. Actually it is not a count but a sum, but i have tested with the count: same thing. It is clearly an issue with the number of shown records, making the subform smaller inducing the error. So the subform record source is a table but checked it with query too. Form footer...

Hi, i have a form with a subform in datasheet view. Subform footer has an unbound field to calculate total that is shown up in the parent form. Everything works fine as long the datasheet view is actually "shorter" than the subform height. If longer it does not and i need to click on the form...

The OnChange did the trick! As tab.value identified the pages this code did what i need: to show the command button in only certain situation: Private Sub TabCtl0_Click() If Me.TabCtl0.Value = 1 Then Me.Command3.Visible = False Else Me.Command3.Visible = True End If End...

Hi, I am struggling with the following and kindly ask for advise. I have a navigation form with a tabcontrol holding three different subforms. In the main form there is a command button to print a report. OnLoad of the form its visibility is set to false. However when i click on one specific...

Sorry that i bothered. Double qouted sx string and it worked... Private Sub Command0_Click() Dim sx As String sx = """P:\HQHA\DB_Directory\CORs\Magic Jasmine_COR.pdf""" Shell ("C:\Program Files\Tracker Software\PDF Viewer\PDFXCview.exe " & sx) End Sub thank!

Hi, I struggle to solve the problem caused by space in path in a shell command. I have read about double quoting but i can not get it working. So this code works fine without space in path Private Sub Command0_Click() Dim sx As String sx = "P:\HQHA\DB_Directory\CORs\Magic_Jasmine_COR.pdf"...

actually only the character ő and ű caused the problem for the RemoveAccents function all others works fine. Interestingly my solution caused another problem: if Ő was a capital as first letter it was lower case afterward. I solved it now by using StrConv i think this works fine now. Thank!!!

i have found a solution. I created a query that simply converts accented characters into non-accented ones using one nested replace statment like: AccentLess: Replace(Replace(Replace([tbFEDJ].[BS_Name],"ő","o"),"ö","o"),"á","a") Then in VBA using DLookUp i refer to this query to get the...

Hi, I have a table that consist some special accent character like letter ő. This can be entered into table and shows up correctiy in forms. For some pdf savings i wanted to have accentless characters for file name so i found and use a function for this Public Function RemoveAccents(ByVal...

The data for merge was needed to be filtered based on a form' control value. it really works as expected.

Thank you! Yes the SQL where statement was indeed the problem. It works great now.Thanks again!

Sorry for the not professional presentation... This code is the one you mentioned: copied from the design window.

Hi, Found a very nice code to allow Word mail merge using an Access query starting the process with a form command button. The following version works like charm Sub startMergeLB() Dim oWord As Object Dim oWdoc As Object Dim wdInputName As String Dim wdOutputName As String...

Woa. Thanks again. I think i see the solution by now. Somehow i got hooked on the former design and was not able to look out of the box... Thanks again!

Thank you so much for your help! Let me change my approach: i would like to have a parameter query where the parameter is taken from frmService if it is open/loaded and and take no paramter in other words so all the results. How can it be done?

I have checked that. The CurrentProject.Allforms(("xxx").isloaded gives an error if used with IIF in paramter for query. I have changed the code and it still always returns true.

Hi, I would like to run a parameter query. The parameter comes from a form control. However if the form is not open i would like to see all the results. I have found a post that described a method based on a function Function IsFormLoaded(strForm As String) As Boolean Dim frm As Form For...

Hi, I have this custom ribbon xml that works fine <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"> <ribbon startFromScratch="true"> <tabs> <tab id="tb1" label="Main"> </tab> <tab idMso="TabCreate" visible="true"> </tab> </tabs> </ribbon> </customUI>...

Hi, I have searched this forum and others but found no answer. I have a accdb file from which i am trying to open an other accdb file using vba Dim oAccess As Object Set oAccess = CreateObject("Access.Application") strdb = " 'path' " With oAccess .OpenCurrentDatabase strdb .Visible =...