none
Open form was cancelled RRS feed

  • Question

  • Hello

    Project moved from 2003 to 2010 office, i've replaced  calendar component   with textField with poping calendar and it stopped working.  Other forms with same dtPicker  open fine.

    I get open form error here : 

    stDocName = "FrmNewTransactie"
    DoCmd.OpenForm stDocName, , , , acFormAdd, acWindowNormal, 100


    but form_open() doesn't contain any problems =(   just prefer checks for displaying. what issue can it be? data binding? 

    Here is form open event for FrmNewTransactie

     

    Private Sub Form_Open(Cancel As Integer)
    Dim criteria As String
    Dim locatie As Variant
    Dim searchStr As String
    
        
      '  Me.datum = Date
        Me.Opslagbij_id.Locked = False
        Me.Opslagaf_id.Locked = False
        Me.palletplaatsen.Locked = False
        Me.Factuurnummer.Locked = False
        Me.Opslagbij_id.Enabled = True
        Me.Opslagaf_id.Enabled = True
        Me.palletplaatsen.Enabled = True
        Me.Factuurnummer.Enabled = True
    
        Me.Verkoopordernummer = get_verkoopordernummer
        Me.afleveradres = get_afleveradres
        Me.Inkoopordernummer = get_inkoopordernummer
        Me.Inkoopordernummer_VO = get_inkoopordernummer_VO
        Me.leverancierID = get_leverancierID
        Me.GebruikerID = get_medew
        Me.type = get_type
        Me.KlantID = get_klantid
        Me.Inkoopordernummer.Visible = False
        Me.Factuurnummer = get_factuurnummer
        Me.palletplaatsen = get_palletplaatsen
        Me.vervoerderID = get_vervoerder
        Me.vervoerderID.Requery
      
    
    
        Select Case OpenArgs
            Case 100
                
                If Forms![orderinvoer]![frmRaster]!raster_inkoopordernummer_VO Then
                    Me.Inkoopordernummer_VO.Visible = True
                End If
                If Forms![orderinvoer]![frmRaster]!raster_inkoopordernummer Then
                    Me.Inkoopordernummer.Visible = True
                End If
                Me.Verkoopordernummer.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_verkoopordernummer Then
                    Me.Verkoopordernummer.Visible = True
                End If
                Me.leverancierID.Visible = False
               If Forms![orderinvoer]![frmRaster]!raster_leverancier Then
                    Me.leverancierID.Visible = True
                End If
                Me.Opslagbij_id.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_opslagbij Then
                    Me.Opslagbij_id.Visible = True
                    Me.Opslagbij_id = Forms![orderinvoer]![historie_records]![locatie_bij]
    
                End If
                Me.Opslagaf_id.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_opslagaf Then
                    Me.Opslagaf_id.Visible = True
                    Me.Opslagaf_id = Forms![orderinvoer]![historie_records]![locatie_af]
    
                End If
                Me.Vrachtbriefnummer_relatie.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_vrachtbrief_fs Then
                    Me.Vrachtbriefnummer_relatie.Visible = True
    
                End If
                Me.vervoerderID.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_transporteur Then
                    Me.vervoerderID.Visible = True
                    Me.vervoerderID = Forms![orderinvoer]![historie_records]![Transporteur]
    
                End If
                Me.palletplaatsen.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_palletplaatsen Then
                    Me.palletplaatsen.Visible = True
                    Me.palletplaatsen = Forms![orderinvoer]![historie_records]![palletplaatsen]
           
                End If
                Me.Factuurnummer.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_factuurnummer Then
                    Me.Factuurnummer.Visible = True
            
                End If
                Me.Vrachtbriefnummer_transporteur.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_vrachtbrief_transporteur Then
                    Me.Vrachtbriefnummer_transporteur.Visible = True
                    Me.Vrachtbriefnummer_transporteur = Forms![orderinvoer]![historie_records]![VrBriefTrans]
    
                End If
                Me.Repaint
    
            
            Case 200, 201
                
                
                Me.Inkoopordernummer.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_inkoopordernummer Then
                    Me.Inkoopordernummer.Visible = True
                End If
                Me.Inkoopordernummer_VO.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_inkoopordernummer_VO Then
                    Me.Inkoopordernummer_VO.Visible = True
                End If
               
               Me.Verkoopordernummer.Visible = False
     
                If Forms![orderinvoer]![frmRaster]!raster_verkoopordernummer Then
                    Me.Verkoopordernummer.Visible = True
                End If
                Me.leverancierID.Visible = False
               If Forms![orderinvoer]![frmRaster]!raster_leverancier Then
                    Me.leverancierID.Visible = True
                End If
                Me.Opslagbij_id.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_opslagbij Then
                    Me.Opslagbij_id.Visible = True
                    Me.Opslagbij_id = [Forms]![orderinvoer]![frmRaster]!raster_def_loc_bij
    
                End If
                Me.Opslagaf_id.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_opslagaf Then
                    Me.Opslagaf_id.Visible = True
                    Me.Opslagaf_id = [Forms]![orderinvoer]![frmRaster]!raster_def_loc_af
    
    
                End If
                Me.Vrachtbriefnummer_relatie.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_vrachtbrief_fs Then
                    Me.Vrachtbriefnummer_relatie.Visible = True
    '                Me.Vrachtbriefnummer_relatie = Forms![orderinvoer]![frmRaster]![raster_def_vrachtbrief]
    
                End If
                Me.vervoerderID.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_transporteur Then
                    Me.vervoerderID.Visible = True
                    Me.vervoerderID = ""
    
                End If
                Me.palletplaatsen.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_palletplaatsen Then
                    Me.palletplaatsen.Visible = True
                    Me.palletplaatsen = Forms![orderinvoer]![historie_records]![palletplaatsen]
           
                End If
                Me.Factuurnummer.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_factuurnummer Then
                    Me.Factuurnummer.Visible = True
            
                End If
                Me.Vrachtbriefnummer_transporteur.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_vrachtbrief_transporteur Then
                    Me.Vrachtbriefnummer_transporteur.Visible = True
                    Me.Vrachtbriefnummer_transporteur = Forms![orderinvoer]![frmRaster]![raster_def_vrachtbrief]
                End If
    
                Me.Verkoopordernummer.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_verkoopordernummer Then
                    Me.Verkoopordernummer.Visible = True
                End If
                Me.afleveradres.Visible = False
                If Forms![orderinvoer]![frmRaster]!raster_afleveradres Then
                    Me.afleveradres.Visible = True
                End If
                Me.KlantID.Visible = False
               ' MsgBox Forms![orderinvoer]![frmRaster]!raster_klant
                If Forms![orderinvoer]![frmRaster]!raster_klant Then
                
                    Me.KlantID.Visible = True
                End If
        End Select
      
        
    
        
    
    End Sub
    


     

     

    Please help.

    Thanks

     


    • Edited by GMoroz Thursday, November 10, 2011 10:17 AM
    Thursday, November 10, 2011 10:16 AM