Search results

  1. Pyro

    WebBrowser Control > Google Maps

    I have a project wherein a Google Map is used to display pins of various jobs within a WebBrowser control. Recently it has been brought to my attention that the use of the Maps JavaScript API and Embed API for IE11 will be fully decommissioned. At present the map still displays correctly with...
  2. Pyro

    Third Party Controls (Yay or Nay)???

    Just curious to know if many developers are using third party controls in their applications? Personally in 8 years of developing Access databases, I have only ever used one non-native control. Generally I try to steer clear of them as (in my limited experience) i find front end deployment...
  3. Pyro

    Contextual ribbon tabs

    tl;dr How does one refer to the object (form or report) from which a contextual ribbon tab is called? The story I have a contextual ribbon tab that is used for previewing reports. There are the standard print, zoom, close etc buttons which are just built in features of Access. I also have a...
  4. Pyro

    Many 1:1 tables? Or...

    Hi. I am working on an application that records project result data. Most of the database has been mapped out and is relatively straight forward. However, each project has its own unique subset of result data, somewhere between 2 and 15 intrinsic fields. Currently there are 15 projects. And it...
  5. Pyro

    Make line visible last detail section on page

    Hi, I am trying to make a line in a report visible in the last detail section on each page only. Is there a way to achieve this? I have spent hours playing with different ideas, but nothing... I have looked into the HasContinued and WillContinue methods with no success. Any thoughts would...
  6. Pyro

    Remote query problem

    Hi, I am trying to run a remote query that looks in a database that is in the same directory as the Back End of my main database. In VBA i can run that sql and connect to the database using a function: SELECT... FROM tablename IN """ & MyDBPath & "MyDBName.accdb"" WHERE However i...
  7. Pyro

    IIF in criteria giving error

    I am running a query based on a form selection. If the form selection is a certain value, i want the query criteria to have multiple values: IIf([Forms]![FormName]![ComboName]="1",In ("1","2"),[Forms]![FormName]![ComboName]) This is throwing me a too complex to evaluate error. However if i...
  8. Pyro

    Undo on error

    Hey, So i have come across a problem that i have found in some error trapping that i am doing this afternoon. When trying to enter data into a subform before the parent record is generated, Access throws you an error - no biggie, stock standard basic stuff. Replacing that error with something...
  9. Pyro

    Loop question

    Hi, I have the following code: Dim X As Long X = Len(Me.txtProduct_Temp_Req) -1 If Not IsNumeric(Right(Me.txtProduct_Temp_Req, 1)) Then Me.txtProduct_Temp_Req = Left(Me.txtProduct_Temp_Req, X) Else Me.txtProduct_Temp_Req = Me.txtProduct_Temp_Req & "°C" End If I would like...
  10. Pyro

    Remove Button Underline

    Hello, I have a form that has several buttons on it. Each button has its backstyle property set to transparent and its On Mouse Move event set to FontUnderline = true. For the sections' On Mouse Move Event, i want to set FontUnderline to false for each button. I can do this individually for...
  11. Pyro

    Requery Error

    Hi, I have two subforms (both showing data from the same table) synced together by having the PK of the second subform set to the primary key of the first. When i cycle through the records on the first subform, i am requerying the second so that it displays the same record. For that i am using...
  12. Pyro

    Ribbon tab group alignment (XML)

    Hello, I am wondering whether anyone knows if there is an alignment attribute for programmatically aligning groups to the right of the tab on a ribbon? All of the default ribbons seem to have their groups aligned to the left, so i am suspecting that the answer will be no, but i thought i would...
  13. Pyro

    Execute a string

    Hello, I have spent a couple of hours now playing around with this, and i can't seem to get it to work. 'callback for OnButtonPress Public Sub OnButtonPress(ctl As IRibbonControl) Dim obj As Object Dim StrName As String If CurrentProject.AllForms(ctl.Tag).IsLoaded Then 'Do nothing...
  14. Pyro

    "Cannot Open Any More Tables"... or can I?

    Hello! So i am ploughing away through creating an application, and i get to building a report based on a query that references 5 or 6 tables. The query itself is not too complex, but does include aggregation and may pull criteria from several optional form fields. If i base the Record Source...
  15. Pyro

    All combos become locked?!

    Hi, I am running the following code from a subform: Private Sub Form_Error(DataErr As Integer, Response As Integer) Debug.Print "Error Number = ", DataErr Select Case DataErr Case 3314 MsgBox "There is no course selected for this student." & vbCrLf & _ " " &...
  16. Pyro

    Dateadd SQL in VBA

    Ok, so i am trying to set up monthly due dates for payments, these due dates always fall on the same date of the month and are on the anniversary of a student's enrolment. A student can pay for 12 months. What i want to do is set up 12 payment due dates at the point of enrolment. This way i can...
  17. Pyro

    Setting up payments, continuous form

    Hi, I am making a a db that records information about students, courses and payments. I have a situation where all courses run for 12 months, and most students make graduated payments on the first of the month, for every month of their enrolment. However there are cases where some students...
  18. Pyro

    remove duplicates - impossible?

    Hi, Consider the following scenario: 1 table Approx 20 fields. >1,000,000 records. No PK. A reference to a FK that relates to an order number. Some records are legitimate duplicates (i.e. they exist b/c they are separate records). Someone comes along and (accidentally) copies a whole bunch...
  19. Pyro

    Dlookup freaking out

    Hi, i am trying to run the following piece of code: If DLookup("lotno", "[tbl_track_expiry]", "lotno = '" & [txtlotno] & "'") Then If MsgBox("The Batch Number you are trying to enter already exists in the system." & vbCrLf & _ " " & vbCrLf & _ "Press OK to go to that record...
  20. Pyro

    compare a record to that on a continuous form

    Hi, i am trying to validate if a value exists on a continuous form from a main form. I have tried: Private Sub txtin_use_AfterUpdate() If Not IsNull(Me.txtin_use) Then If Me.cboprodname.Value = Me.sfrm_media_out_use.Form![product_id].Value Then MsgBox "There is atleast one batch...
Top Bottom