Recent content by ingvar68

  1. I

    File Viewing

    Option Compare Database Option Explicit Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long Private Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String...
  2. I

    Trying to store a control reference as a variable

    try this so Dim FieldName As String Fieldname = "OptionMANUF" Forms![EQSRCL Update].controls(Fieldname)="..." Fieldname =Forms![EQSRCL Update].controls(Other_Fieldname).name
  3. I

    Hyperlinks as user interface

    becuse your form wtih hyperlink is PopUp form & another form is no PopUp.
  4. I

    PAGE SETUP

    it is difficult for access but decision is see help PrtMip & PrtDevMode. glad to answer have a question? ask...
  5. I

    error code not working

    Response = False glad to answer
  6. I

    Manipulate Excel worksheet from Access

    use: Dim Myxl As Object 'strAppPath is my excel file address Set Myxl = GetObject("C:\TMP\TMP.XLS") with Myxl .Application.Visible = True .Parent.windows(1).Visible = True .activesheet.Range("C:C").ClearContents .ActiveWorkbook.Save end with Set oWS = Nothing Set Myxl = Nothing
  7. I

    Mulitple Selections in a list box

    For i = 0 To [LIST_NAME].Listcount - 1 if [LIST_NAME].Selected(i) Then 'selected ... End If Next glad to answer
  8. I

    Subforms Updating other Subforms Problem When Opening a Form

    i think you wrote wrong code. you must write so: forms("MAIN_FORM_NAME")![SUB_FORM_NAME].form.control("NAME") & my other advice: use ufter_update event if possible glad to answer
  9. I

    removing part of a field

    use: Function num(str As String) As Variant Dim i As Integer i = 1 Do If Asc(Mid(str, i, 1)) >= 48 And Asc(Mid(str, i, 1)) <= 57 Then num = num + Mid(str, i, 1) If Not (Asc(Mid(str, i + 1, 1)) >= 48 And _ Asc(Mid(str, i + 1, 1)) <= 57) Then Exit Function End If i = i...
  10. I

    Open Excel Workbooks

    some ways onem of them ... Dim XCL As Long On Error Resume Next XCL = DDEInitiate("Excel", "System") If Err Then Err = 0 Shell "Excel.exe ""C:\TMP\BOOK1.XLS""", 1 If Err Then Exit Sub XCL = DDEInitiate("Excel", "System") End If DDEExecute XCL, "[Run(""prim"")]" DDETerminateAll ...
  11. I

    Open Excel Workbooks

    some way first of them: see help DoCmd.TransferSpreadsheet ... other via DAO Connect glad to answer
  12. I

    Form and subform

    if i understand you right do following: 1)source of the list of projects must: "select ..... where PersonId=forms![YOU_FORM]![NAME_OF_PEOPLE_LIST]" 2)you must write VB code for PEOPLE_LIST UFTER UPDATE: ... me![PROJECT_LIST_NAME].REquery ... 3) MOST DIFFICULT! YOU MUST DETERMINE CHILD...
  13. I

    synchronized combo box on subform

    forms![MAIN_FORM_NAME]![NAME_SUB_FORM].Form![PRODUCTS] glad to answer
  14. I

    all choices from a combo box

    i do so: if user nothing select in list that he selected all- ... if isnull(me![LIST_NAME]) then 'all else 'something end if ... or you may use special function to fill list with first value-all. see help. glad to answer
  15. I

    Conditionally change text color

    only a2000
See more
Back
Top Bottom