Temat: [VBA] Problem ze złączeniem kodu w komórce 'RowSource'.

Witam,

Jestem początkującym i za wiele nie wiem o accesie czy vba. Mam mały problem ze złączeniem kodu w komórce 'RowSource' dla listy.

To jest kod, który odpowiada za pokazywanie na liście tylko osób z danej zmiany, którą wybieramy w comboboxie.

Lista0.RowSource = "SELECT Employees.[EmployeeID], Employees.[Shift], Employees.[EmployeeNumber], Employees.[FirstName], Employees.[LastName] FROM Employees Where [Shift] Like '*" & Me.Combo5 & "*' ORDER BY Employees.[LastName]; "

Do niego muszę dołączyć, albo sprawić żeby oba kody mogły działać w jednej komórce 'RowSource'

LEFT JOIN Selected ON Employees.EmployeeID=Selected.SelectedID WHERE (((Selected.SelectedID) Is Null))

Mam nadzieje, że ktoś zna odpowiedź.
Z góry dziękuje za pomoc!Norbert Jot edytował(a) ten post dnia 18.01.13 o godzinie 08:46

Temat: [VBA] Problem ze złączeniem kodu w komórce 'RowSource'.

nie mam jak sprawdzić ale spróbuj tak:

Lista0.RowSource = "SELECT Employees.[EmployeeID],  Employees.[Shift], Employees.[EmployeeNumber],  Employees.[FirstName], Employees.[LastName] FROM Employees LEFT JOIN Selected ON Employees.EmployeeID=Selected.SelectedID Where  [Shift] Like '*" & Me.Combo5 & "*' and (((Selected.SelectedID) Is Null)) ORDER BY Employees.[LastName]; 

Temat: [VBA] Problem ze złączeniem kodu w komórce 'RowSource'.

Nie wiem, czy się śmiać, czy płakać ;x Przecież próbowałem z and'em i nie działało..
Wielkie dzięki, oczywiście działa.

Teraz mam inny problem, pewnie znowu pierdoła której nie moge dostrzec ;x
Przenosi z Form tylko ID do każdej tabeli, a mialy przenieść sie wszystkie wartości 'rs!', wygląda to tak: SCREEN

Private Sub Command11_Click()



Dim strSQL        As String

  Dim db            As DAO.Database

  Dim rs            As DAO.Recordset

  Dim ctl           As Control

  Dim varItem       As Variant

  Dim i             As Integer



  On Error GoTo ErrorHandler



  Set db = CurrentDb()

  Set rs = db.OpenRecordset("Presence", dbOpenDynaset, dbAppendOnly)

  Set lst = Me.Lista1

  

  For i = 0 To lst.ListCount

  lst.Selected(i) = True

  Next



  For Each varItem In lst.ItemsSelected

    rs.AddNew

    rs!EmployeeID = lst.ItemData(varItem)

    rs!EmployeeNumber = lst.ItemData(varItem)

    rs!FirstName = lst.ItemData(varItem)

    rs!LastName = lst.ItemData(varItem)

    rs!Shift = lst.ItemData(varItem)

    'rs!OtherValue = Me.txtOtherValue   << HERE WILL BE CURRENT DATE <<

    rs.Update

  Next varItem



ExitHandler:

  Set rs = Nothing

  Set db = Nothing

  Exit Sub



ErrorHandler:

  Select Case Err

    Case Else

      MsgBox Err.Description

      DoCmd.Hourglass False

      Resume ExitHandler

  End Select



End Sub

Norbert Jot edytował(a) ten post dnia 18.01.13 o godzinie 17:20

Temat: [VBA] Problem ze złączeniem kodu w komórce 'RowSource'.

lista ma kolumny ;)

Temat: [VBA] Problem ze złączeniem kodu w komórce 'RowSource'.

Nie bardzo rozumiem ;x Na prawdę jestem laikiem..