[gelöst] Mit setValue-Funktion Integer übergeben?

[Mocke47]

Hallo,
ich habe folgendes Problem:

Code: Alles auswählen

Sub Kundennummer
	Dim zahl as Integer
	
	zahl = DMAX("numKundennummer","tblNummernkreise") 
	
	setValue("Forms!frmKunden!fmtkunNummer", "" & zahl & "")	
End Sub

Das Makro funktioniert zwar, sprich er übergibt die Zahl an das fmtkunNummer und zeigt die Zahl auch beim Laden des Formulars an, aber irgendwie nicht richtig. Beim abspeichern des Datensatzes meckert er dann, da fmtkunNummer der Primärschlüssel ist, dass ein Wert eingetragen werden muss?

Mocke47

[Mocke47]

Kurzes Feedback:

Code: Alles auswählen

Sub Kundennummer
	Dim zahl as Integer
	
	zahl = DMAX("numKundennummer","tblNummernkreise")
	
	setValue("Forms!frmKunden!txtkunBezeichnung", "" & zahl & "")	
End Sub

Ich habe jetzt einfach mal in der setValue-Funktion ein Textfeld (txtkunBezeichnung) genommen. Da wird der Wert richtig übernommen und auch gespeichert. Ist alles nachvollziehbar, aber wie bekomme ich ein Integer übergeben, da mein fmtkunNummer ein Integer-Feld ist?

Mocke47

[RobertG]

Hallo Mocke47,

wenn ich den Code sehe, dann verwendest Du vermutlich Access2Base. Schau hier gegebenenfalls nach Hinweisen: http://www.access2base.com/access2base.html

In Basic reicht es nicht, einen Wert zu ändern. Damit wird erst einmal nur die Ansicht geändert. Es geht vielmehr darum, den Wert auch der darunterliegenden Datenbank mitzuteilen.
Das würde bei einem vorgegebenen Formularfeld so laufen:

Code: Alles auswählen

oField =  thisComponent.drawpage.forms.frmKunden.fmtkunNummer
oField.BoundField.updateInt( zahl )

Gruß

Robert

[Mocke47]

Hallo RobertG,
danke für die schnelle und punktgenaue Hilfe

Code: Alles auswählen

Sub Kundennummer
	Dim zahl as Integer
	Dim oField as Object
	
	zahl = DMAX("numKundennummer","tblNummernkreise")
	
	oField =  thisComponent.drawpage.forms.MainForm.fmtkunNummer
	oField.BoundField.updateInt( zahl )	
End Sub

So funktioniert es!

In Access2Base steht nicht wirklich viel zu der setValue-Funktion, zumindest was die Übergabe von Zahlen angeht. Habs auch mit dem Variant-Type probiert. Geht leider auch nicht bzw. wird, wie Du schon sagst, nur die Ansicht geändert. Außer man steuert ein Textfeld (siehe kurzes Feedback von mir) an, dann geht es komischerweise?

Danke
Mocke47