Aktív témák

• #9 gericooper aktív tag return.value #8

  2006-02-12 13:46:56 #9

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  gericooper

  aktív tag

  válasz return.value #8 üzenetére

  A #6 ban közölt probléma már nem áll fenn. Lényeg az h az űrlap mindig mutatja az időt, de ennek a dolognak már utánanéztem. Az aktuális probléma a következő:
  
  1 mezős táblába csak számot akarok felvenni a kombóboxszal, úgy h a user bepötyöghet új értéket -ezér megy a dolog notinlist eseményre-, a kód a következő:
  
  ---------------------------
  Private Sub KombináltLista10_NotInList(NewData As String, Response As Integer)
  On Error GoTo Err_KombináltLista10_NotInList
  Dim strMsg As String
  Dim ctl As Control
  Dim strSQL As String
  
  Set ctl = Me.KombináltLista10
  If IsNumeric(Me.KombináltLista10) Then
  
  'If strSQL = ''SELECT * from lookup_ktghely WHERE not EXISTS (SELECT * from lookup_ktghely where lookup_ktghely.ktghely_kiv= Me.KombináltLista10 )'' Then
  
  
  strMsg = NewData & '' nincs a listában. Hozzáadjuk?''
  ' Prompt user to verify they wish to add new value
  If MsgBox(strMsg, vbYesNo) = vbYes Then
  ' Set Response argument to indicate that data is being added
  Response = acDataErrAdded
  ' Add string in NewData argument to products table
  strSQL = ''INSERT INTO lookup_ktghely (ktghely_kiv) SELECT ''' & NewData & '''''
  CurrentDb.Execute strSQL, dbFailOnError
  Else
  ' If user chooses Cancel, suppress error message and undo changes
  Response = acDataErrContinue
  ctl.Undo
  End If
  End If
  Cancel = True
  
  Exit_KombináltLista10_NotInList:
  Exit Sub
  
  Err_KombináltLista10_NotInList:
  MsgBox Err.Number & '':'' & Err.Description
  Resume Exit_KombináltLista10_NotInList
  
  End Sub
  ----------------------------
  
  szal: a szelektes where not záradékos dolognál akartam azt, h összehasonlítja a kombilista elemét meg a tábla elemeit, ha nincs akkor felnyomja a messagebox-ot h felvegye-e, stb...
  csak nem működik -ezért van itt kikommentezve-
  
  valaki ötlet? köszi
  
  

• #6 gericooper aktív tag return.value #5

  2006-02-05 15:12:29 #6

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  gericooper

  aktív tag

  válasz return.value #5 üzenetére

  köszi, sql pár embernek muszáj lesz.
  
  namost egy gyors kérdés:
  
  beviteli mezőben megjelenítem a aktuális időt, beállítom neki h. fokusz elvesztésére, ill újra fokuszálásra megint rakja be az aktuálist de nem akarja megcsinálni. milyen cucc kéne ehhez hogy akár fókuszban akár fokuszon kívül mindig az aktuális időt mutassa a mező?

Aktív témák