Access update változó értékkel vba
2020-07-14T12:36:50+02:00
2020-07-16T19:07:34+02:00
2022-08-11T21:00:31+02:00
*deleted_67442532
Szisztok ! És előre is köszi:)

A gondom, a 'GrCode' értékével szeretném felülírni az adott oszlopot, de futás közben megjelink egy adatbekérő ablak /értéket kér a változóhoz/. ?

Function Group_Update()
 Dim GrCode As String
 Dim db As DAO.Database
 Dim rs As Recordset
 Dim sSQL As String
 Set db = CurrentDb()
 Set rs = db.OpenRecordset("inyr_group")
  'DoCmd.GoToRecord acDataTable, "inyr_group", acGoTo, 9
 GrCode = DLookup("[F2]", "inyr_group", "[Azonosító]=9")
 MsgBox GrCode
 sSQL = "UPDATE inyr_group SET [inyr_group].F1 =&GrCode&"
 DoCmd.RunSQL sSQL
 MsgBox GrCode
 rs.Close
 Set rs = Nothing
 db.Close
  
End Function
Mutasd a teljes hozzászólást!
Szia!
A "titok" az volt, hogy a GrCode változód értéke a mintában F 3 , ami szóközt tartalmaz, ezért nem tudja értelmezni a makró a végrehajtás során.
A helyes az, ha a változó elé és után egy - egy aposztróf (') kerül: 

sSQL = "UPDATE inyr_group SET inyr_group.F1 = '" & GrCode & "'"
Remélem, azt tudod, hogy az F1 oszlop minden adata felülíródik az értékkel. Gondolom, az eredetiben más érték szerepel, de ott is vannak szóközök.
Az input bekérés pedig az előzőekben azért volt, mert a GrCode változód az idézőjeleken belül volt, így paraméterként értelmezte a végrehajtás során.

Üdv.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd