Posted 3 November 2019, 8:51 pm EST
Hello everyone
I have an MSAccess 2013 frontend en delivery note processing form. In this form I have installed the ActiveX Flexgrid version 8.0 (Unicode) (ComponentOne 20191.1.1). The value should be entered in the remark column and also by copy & paste. The manual input works great, only the input via the clipboard does not work. Do I have to reconfigure something for it?
So I configured the Flexgrid:
Private Sub c1fgSetDataSource(ByVal sSQL As String)
On Error GoTo c1fgSetDataSource_Error_DefaultHandler ' --- Standard-Fehlerbehandlung
c1fg.Rows = 1
c1fg.Clear 'flexClearEverywhere
SetDataSource "C1FG", sSQL
m_bolNoSel = False
c1fg.Redraw = flexRDNone
c1fg.Appearance = flexFlat
c1fg.DataMode = flexDMFree ' flexDMBound
c1fg.VirtualData = True
c1fg.Editable = flexEDKbdMouse
c1fg.Flags = flexCFAutoClipboard
c1fg.FixedCols = 0
c1fg.FixedRows = 1
c1fg.SelectionMode = flexSelectionListBox
c1fg.AllowSelection = True
c1fg.ExplorerBar = flexExNone
c1fg.AutoResize = True
c1fg.AutoSizeMode = flexAutoSizeColWidth
c1fg.AllowUserResizing = flexResizeColumns
c1fg.BackColorBkg = RGB(&H31, &H30, &H31)
c1fg.SheetBorder = RGB(&H31, &H30, &H31)
c1fg.BackColor = vbWhite
c1fg.BackColorAlternate = RGB(&HDD, &HDD, &HDD)
c1fg.BackColorFixed = RGB(&H55, &H55, &H55)
c1fg.ForeColorFixed = vbWhite
c1fg.BackColorSel = RGB(&HBB, &HBB, &HBB)
c1fg.FontSize = Me.cboC1fgFontSize
c1fg.Gridline = flexGridNone
c1fg.GridLinesFixed = flexGridNone
c1fg.GridLineWidth = 0
c1fg.Cell(flexcpFontBold, 0, 0, 0, c1fg.Cols - 1) = True
c1fg.RowHeight(0) = 500
c1fg.ShowComboButton = flexSBAlways
c1fg.AutoSizeMode = flexAutoSizeColWidth
c1fg.FixedAlignment(COL_PLAN_LS_DATUM) = flexAlignLeftCenter
c1fg.FixedAlignment(COL_PLAN_RÜCK_DATUM) = flexAlignLeftCenter
c1fg.FixedAlignment(COL_PREIS_DM) = flexAlignLeftCenter
c1fg.FocusRect = flexFocusRaised 'flexFocusInset 'flexFocusHeavy
m_bolFGCellChanged = False
Set c1fg.DataSource = m_rs
DoEvents
m_bolFGCellChanged = True
If (c1fg.Rows > 1) And (c1fg.Row > 0) Then
CachingCurrentData
Else
Me.txtRowart = vbNullString
Me.txtArtikelname = vbNullString
Me.txtLS_Ort = vbNullString
Me.txtPlan_LS_Datum = vbNullString
Me.txtPlan_Rück_Datum = vbNullString
Me.txtSNR = vbNullString
Me.txtArtikeltyp = vbNullString
Me.txtAnzahl = vbNullString
Me.txtAnzMiettage = vbNullString
Me.txtRück_Ort = vbNullString
Me.txtLieferadresse = vbNullString
Me.txtPauschal_Art = vbNullString
End If
c1fgSetLayout
c1fg.Redraw = True
m_bolNoSel = True
GoTo c1fgSetDataSource__Exit '-------------------------------------------------
c1fgSetDataSource_Error_DefaultHandler:
Select Case Error_DefaultHandler("Auftrag_LS.ACF", "c1fgSetDataSource")
Case vbAbort
Resume c1fgSetDataSource__Exit
Case vbRetry
Resume
Case vbIgnore
Resume Next
End Select
c1fgSetDataSource__Exit: '-----------------------------------------------------
End Sub