I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Der er da vist sket et skred i formateringen i table 1...!!!! det er fuldstændig ligemeget hvad rækkeflg table 2 står i, bare opbygningen er den samme.
Hej Region Jeg har stort set skrevet nogle sql sætninger der kan gøre det, men jeg bliver nødt til at benytte et scriptsprog. Da jeg normalt arbejder i PHP, vil jeg lige spørge om det er ok i PHP. (ellers er der ingen mening i at fortsætte)
Den er dog meget statisk, dvs. den går ud fra, at firmaerne hedder firma1, firma2 osv.
Hvis det er få firmaer du arbejder med, er dette OK, men hvis der er flere og antallet kan variere skal koden gøres mere dynamisk.
Det samme gør sig gældende for nøgletallene.
Hvis det ikke er nødvendigt, at dataene smides i en specifik tabel (Tabel1), men derimod gerne må smides i en tabel, der oprettes til formålet ved hver kørsel, og dermed kan oprettes med de felter der er nødvendige (firmanavn1, firmanavn2 osv.), må du meget gerne lade mig det vide, så jeg kan ændre dette.
Desuden går jeg ud fra, at du bruger Access 2K, og dermed har en reference til ADO.
--- Kode start ---
Public Sub TurnTable()
Dim lngFirma1 As Long Dim lngFirma2 As Long
Dim rstTable1 As ADODB.Recordset Dim rstMonth As ADODB.Recordset
Set rstTable1 = New ADODB.Recordset Set rstMonth = New ADODB.Recordset
DoCmd.SetWarnings False DoCmd.RunSQL \"DELETE * FROM table1\" DoCmd.SetWarnings True
Jeg vil gerne hermed tildele privaten de meget meget velfortjente 1000 point. Dette gøres ikke mindst for den ubeskrivelige service han har leveret ved endda pr telefon at dalagtigøre sin viden om scriptet til mig.
Endnu engang tusinde tak for din hjælp. Folk som dig kunne der godt være flere af i denne verden.
for mig genial.... men hva jeg er jo heller ikke VB kyndig...
her er koden:
Function transfer() As Boolean Dim db As Database Dim rs1 As Recordset Dim rs2 As Recordset Set db = CurrentDb Set rs1 = db.OpenRecordset(\"Table2\") Dim firma1, firma2, maaned, oms1, oms2, loen1, loen2 As String
If Not rs1.EOF Then rs1.MoveFirst End If
db.Execute (\"Delete * from Table1\")
Set rs2 = db.OpenRecordset(\"Table1\") While Not rs1.EOF maaned = rs1(\"måned\")
Næh ingen problem med mig. \"Først til mølle\" er ok. Det var også derfor at jeg skrev: I tilfælde af at det andet var forkert...... Havde du brugt lkp\'s løsning og suppleret op med et par dele fra min, så havde det såmænd også været ok. Det er trods alt sjovest at vinde, når det går ærligt for sig. OG DET ER PISSEHÅRDT AT TABE UDEN AT TUDBRØLE ;-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
