Search results

sorry, I was just about to upload it, I am at work at present

Thank you for the below, just out of interest if txtVehicleMake was a combo box with two columns how would I get it to copy column 2 into a text box as currently when I try this it only copy's the bound column

solved! Dim Records As DAO.Recordset Set Records = SFrmSubDetails.Form.RecordsetClone If Records.RecordCount > 0 Then Records.MoveFirst While Not Records.EOF Records.Delete Records.MoveNext Wend End If Records.Close End Sub

Hi all I have the below, when "BtnDeleteAllRecords" is clicked from the main from I want to delete all records in the subform named "SFrmSubDetails", I tried doing a loop with the below code but no success, I have never done loops below so probably completely wrong, wasn't sure what I need to...

Hello Arnelgp thank you for the below works perfectly!, just as a bit of an upgrade how easy would it be to add a row number in next to each entry, for example, I was looking at having an unbound field on each row using the =1 in control and using RunningSum Property but I do not have that...

would record clone do it far each column or would it basically dump everything

Hi all I have a tabular form, when I click a button I need it to copy all the information on that record into two separate text boxes as shown below, any suggestions on how to do this?, I am having real issues trying to get the tabular data copied into a word document so I am hoping by doing...

sorry for the late reply, been rather manic problem is there are records in 3 different tables, I have managed to get the information from the main form and the sub forms but my issue is that Hello Doc Man thank you for the below, I genuinely think this has gone past my knowledge of access...

so with regards to WordApp.Options.ReplaceSelection = False , would you put this at the top of all the coding or within each data code for each field eg. Private Sub BTNCreateReport_Click() Dim oWd As Object 'Word.Application Dim oDoc As Object 'Word.Document Dim bm As Object...

I have finally got it to sort of work, it now copies the data onto the word document, the only issue is if I have more than one entry it only shows one of them, not sure if its overwriting the previous input or only reading the last one

Hello, thanks for the reply, I have tried the following code bm.Range.Text = UCase([Forms]![FRMComplaints]![SFRMStaffInvolvements].[Form]![STAFFSURNAME]) shows the error message Run-time error '13': Type mismatch

Hi guys, sorry to bring this back up, I got this working great following on from my question above but now wish to try and expand this?, how would I pick up the data from a Tabular sub form (SFRMStaffInvolvements) and put each entry onto a different line within the word document? I haven't put...

Hello sorry for the late reply I haven't been able to get near a computer lately, where would I put the code you have provided in my code above? reason I ask when I try this ir comes back with an error saying "Complie Error Method or Data member not found" this is my code I tried Private Sub...

Hi all I have a form with a sub form, when I click the new record button on the main form I want it to start in a specific field on the sub form (StartDate), I have tried doing tabs which didn't work and also tried the below but stick the field has not been selected, any suggestions Private Sub...

have a field with the record number which shows record 1 of 3 example (TxtBottomBarExaminationNo), when the record is on 1 I want the previous record button to be disabled (BtnExaminationPrevious)

think I have worked it out :) If Val(TxtBottomBarExaminationNo & "") = 1 Then [BtnExaminationPrevious].Enabled = True Else [BtnExaminationPrevious].Enabled = False End If

Many thanks, If I wanted to extend this further to say instance if record is 1 of 1 then BtnExaminationPrevious.Enabled = False but anything other for example 2 of 3 shows the button would this be done in a if statement?

if all I have the below code, I want to do it so if the value = 1 of any number to hide a button how do you do this? If Me.TxtBottomBarExaminationNo >= "1 of #" Then BtnExaminationPrevious.Enabled = False Else BtnExaminationPrevious.Enabled = True End If

Morning sorry for the late reply, work took over, has anyone got any suggestions as I have tried the above code without any success and is showing the error code "run time error 450: number of arguments or invalid property assignment" If Me.CmbVehicleType.[Column](2) = "Electric" Then...

Hello Mate I am thankful for your assistance but even when I use the code from the link you provided is still was not working unfortunately, I am also using IE so not sure that would be an issue, also I am sure it allows pasting as I am able to do it using the tab technique, would you be able to...